add back knit_print.alpha

Author: rubenarslan

NAMESPACE

@@ -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)

R/label_browser.R

@@ -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

R/psych_print.R

@@ -33,3 +33,21 @@ knit_print.htest <- function(x, ...) {
     paste0(utils::capture.output(print(x)), collapse = "\n"),
     "\n```\n\n\n"))
 }
+
+
+#' Pretty-print a Cronbach's alpha object
+#'
+#' Turn a [psych::alpha()] object into HTML tables.
+#'
+#' @param x a psych alpha object
+#' @param indent add # to this to make the headings in the components lower-level. defaults to beginning at h5
+#' @param ... ignored
+#'
+#' @export
+#' @examples
+#' example("alpha", "psych")
+#' knitr::knit_print(a4)
+#'
+knit_print.alpha <- function(x, indent = '######', ...) {
+  rmdpartials::partial(require_file("_knit_print_psych.Rmd"))
+}