R shiny中如何动态设定文件路径，比如本地路径

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

求助高手：
R shiny中如何设定动态文本路径？
function(input,output,session){
  spcfile<-eventReactive(input$get,{
    setwd(input$path)----利用textInput文本空间，动态设置路径
    file_list=list.files(input$path)
    spc<-c()
    for (batch in file_list){
      #print(batch)
      spc01=data.frame(read.csv(batch,header=FALSE,blank.lines.skip=FALSE,fill=TRUE,skip=1,col.names = (1:26),stringsAsFactors=FALSE))
      spc <- rbind(spc, spc01)
    }
    names(spc)<-c("CUSTOMER_LOT_ID","LOT","PRODUCT","FAB","STATION","CONTROLITEM_ID","MEASURE_TIME","OPERATOR","SPECGROUP_ID",
                    "USL","SL","LSL","CONTROLGROUP_ID","X1","X2","X3","X4","X5","X6","X7","X8","X9","X10","X11","X12","X13")
    spc%>%filter(is.na(X1)==FALSE)->spc
    spc<-spc[,-26]
  })

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Shiny Shin function session output Shiny 动态路径