Make default_vars specified with tplyr_table work

zsigmas · zsigmas · commit 2c49b03764fa · 2025-07-17T11:30:28.000+02:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: dv.listings
 Type: Package
 Title: Data listings module
-Version: 4.1.0-901
+Version: 4.1.1-9003
 Authors@R: 
     c(
       person("Boehringer-Ingelheim Pharma GmbH & Co.KG", role = c("cph", "fnd")),
diff --git a/R/helpers.R b/R/helpers.R
@@ -111,6 +111,12 @@ fill_default_vars <- function(default_vars, dataset) {
     }
     return(cols)
   })
+  
+  # only added so that the default_vars specified with tplyr_table module work
+  not_used_defaults <- !names(default_vars) %in% names(col_list)
+  if (any(not_used_defaults)) {
+    col_list <- append(col_list, default_vars[not_used_defaults])
+  }
 
   return(col_list)
 }

Original file line number	Diff line number	Diff line change
`@@ -111,6 +111,12 @@ fill_default_vars <- function(default_vars, dataset) {`
`111`	`111`	`}`
`112`	`112`	`return(cols)`
`113`	`113`	`})`
	`114`	`+`
	`115`	`+ # only added so that the default_vars specified with tplyr_table module work`
	`116`	`+ not_used_defaults <- !names(default_vars) %in% names(col_list)`
	`117`	`+ if (any(not_used_defaults)) {`
	`118`	`+ col_list <- append(col_list, default_vars[not_used_defaults])`
	`119`	`+ }`
`114`	`120`
`115`	`121`	`return(col_list)`
`116`	`122`	`}`