Remove meta form param names

delfiterradas · delfiterradas · commit 449279055f9d · 2025-09-30T20:31:40.000Z
diff --git a/assets/differentialabundance_report.qmd b/assets/differentialabundance_report.qmd
@@ -84,7 +84,7 @@ if (!file.exists(file_path)) {
   stop("Versions file does not exist at: ", file_path)
 }
 versions <- unlist(yaml.load_file(file.path(params$input_dir, params$versions_file)), recursive = FALSE)
-params_table <- data.frame(Parameter = sub("^meta\\.params\\.", "", names(unlist(params))), Value = unlist(params), row.names = NULL)
+params_table <- data.frame(Parameter = sub("^meta\\.(params\\.)?", "", names(unlist(params))), Value = unlist(params), row.names = NULL)
 
 # We'll subset the params table for different report sections
 make_params_table <- function(name, pattern = NULL, remove_pattern = FALSE){

Original file line number	Diff line number	Diff line change
`@@ -84,7 +84,7 @@ if (!file.exists(file_path)) {`
`84`	`84`	`stop("Versions file does not exist at: ", file_path)`
`85`	`85`	`}`
`86`	`86`	`versions <- unlist(yaml.load_file(file.path(params$input_dir, params$versions_file)), recursive = FALSE)`
`87`		`-params_table <- data.frame(Parameter = sub("^meta\\.params\\.", "", names(unlist(params))), Value = unlist(params), row.names = NULL)`
	`87`	`+params_table <- data.frame(Parameter = sub("^meta\\.(params\\.)?", "", names(unlist(params))), Value = unlist(params), row.names = NULL)`
`88`	`88`
`89`	`89`	`# We'll subset the params table for different report sections`
`90`	`90`	`make_params_table <- function(name, pattern = NULL, remove_pattern = FALSE){`