diff options
| author | prashantsinalkar | 2019-07-03 17:55:31 +0530 |
|---|---|---|
| committer | prashantsinalkar | 2019-07-03 17:55:31 +0530 |
| commit | 0c28dadc43107d3b06c1dcb2b7a8121520d64f8a (patch) | |
| tree | 3d0d55769495fb3c1242398f86ffdad84d2fa4e0 | |
| parent | 58f7c7719aa8c64ecf84998207756af6b6a4a7c2 (diff) | |
| download | R_on_Cloud_Web_API-0c28dadc43107d3b06c1dcb2b7a8121520d64f8a.tar.gz R_on_Cloud_Web_API-0c28dadc43107d3b06c1dcb2b7a8121520d64f8a.tar.bz2 R_on_Cloud_Web_API-0c28dadc43107d3b06c1dcb2b7a8121520d64f8a.zip | |
added session for user
| -rw-r--r-- | plumber.R | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -25,10 +25,11 @@ function() #* @serializer unboxedJSON #* @post /rscript -function(code="", user_id="") +function(code="", session_id="") { - InputFile <- paste("/tmp/",user_id,"/",user_id,".R", sep="") - OutputFile <- paste("/tmp/",user_id,"/",user_id,".txt", sep="") + dir.create(file.path("/tmp/", session_id), showWarnings = FALSE) + InputFile <- paste("/tmp/",session_id,"/",session_id,".R", sep="") + OutputFile <- paste("/tmp/",session_id,"/",session_id,".txt", sep="") RunInputFile <- paste("Rscript", InputFile, sep=" ") fileConn<-file(InputFile) writeLines(code, fileConn) |