to counter new release of visOmopResults

OHDSI · Nov 25, 2024 · f8f1d6a · f8f1d6a
1 parent 66d7b6c
commit f8f1d6a
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/R/plotTemporalSymmetry.R b/R/plotTemporalSymmetry.R
@@ -44,7 +44,7 @@ plotTemporalSymmetry <- function(result,
                                  scales = scales)
 
   plot_data <- result |>
-    visOmopResults::splitNameLevel() |>
+    visOmopResults::splitGroup() |>
     dplyr::select(.data$index_name, .data$marker_name, .data$variable_name, .data$variable_level, .data$estimate_name, .data$estimate_value, .data$additional_level, .data$additional_name) |>
     dplyr::group_by(.data$estimate_name) |>
     dplyr::mutate(row = dplyr::row_number()) |>

diff --git a/R/summariseTemporalSymmetry.R b/R/summariseTemporalSymmetry.R
@@ -23,7 +23,7 @@
 #'                                  name = "joined_cohorts",
 #'                                  indexTable = "cohort_1",
 #'                                  markerTable = "cohort_2")
-#' temporal_symmetry <- summariseTemporalSymmetry(cohort = cdm$joined_cohorts)
+#' temporal_symmetry <- summariseTemporalSymmetry(cohort = cdm$joined_cohorts, minCellCount = 0)
 #' CDMConnector::cdmDisconnect(cdm)
 #' }
 #'
@@ -45,8 +45,8 @@ summariseTemporalSymmetry <- function(cohort,
   cohort_settings <- omopgenerics::settings(cohort)|>
     dplyr::mutate(timescale = .env$timescale) |>
     dplyr::select(-c("index_id", "marker_id", "index_name", "marker_name"))
-  settings <- c("days_prior_observation", "washout_window", "index_marker_gap",
-                "combination_window", "timescale")
+  settings <- c("cohort_date_range", "days_prior_observation", "washout_window", "index_marker_gap",
+                "combination_window", "moving_average_restriction", "timescale")
 
   output <- cohort %>%
     dplyr::mutate(time = as.numeric(!!CDMConnector::datediff(
@@ -89,7 +89,7 @@ summariseTemporalSymmetry <- function(cohort,
     dplyr::mutate(variable_name  = "temporal_symmetry",
                   variable_level = as.character(.data$variable_level),
                   estimate_value = as.character(.data$estimate_value),
-                  strata_name = "overall", #to change
+                  strata_name = "overall",
                   strata_level = "overall",
                   additional_name = "overall",
                   additional_level = "overall",