R/rthis.R

In dockerfiler: Easy Dockerfile Creation from R

#' Turn an R call into an Unix call
#'
#' @param code the function to call
#'
#' @return an unix R call
#' @export
#'
#' @examples
#' r(print("yeay"))
#' r(install.packages("plumber", repo = "http://cran.irsn.fr/"))
r <- function(code) {
  code <- paste(deparse(substitute(code)), collapse = " ")
  code <- gsub(" [2,]", " ", code)
  glue("R -e '{code}'")
}