#' @title IsRServer
#' @description This function indicates if it is being run on an R server.
#' @return TRUE if running on an R server. False otherwise.
#' @export
IsRServer <- function()
{
node.name <- Sys.info()[["nodename"]]
node.name == "reusdev" ||
grepl("^reustest.*", node.name) ||
grepl("^r.*prod.*", node.name)
}
#' @title IsTestRServer
#' @description This function indicates if it is being run on the test R
#' server.
#' @return TRUE if running on the test R server. False otherwise.
#' @export
IsTestRServer <- function()
{
node.name <- Sys.info()[["nodename"]]
grepl("^reustest.*", node.name)
}
#' @title IsDevRServer
#' @description This function indicates if it is being run on the development R
#' server.
#' @return TRUE if running on the development R server. False otherwise.
#' @export
IsDevRServer <- function()
{
node.name <- Sys.info()[["nodename"]]
grepl("^reusdev$", node.name)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.