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