R/tmp1.R

In AMUFacultyOfEnglish/ENRanalytics: A package facilitating common E&R data processing tasks

# # Create a list of colors for DT layout
# colorFormat <- c("white", rep(c(RColorBrewer::brewer.pal(9,'Blues'),'#08306B'), each = 10))
# 
# # create a layout of cells
# formColumn <- function(colorTab, fontBoldcolor = "white") {
# 
#   num_value <- substitute(readr::parse_number(x))
# 
#   formatter("span",
#             style = x ~ style(display = "block",
#                               background = colorTab[eval(num_value) + 1],
#                               color = ifelse(eval(num_value) > 50, fontBoldcolor, 'black'),
#                               padding = "3px",
#                               border.radius = "4px"))
# }
# 
# # Create the whole mechanism to color columns
# formDatatable <- function(data, format_col, method = 'formColumn', color = 'colorFormat') {
# 
#   col_number <- eval(colnames(data)[format_col])
# 
#   exe_text <- paste0('formattable(data, list(',
#                      paste0('`',col_number, '` = ', method, '(', color, ')', collapse = ', '),
#                      '))')
# 
#   eval(parse(text = exe_text))
# }
# 
# # Use this function to allow usege of factor column in DT properly
# setFactorCol <- function(data, ...) {
#   tmpTable <- data.frame(
#     formattable:::render_html_matrix.formattable(
#       formDatatable(data, ...)
#     ),
#     stringsAsFactors = FALSE)
# 
#   # tmpTable[,1] <- data[,1]
#   # tmpTable[,factor_col] <- data[,factor_col]
# 
#   return(tmpTable)
# }