rubenarslan · Oct 13, 2024
diff --git a/‎NAMESPACE
+1 b/‎NAMESPACE
+1
diff --git a/‎R/label_browser.R
+3-2 b/‎R/label_browser.R
+3-2
@@ -40,6 +40,7 @@ export(ended)
 export(expired)
 export(has_label)
 export(has_labels)
+export(knit_print.alpha)
 export(label_browser)
 export(label_browser_static)
 export(likert_from_items)
 
@@ -69,7 +69,7 @@ label_browser_static <- function(data = NULL, viewer = rstudioapi::viewer) {
                                                       "\n", "<br>")
     }
 
-    DT::datatable(labels,
+    DT::formatSignif(DT::datatable(labels,
                   caption = paste(df_name, " columns and labels"),
                   filter = 'top',
                   escape = FALSE,
@@ -80,7 +80,8 @@ label_browser_static <- function(data = NULL, viewer = rstudioapi::viewer) {
                     # dom = 't',
                     paging = FALSE
                     )
-                  )
+                  ), intersect(names(labels), c("complete_rate",
+                                                "mean", "sd")))
 }
 
 #' Browse and search variable and value labels
Original file line number	Diff line number	Diff line change
`@@ -69,7 +69,7 @@ label_browser_static <- function(data = NULL, viewer = rstudioapi::viewer) {`
`69`	`69`	`"\n", "<br>")`
`70`	`70`	`}`
`71`	`71`
`72`		`- DT::datatable(labels,`
	`72`	`+ DT::formatSignif(DT::datatable(labels,`
`73`	`73`	`caption = paste(df_name, " columns and labels"),`
`74`	`74`	`filter = 'top',`
`75`	`75`	`escape = FALSE,`
`@@ -80,7 +80,8 @@ label_browser_static <- function(data = NULL, viewer = rstudioapi::viewer) {`
`80`	`80`	`# dom = 't',`
`81`	`81`	`paging = FALSE`
`82`	`82`	`)`
`83`		`- )`
	`83`	`+ ), intersect(names(labels), c("complete_rate",`
	`84`	`+ "mean", "sd")))`
`84`	`85`	`}`
`85`	`86`
`86`	`87`	`#' Browse and search variable and value labels`