R/utils.R

In yusuzech/shinyEx: Extend Shiny Modules and Inputs

#' get resource file path
wwwResourcePath <- function(path){
    system_path <- system.file("www",package = "shinyEx", mustWork = TRUE)
    file_path <- paste0(system_path,"/",path)
    if(!file.exists(file_path)){
        stop(paste0(file_path," does not exist"))
    }
    return(file_path)
}

#' read resource file into text
readwwwResource <- function(path){
    file_path <- wwwResourcePath(path)
    return(paste0(readLines(file_path),collapse = "\n"))
}

#' use CSS templates with < & >
glueCSS <- function(...,.envir = parent.frame()){
    glue::glue(...,.open = "{{", .close = "}}",.envir = .envir)
}


#' using formattable functions to format a vector given its type
#' 
#' @param x a numeric vector
#' @param type type for the vector, valid values are "currency", "percent", 
#' "comma" and "accounting"
#' @param digits digits for the number
#' @param symbol, currency symbol. only works when type is currency.
#' @param remove_infinite default to TRUE. Conver NA,NaN, Inf ... to ""
#' 
#' @return a character vector with formatted numbers
#' 
#' @export
format_number <- function(x,type,digits = 0,symbol = "$",remove_infinite = TRUE){
    if (type == "currency") {
        out <- formattable::currency(x, digits = digits,symbol = symbol)
    } else if (type == "percent") {
        out <- formattable::percent(x, digits = digits)
    } else if (type == "comma") {
        out <- formattable::comma(x, digits = digits)
    } else if (type == "accounting") {
        out <- formattable::accounting(x, digits = digits)
    }
    if(remove_infinite == TRUE){
        out_keep <- ifelse(is.finite(out),TRUE,FALSE)
        out <- as.character(out)
        out <- ifelse(out_keep,out,"")
    } else {
        out <- as.character(out)
    }
    return(out)
}