R/runSrc.R

In kruny1001/rRemoteSDSU: rRemoteSDSU Web Application

#' 1.1 List 
#' 
#' Returns a row with the latest price for a given stock.
#' 
#' @param text source code of R. Required.
#' @return ggplot object.
#' @export
#' 

runSrc <- function(text= "a <- 1+1", keep.source = TRUE){
  library(ggplot2)
  library(jsonlite)
  library(RJSONIO)
  library(readr)
  writeLines(text, con="input.R")
  result <- source('input.R', local = TRUE)
  jsonoutput <- toJSON(result)
}