【发布时间】:2018-03-07 21:03:33
【问题描述】:
我想点击一个按钮,触发 insertUI,计算一些东西,最后 removeUI。但是insertUI/removeUI在计算之后才生效。
我正在按照官方的例子来动态更新 UI。 https://shiny.rstudio.com/articles/dynamic-ui.html
在 removeUI 之后添加 Sys.sleep(2) 时,似乎是在删除元素之前执行的。
ui <- fluidPage(
actionButton("rmv", "Remove UI"),
textInput("txt", "This is no longer useful")
)
server <- function(input, output, session) {
observeEvent(input$rmv, {
removeUI(
selector = "div:has(> #txt)"
)
Sys.sleep(2)
})
}
shinyApp(ui, server)
这是什么原因,如何解决?
【问题讨论】: