के साथ कई फाइलें अपलोड करें एचटीएमएल 5 विनिर्देश कई फ़ाइलों को <input type="file", ..., multiple="multiple">
के माध्यम से एक बार में अपलोड करने की अनुमति देता है। Rook आर पैकेज के साथ इसका लाभ उठाने का कोई तरीका है?रूक
यहाँ मेरी प्रयास है, लेकिन यह केवल चयनित फ़ाइलों में से एक को दिखाने के लिए लगता है:
library(Rook)
app <- function(env) {
req <- Rook::Request$new(env)
res <- Rook::Response$new()
res$write(
'<html><body>
Select files:
<form method="POST" enctype="multipart/form-data">
<input type="file" name="data" multiple="multiple">
<input type="submit" name="Upload">
</form>
</body></html>')
if (!is.null(req$POST())){
data <- req$POST()[['data']]
res$write("<pre>")
res$write(paste(capture.output(req$POST(),file=NULL),collapse='\n'))
res$write("</pre>")
res$write("<pre>")
res$write(paste(capture.output(data$filename,file=NULL),collapse='\n'))
res$write("</pre>")
}
res$finish()
}
s <- Rhttpd$new()
s$add(app=RhttpdApp$new(name="app", app=app))
s$start(listen="127.0.0.1", quiet=FALSE)
s$browse(1)
#s$stop(); s$remove(all=TRUE); rm(s)
हममम ... आप रूक मेलिंग सूची के लिए इसे भेजना चाहते हो सकता है। मुझे पता है कि रैपैच के साथ कई फाइलें अपलोड करना संभव है। – aL3xa