bug fixed

OHDSI · Dec 20, 2024 · 7e8c50a · 7e8c50a
1 parent 19ca138
commit 7e8c50a
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/R/plotInObservation.R b/R/plotInObservation.R
@@ -78,9 +78,9 @@ plotInObservation <- function(result,
         x = "Date"
       )
    p$data <- p$data |>
-     dplyr::arrange(time_interval) |>
+     dplyr::arrange(.data$time_interval) |>
      dplyr::mutate(
-       show_label = seq_along(time_interval) %% ceiling(nrow(p$data) / 20) == 0
+       show_label = seq_along(.data$time_interval) %% ceiling(nrow(p$data) / 20) == 0
      )
 
    p <- p +

diff --git a/R/plotRecordCount.R b/R/plotRecordCount.R
@@ -60,11 +60,11 @@ plotRecordCount <- function(result,
         x = "Date"
       )
     p$data <- p$data |>
-      dplyr::arrange(time_interval) |>
-      dplyr::group_by(omop_table) |>
+      dplyr::arrange(.data$time_interval) |>
+      dplyr::group_by(.data$omop_table) |>
       dplyr::mutate(
         show_label = if (dplyr::cur_group_id() == 1) {
-          seq_along(time_interval) %% ceiling(n() / 20) == 0
+          seq_along(.data$time_interval) %% ceiling(dplyr::n() / 20) == 0
         } else {
           FALSE
         }