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