R/modify_backgroundjs.R

In ocelhay/shinybox: Create Standalone R-Shiny Apps

#' Modify background.js to include the call to the shiny app
#'
#' @param background_js_path path to the final background.js, not the one in inst/...
#' @param my_package_name package name, will be used for namespacing- (e.g. 'dplyr' in 'dplyr::filter()')
#' @param function_name function that runs your shiny app - (e.g. 'filter' in 'dplyr::filter()')
#' @param r_path path from "r_lang" folder to the R/Rscript executable
#'
#' @return none, side effect
#' @export
#'
modify_background_js <- function(background_js_path,
                                 my_package_name,
                                 function_name,
                                 r_path){
  
  if (!file.exists(background_js_path)) stop("modify_background_js() failed because background_js_path didn't point to an existing file.")
  
  background_js_contents <- readLines(background_js_path)
  
  R_SHINY_FUNCTION <- paste0(my_package_name, "::", function_name)
  
  background_js_contents <- sapply(background_js_contents,
                                   function(x) {
                                     glue::glue(x, .open = "<?<", .close = ">?>")
                                   })
  
  writeLines(background_js_contents, background_js_path)
}