#' Prompt whether R can be installed or not
#'
#' @param app_root_path project path
#'
#' @return TRUE/FALSE
#'
.prompt_install_r <- function(app_root_path) {
app_root_path <- file.path(app_root_path, "app", "r_lang")
app_root_path <- normalizePath(app_root_path, winslash = "/", mustWork = FALSE)
if (!interactive()) {
return(TRUE)
} else {
mess <- glue::glue("Install R into electricShine app folder: {app_root_path}? (y/n)..")
answer <- readline(mess)
if (tolower(substr(answer, 1, 1)) == "y") {
return(TRUE)
} else {
return(FALSE)
}
}
}
#' Prompt whether nodejs can be installed or not
#'
#' @param nodejs_path nodejs install path
#'
#' @return TRUE/FALSE
#'
.prompt_install_nodejs <- function(nodejs_path) {
if (!interactive()) {
return(TRUE)
} else if (is.null(nodejs_path) || is.na(nodejs_path)){
nodejs_path <- file.path(system.file(package = "electricShine"), "nodejs")
mess <- glue::glue("Can electricShine try and install nodejs to: {nodejs_path}? (y/n)... ")
answer <- readline(mess)
if (tolower(substr(answer, 1, 1)) == "y") {
return(TRUE)
} else {
return(FALSE)
}
} else {
mess <- glue::glue("If not found, can electricShine try and install nodejs to: {nodejs_path}? (y/n)... ")
answer <- readline(mess)
if (tolower(substr(answer, 1, 1)) == "y") {
return(TRUE)
} else {
return(FALSE)
}
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.