Check if dataset has zero rows to avoid warning message while filtering

Author: mattkorb

R/helper_functions.R

@@ -67,7 +67,9 @@ prepare_initial_data <- function(
         )
       )
   })
-
+if (nrow(sel_dataset_list[[1]]) == 0) {
+    return(NULL)
+  }
   dataset <- Reduce(dplyr::full_join, sel_dataset_list) %>%
     dplyr::filter(.data[[lb_test_var]] %in% lb_test_choices) %>%
     dplyr::group_by(.data[[subjectid_var]], .data[[arm_var]], .data[[lb_test_var]], .data[[visit_var]]) %>%
@@ -114,12 +116,13 @@ prepare_initial_data <- function(
 #'
 #' @keywords internal
 filter_data <- function(dataset, arm_var, sel_arm, lb_test_var, sel_lb_test) {
-  dataset <- dataset %>%
-    dplyr::filter(
-      .data[[lb_test_var]] %in% sel_lb_test,
-      .data[[arm_var]] %in% sel_arm
-    )
-
+  if (!is.null(dataset)) {
+    dataset <- dataset %>%
+      dplyr::filter(
+        .data[[lb_test_var]] %in% sel_lb_test,
+        .data[[arm_var]] %in% sel_arm
+      )
+  }
   return(dataset)
 }
 
@@ -172,11 +175,8 @@ derive_req_vars <- function(
     ref_range_upper_lim_var,
     sel_x,
     sel_y) {
-  if (nrow(dataset) == 0) {
-    return(NULL)
-  }
-
-  # Get the data frame in required structure (Pivot wider grouped by certain variables)
+  if (!is.null(dataset)) {
+    # Get the data frame in required structure (Pivot wider grouped by certain variables)
   dataset <- dataset %>%
     dplyr::filter(.data[[lb_test_var]] %in% c(sel_x, sel_y)) %>%
     dplyr::mutate(
@@ -194,7 +194,7 @@ derive_req_vars <- function(
       "r_Baseline_{{sel_x}}" = as.numeric(.data[[paste0("r_Baseline_", sel_x)]]),
       "r_Baseline_{{sel_y}}" = as.numeric(.data[[paste0("r_Baseline_", sel_y)]])
     )
-
+  }
   return(dataset)
 }