[問題] DT::datatable篩選問題

[gtgrthrst (gtgrt)]

剛好最近有學弟需要近兩年大寮測站的降雨資料
若是手動查詢則需要大量時間
所以我就幫忙寫了一段程式幫忙取得兩年間的降雨資料
以下是相關的程式碼
分享給大家
以後有空問題或是有空再補充資料

而目前遇到一個問題在以google sheet作為資料庫中
DT::datatable中filter只能在前兩欄起作用
mutate新增的第三欄無法使用filter
若是將資料調換過來也是mutate新增的欄位沒有效果
https://i.imgur.com/ewkB55l.png

https://hackmd.io/cAVB2a4XRsC4SvAFhmygNQ#%E6%B8%AC%E8%A9%A6%E7%B6%B2%E5%9D%801

相關程式碼

https://rstudio.cloud/spaces/81311/project/1504940
https://gist.github.com/gtgrthrst/766524776fe21eebc33f4c207a78290a

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.39.172.211 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1599204618.A.2EA.html
※ 編輯: gtgrthrst (114.39.172.211 臺灣), 09/04/2020 15:31:22
※ 編輯: gtgrthrst (114.39.172.211 臺灣), 09/04/2020 15:31:48
推 kokolotl: mutate完塞dataframe或datatable再給DT吃呢？ 人在外面
→ kokolotl: 沒電腦可以測XD
推 locka: 問題原因是因為DT套件在shiny裡面只會 render 一次所以之後
推 locka: mutate產生才會沒作用
→ gtgrthrst: 感謝各位建議那我嘗試看看先塞在一個dataframe
推 cywhale: 我其實不太確定dplyr語法 run你的code都有Error: Column
→ cywhale: `Last_Week_Total` is of unsupported class data.frame
→ cywhale: 但換成data.table就成功了 dt<-copy(gdata2)%>%setDT()
→ cywhale:  dt[`date-D`>= as.Date(input$daterange[1],"%Y-..,]%>%
→ cywhale: .[,`Last_Week_Total`:=sum(`Last_Week_Total`),
→ cywhale: by=.(`date-D`)]%>%DT::..很正常so請檢查dplyr?那段code
推 kokolotl: 我都直接不使用dplyr  XD