diff options
-rw-r--r-- | README.md | 29 | ||||
-rwxr-xr-x | packageinstall.sh | 20 | ||||
-rw-r--r-- | requirements.txt | 6 | ||||
-rw-r--r-- | run.R | 4 |
4 files changed, 50 insertions, 9 deletions
@@ -1,19 +1,29 @@ # R_on_Cloud_Web_API +Run following Steps : +1) Install R on machine. +2) $ chmod +X packageinstall.sh +3) $ ./packageinstall.sh +4) $ Rscript run.R +5) Check in browser http://127.0.0.1:8001/__swagger__/ + +**----------------------------------------------------------------------------** **Run on local R console:** R version 3.4.4 - + **Requirements preinstalled R packages:** - - install.packages("plumber") - install.packages("jsonlite") - install.packages("readr") - install.packages("futile.logger") - install.packages("tryCatchLog") - install.packages("ggplot2") - ------------------------------------------ + + 1) install.packages("plumber") + 2) install.packages("jsonlite") + 3) install.packages("readr") + 4) install.packages("futile.logger") + 5) install.packages("tryCatchLog") + 6) install.packages("ggplot2") +**----------------------------------------------------------------------------** + + #run.R > library(plumber) > r <- plumb("plumber.R") # Where 'plumber.R' is the location of the file shown above > r$run(port=8001) @@ -28,3 +38,4 @@ R version 3.4.4 + diff --git a/packageinstall.sh b/packageinstall.sh new file mode 100755 index 0000000..d99af8d --- /dev/null +++ b/packageinstall.sh @@ -0,0 +1,20 @@ +#!/usr/bin/bash +while IFS=" " read -r pkg; +do + + + [ -z ${pkg} ] && help + + REXEC=$(which R) + + if [ -z ${REXEC} ]; then + echo "R not found, please ensure R is available and try again." + exit 1 + fi + + echo "install.packages(\"${pkg}\", repos=\"https://cran.rstudio.com/\")" | R --no-save +done < requirements.txt + + + + diff --git a/requirements.txt b/requirements.txt new file mode 100644 index 0000000..65f77c2 --- /dev/null +++ b/requirements.txt @@ -0,0 +1,6 @@ +plumber +jsonlite +readr +futile.logger +tryCatchLog +ggplot2
\ No newline at end of file @@ -0,0 +1,4 @@ + +library(plumber) +r <- plumb("plumber.R") # Where 'plumber.R' is the location of the file shown above +r$run(host="0.0.0.0", port=8001, swagger=TRUE)
\ No newline at end of file |