fix: ordering of columns and minor bug

averissimo · averissimo · commit e7729834d3dd · 2025-01-08T12:03:42.000Z
diff --git a/R/tm_outliers.R b/R/tm_outliers.R
@@ -722,7 +722,8 @@ srv_outliers <- function(id, data, reporter, filter_panel_api, outlier_var,
       # Generate decoratable object from data
       qenv <- within(qenv, {
         table <- rlistings::as_listing(
-          tibble::rownames_to_column(summary_table, var = " ")
+          tibble::rownames_to_column(summary_table, var = " "),
+          key_cols = character(0L)
         )
       })
 
@@ -1021,7 +1022,7 @@ srv_outliers <- function(id, data, reporter, filter_panel_api, outlier_var,
           expr_is_reactive = TRUE
         )
       },
-      setNames(c("box_plot", "density_plot", "cumulative_plot")),
+      stats::setNames(nm = c("box_plot", "density_plot", "cumulative_plot")),
       c(box_plot_q, density_plot_q, cumulative_plot_q)
     )
 
diff --git a/teal.modules.general.Rproj b/teal.modules.general.Rproj
@@ -1,4 +1,5 @@
 Version: 1.0
+ProjectId: 2782a0d1-5126-4b5c-b177-1150fb426d43
 
 RestoreWorkspace: No
 SaveWorkspace: No

Original file line number	Diff line number	Diff line change
`@@ -722,7 +722,8 @@ srv_outliers <- function(id, data, reporter, filter_panel_api, outlier_var,`
`722`	`722`	`# Generate decoratable object from data`
`723`	`723`	`qenv <- within(qenv, {`
`724`	`724`	`table <- rlistings::as_listing(`
`725`		`- tibble::rownames_to_column(summary_table, var = " ")`
	`725`	`+ tibble::rownames_to_column(summary_table, var = " "),`
	`726`	`+ key_cols = character(0L)`
`726`	`727`	`)`
`727`	`728`	`})`
`728`	`729`
`@@ -1021,7 +1022,7 @@ srv_outliers <- function(id, data, reporter, filter_panel_api, outlier_var,`
`1021`	`1022`	`expr_is_reactive = TRUE`
`1022`	`1023`	`)`
`1023`	`1024`	`},`
`1024`		`- setNames(c("box_plot", "density_plot", "cumulative_plot")),`
	`1025`	`+ stats::setNames(nm = c("box_plot", "density_plot", "cumulative_plot")),`
`1025`	`1026`	`c(box_plot_q, density_plot_q, cumulative_plot_q)`
`1026`	`1027`	`)`
`1027`	`1028`