Make default_vars specified with tplyr_table work

zsigmas · zsigmas · commit 4feee7aea039 · 2025-07-17T11:26:19.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.1-9001
+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
@@ -113,6 +113,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
`@@ -113,6 +113,12 @@ fill_default_vars <- function(default_vars, dataset) {`
`113`	`113`	`}`
`114`	`114`	`return(cols)`
`115`	`115`	`})`
	`116`	`+`
	`117`	`+ # only added so that the default_vars specified with tplyr_table module work`
	`118`	`+ not_used_defaults <- !names(default_vars) %in% names(col_list)`
	`119`	`+ if (any(not_used_defaults)) {`
	`120`	`+ col_list <- append(col_list, default_vars[not_used_defaults])`
	`121`	`+ }`
`116`	`122`
`117`	`123`	`return(col_list)`
`118`	`124`	`}`