Merge pull request #23 from Boehringer-Ingelheim/273711_fix_info_labels_not_displaying

fix patient info labels for data.frame input

Author: gm-ebs-ext

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: dv.papo
 Title: Patient Profile
-Version: 2.0.3-900
+Version: 2.0.4-900
 Date: 2024-08-13
 Authors@R: 
     c(person("Boehringer-Ingelheim Pharma GmbH & Co.KG", role = c("cph", "fnd")),

NEWS.md

@@ -1,3 +1,6 @@
+# dv.papo 2.0.4-900
+- Fixes issue with labels not working fully if a data.frame is passed as input.
+
 # dv.papo 2.0.3-900
 - Fixes y-axis getting squashed if blank values present in DECODE variable for AE/CM plots.
 

R/data_prep.R

@@ -13,8 +13,11 @@ pt_info_data_filter <- function(df, subjid_var, columns, selected_key) {
   row_index <- which(df[[subjid_var]] == selected_key)
   if (length(row_index) == 1) {
     res <- df[row_index, columns]
+      df_labels <- structure(get_labels(df), names = names(df))[columns] #extract and save labels
+      for (i in columns) {
+        attr(res[[i]], "label") <- df_labels[[i]] # re-apply saved labels
+      }
   }
-
   return(res)
 }
 

tests/testthat/test-data_prep.R

@@ -0,0 +1,8 @@
+test_that("pt_info_data_filter preserves data.frame labels", {
+  df <- as.data.frame(safetyData::adam_adsl)
+  expected_labels <- get_labels(df)
+  output <- pt_info_data_filter(
+    df, subjid_var = "USUBJID", columns = names(df), selected_key = "01-701-1015"
+  )
+  testthat::expect_identical(get_labels(output), expected_labels)
+})