R/install_user_app.R

In ocelhay/shinybox: Create Standalone R-Shiny Apps

#' Install shiny app package and dependencies
#'
#' @param os os
#' @param library_path path to the new Electron app's R's library folder
#' @param repo_location {remotes} package function, one of c("github", "gitlab", "bitbucket", "local")
#' @param repo e.g. if repo_location is github: "ocelhay/shinyboxtestapp" ; if repo_location is local: "C:/Users/olivier/shinyboxtestapp"
#' @param repos cran like repository package dependencies will be retrieved from  
#' @param package_install_opts further arguments to remotes::install_github, install_gitlab, install_bitbucket, or install_local
#' @param rtools_path_win path to RTools (Windows)
#'
#' @return App name

#' @export
#'

install_user_app <- function(os,
                             library_path,
                             repo_location,
                             repo,
                             repos,
                             package_install_opts,
                             rtools_path_win) {
  
  accepted_sites <- c("github", "gitlab", "bitbucket", "local")
  
  if (is.null(library_path))  stop('Argument "library_path" is missing, with no default')
  
  if (!dir.exists(library_path)) {
    stop("install_user_app() library_path wasn't found.")
  }
  
  if (length(repo_location) != 1L) {
    stop(glue::glue("install_user_app(repo_location) must be character vector of length 1"))
  }
  
  if (!repo_location %in% accepted_sites) {
    stop(glue::glue("install_user_app(repo_location) must be one of: {accepted_sites}"))
  }
  
  if (!nchar(repo) > 0) {
    # TODO: Maybe make this a regex?
    stop("install_user_app(repo) must be character with > 0 characters")
  }
  
  if (!is.null(package_install_opts)) { 
    if (!is.list(package_install_opts)) {
      stop("package_install_opts  must be a list of arguments.")
    }
  }
  
  remotes_code <- glue::glue("install_{repo_location}")
  
  passthr <- c(as.list(repo), 
               repos = repos,
               package_install_opts, 
               force = TRUE,
               lib = library_path)
  
  tmp_file <- tempfile()
  save(list = c("remotes_code",
                "passthr"),
       file = tmp_file)
  
  # Copy {remotes} package to an isolated folder.
  # This is necessary to avoid dependency-install issues
  new_path <- file.path(tempdir(), "shinybox", "templib")
  dir.create(new_path, recursive = TRUE, showWarnings = FALSE)
  
  remotes_path <- system.file(package = "remotes")
  
  file.copy(remotes_path,
            new_path, 
            recursive = TRUE,
            copy.mode = FALSE)
  
  test <- file.path(new_path, "remotes")
  if (!file.exists(test))  stop("Wasn't able to copy remotes package.")
  
  remotes_library <- normalizePath(new_path, winslash = "/")
  
  # Copy {shinybox} package to an isolated folder.
  # This is necessary to avoid dependency-install issues
  remotes_path <- system.file(package = "shinybox")
  
  file.copy(remotes_path,
            new_path, 
            recursive = TRUE,
            copy.mode = FALSE)
  
  test <- file.path(new_path, "shinybox")
  if (!file.exists(test)) stop("Wasn't able to copy shinybox package.")
  
  
  old_R_LIBS <- Sys.getenv("R_LIBS")
  old_R_LIBS_USER <- Sys.getenv("R_LIBS_USER")
  old_R_LIBS_SITE <- Sys.getenv("R_LIBS_SITE")
  
  Sys.setenv(R_LIBS = library_path)
  Sys.setenv(R_LIBS_USER = remotes_library)
  Sys.setenv(R_LIBS_SITE = remotes_library)
  Sys.setenv(ESHINE_PASSTHRUPATH = tmp_file)
  Sys.setenv(ESHINE_remotes_code = remotes_code)
  
  
  # https://stackoverflow.com/questions/47539125/how-to-add-rtools-bin-to-the-system-path-in-r
  if (identical(os, "win") & !is.null(rtools_path_win)) {
    message("Add RTools to R system path.")
    Sys.setenv(PATH = paste(rtools_path_win, Sys.getenv("PATH"), sep = ";"))
  }
  
  tmp_file2 <- tempfile()
  file.create(tmp_file2)
  Sys.setenv(ESHINE_package_return = tmp_file2)
  
  message("Installing your Shiny package into shinybox framework.")
  
  # System Install Packages
  if (identical(os, "win")) {
    rscript_path <- file.path(dirname(library_path),  # important to have base:: !
                              "bin",
                              "Rscript.exe")
    
    system2(rscript_path, "-e shinybox::install_package()")
  }
  
  if (identical(os, "mac")) {
    rscript_path <- file.path(dirname(library_path), "bin", "R")
    system2(rscript_path, "-e 'shinybox::install_package()'")
  }
  
  
  on.exit({
    Sys.setenv(R_LIBS = old_R_LIBS)
    Sys.setenv(R_LIBS_USER = old_R_LIBS_USER)
    Sys.setenv(R_LIBS_SITE = old_R_LIBS_SITE)
    Sys.setenv(ESHINE_PASSTHRUPATH = "")
    Sys.setenv(ESHINE_remotes_code = "")
  })
  message("Finshed: Installing your Shiny package into shinybox framework")
  
  # TODO: break into unit-testable function
  user_pkg <- readLines(tmp_file2)
  
  return(user_pkg)
}