R/utils.R

In DanChaltiel/crosstableAssistant: Crosstable Assistant

show_error = function(x, title="Error", footer = modalButton("OK")){
  showModal(modalDialog(title=title, glue(x, .envir = parent.frame()),
                        footer=footer, easyClose=TRUE))
}



#' Prints something in the JS console
#'
#' You can use the `glue` syntax to include variables in the log. You can parametrize the color and the background. The title argument simply put the background in red if TRUE.
#'
#' @importFrom shinyjs runjs
#' @importFrom glue glue
#' @seealso shinyjs::showLog console_var
#' @examples
#' console_log("Debug: I am on the line 437... For now at least...")
#' console_log("There was {nrow(iris)} rows in the iris dataset")
#' console_log("**Main Object Construction**, title=TRUE")
console_log = function(x, ..., color=NULL, bg=NULL, title=FALSE){
  msg = glue(as.character(x), ..., .envir = parent.frame())
  if(is.null(color)) color='#f00'
  if(is.null(bg)) bg='#fff'
  if(title==TRUE)
    runjs(glue("console.log('%c{msg}', 'background:{color}; color:{bg}');"))
  else
    runjs(glue("console.log('{capture.output(msg)}');"))
}


#' Prints variables in the JS console
#'
#' Print one or several variables into the Javascript console. Values will be coerced to character and pasted with `collapse=", "` (see examples).
#'
#' @importFrom shinyjs runjs
#' @importFrom glue glue
#' @importFrom rlang enquos as_label
#' @importFrom purrr map map_chr
#' @seealso shinyjs::showLog console_log
#' @examples
#' #in server.R
#' console_var(letters[1], letters[2:4])
#' console_var(names(iris)[1:2], dim(iris))
#'
#' #output in the JS console:
#' #letters[1]=[a], letters[2:3]=[b, c, d]
#' #names(iris)[1:2]=[Sepal.Length, Sepal.Width], dim(iris)=[150, 5]
console_var = function(...){
  env=parent.frame()
  labs = enquos(...) %>% map_chr(as_label)
  vals = glue("{{{labs}}}") %>%
    map(~glue(.x, .envir = env)) %>%
    map(~glue("[{xx}]", xx=paste(as.character(.x), collapse=", ")))
  msg = glue("{labs}={vals}") %>% paste(collapse=", ")
  msg = glue("console.log('{msg}');")
  runjs(msg)
}