Re: [問題] 關於一些shiny的問題

看板R_Language作者cywhale (cywhale)時間9年前 (2016/09/23 09:28)推噓1(1推 0噓 1→)

留言2則, 1人參與討論串2/2 (看更多)

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://www.ptt.cc/bbs/R_Language/M.1474594114.A.394.html