remove logging and fix lint errors

Author: gm-ebs-ext

R/check_papo_call_manual.R

@@ -7,8 +7,7 @@ check_papo_call <- function(datasets, module_id, subject_level_dataset_name, sub
                             sender_ids, summary, listings, plots, afmm_module_names) {
   warn <- character(0)
   err <- character(0)
-  logger::log_info("running check_papo_call")
-  on.exit(logger::log_info("finished check_papo_call"))
+
   assert_warn <- function(cond, msg, do_assert = TRUE) {
     ok <- FALSE
     if (isTRUE(do_assert)) {

R/mock_with_mm.R

@@ -32,10 +32,10 @@ mock_with_mm_app <- function() {
         ),
         column_count = 3
       ),
-      # listings = list(
-      #   "Adverse Event" = list(dataset = "adae", default_vars = NULL),
-      #   "Concomitant Medication" = list(dataset = "cm", default_vars = NULL)
-      # ),
+      listings = list(
+        "Adverse Event" = list(dataset = "adae", default_vars = NULL),
+        "Concomitant Medication" = list(dataset = "cm", default_vars = NULL)
+      ),
       plots = "defaults"
     )
   )