Timestamp: r Sys.time()
list_packages <- c("data.table", "knitr", "DT", "sparkline") if (length(setdiff(list_packages, rownames(installed.packages()))) > 0) { install.packages(setdiff(list_packages, rownames(installed.packages()))) } library(data.table) library(expdata) library(knitr) library(DT) library(sparkline) edadata <- data.table(get(params$data))
m <- nrow(edadata) meta <- data.frame(Attribute = c("Num Columns", "Num Row"), Value = c(ncol(edadata), m)) datatable(meta)
data.table(head(edadata))
num_out <- data.table(num_summary(edadata)) num_out[, var_dist := column_inlinebox(edadata)] cselect1 <- c(1:7, 21) out <- datatable(num_out[, cselect1, with = FALSE], escape = FALSE, filter = 'top', options = list(paging = FALSE, fnDrawCallback = htmlwidgets::JS( ' function(){ HTMLWidgets.staticRender(); } ' ) )) out <- spk_add_deps(out) out <- formatStyle(out, columns = c("miss %", "zero %"), color = styleInterval(0.1, c('#636363', '#f03b20')) ) formatPercentage(out, columns = c("miss %", "zero %") , digits = 2)
num_out <- num_summary(edadata) cselect2 <- c(1:3, 8:11) datatable(num_out[, cselect2, with = FALSE])
num_out <- num_summary(edadata) cselect3 <- c(1:3, 12:16) datatable(num_out[, cselect3, with = FALSE])
num_out <- num_summary(edadata) cselect4 <- c(1:3, 17:20) datatable(num_out[, cselect4, with = FALSE])
char_out <- char_summary(edadata) datatable(char_out)
date_out <- date_summary(edadata) dselect1 <- c(1:7) datatable(date_out[, dselect1, with = FALSE])
date_out <- date_summary(edadata) dselect2 <- c(1:3, 8:10) datatable(date_out[, dselect2, with = FALSE])
log_out <- log_summary(edadata) datatable(log_out)
Since, there are no logical variable function returned the warning message and stopped.
fac_out <- factor_summary(edadata) datatable(fac_out)
sessionInfo()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.