作者TreeMan (好啊...)
看板R_Language
标题Re: [问题] Shiny在下拉选单与按钮间的回传值
时间Mon Jun 22 20:46:55 2020
action btn每按一次+1
所以你的if判别在btn按一次以後都是TRUE
server改成下面这样就可以正常运作了
server <- function(input, output) {
dd = 0
ee = 0
output$res = renderPrint({
stnid = NULL
if (input$obs.time.ok){stnid = isolate(input$stn)}
if (input$DD > dd){stnid = "DD"; dd <<- dd + 1}
if (input$EE > ee){stnid = "EE"; ee <<- ee + 1}
print(input$DD)
print(dd)
return(stnid)
})
}
不过还是改用observer比较好XD
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 42.77.105.153 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1592830017.A.EAF.html
※ 编辑: TreeMan (42.77.105.153 台湾), 06/22/2020 20:47:42
1F：推 tytony: 完全忘记actionbutton会累加 照cywhale大的方法去改OK了 06/22 23:07