refactor: also move the argument check to different file as will be reused

timcadman · timcadman · commit 039536aacce0 · 2025-12-09T12:44:02.000+01:00
diff --git a/R/ds.colnames.R b/R/ds.colnames.R
@@ -55,7 +55,7 @@ ds.colnames <- function(x=NULL, datasources=NULL) {
   .check_df_name_provided(x)
 
   cally <- call("colnamesDS", x)
-  column_names <- DSI::datashield.aggregate(datasources, cally)§
+  column_names <- DSI::datashield.aggregate(datasources, cally)
   return(column_names)
 
 }

Original file line number	Diff line number	Diff line change
`@@ -55,7 +55,7 @@ ds.colnames <- function(x=NULL, datasources=NULL) {`
`55`	`55`	`.check_df_name_provided(x)`
`56`	`56`
`57`	`57`	`cally <- call("colnamesDS", x)`
`58`		`- column_names <- DSI::datashield.aggregate(datasources, cally)§`
	`58`	`+ column_names <- DSI::datashield.aggregate(datasources, cally)`
`59`	`59`	`return(column_names)`
`60`	`60`
`61`	`61`	`}`