1. in server.R 可能是你要的方式？参考看看，若不是再讨论.. output$load_new_data_but <- renderUI({ fileInput('load_newdata', ...) }) observeEvent(input$load_newdata,{ if (is.null(input$load_newdata)) return(NULL) isolate({xt <- input$load_newdat}) df <- try( #read your data in xt$datapath here ) ## then get your min/max value from dataframe, df ## assume out[1] <- YourMin; out[2] <- YourMax updateDateRangeInput(session, "YourUIid", start=out[1],end=out[2]) }) 2. 我的DT::datatable打中文不会挂，不确定你的问题，也许是编码问题？ 可以试着用read.csv(,..encoding= ) 或其他转编码转成UTF-8试看看再让DT::datatable 吃进去 3. 没用过shiny.io, 不过我若在自己的server很快disconnect挂掉，通常按F12 看console output message可以找到一些蛛丝马迹 ※ 引述《clansoda (小笨)》之铭言： : 各位好，我最近正在学习怎麽写一个shiny的简单应用 : http://pastebin.com/wnj4P7Xc 这是我的server.R : http://pastebin.com/XdEGQhjs 这是我的ui.R : 我的应用是想让我们公司的人上传csv档 : 来评估这段时间的销售状况 : 我的第一个问题是，如果我想让使用者上传档案以後 : 接着让server.R回传这个档案内的日期最小值与日期最大值 : 给ui.R端告诉她datarangeInput的min跟max各位多少的话 : 有这样的function可以做到吗? 我是看updateDateInput的manual : 可是我看不太懂这个是不是我要的那种 : 第二个问题是我是用datatableOutPut的形式去输出我的最後资料 : 因为我看到这种输出，他是会内建搜寻栏可以使用的，这样可以找到要找的 : 品项名称，但是现在的问题是他只要键入中文立刻就会error : http://imgur.com/a/WWNuW 这是error的类型 我拿去google也没得到类似的 : 问题与回覆。因此我自己写了一个textinput的格式来作为暂时的功能替代 : 虽然功能一样但是就多了好几格 : 第三个问题是我把这个shiny应用发布到shiny.io上面 : 但是一开他就disconnect，这样的问题是不是我的应用写错了什麽 : 导致她一开就像是crush一样立刻就断掉了呢? : 这是我的shiny.io的网址 https://bonnyread.shinyapps.io/salessearch/ : 先感谢各位的回覆 --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 140.112.65.48 ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1474594114.A.394.html