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/
: 先感谢各位的回复