gpt4 book ai didi

r - RShiny 中的 actionButton : alternative to reset value

转载 作者:行者123 更新时间:2023-12-04 19:06:01 25 4
gpt4 key购买 nike

我读过一些主题,说不可能用 Shiny Package 重置 actionButton 的值,但我找不到任何技巧来解决我的问题。

我想使用以下代码删除主面板中的文本和按钮:

library(shiny)

shinyUI(fluidPage(

titlePanel("Trying to reset text !"),

sidebarLayout(
sidebarPanel(
actionButton("button1","Print text")
),

mainPanel(
textOutput("textToPrint"),
br(),
uiOutput("uiButton2")
)
)
))

shinyServer(function(input, output) {

output$textToPrint <- renderText({
if(input$button1==0) (return(""))
else (return("Button clicked"))
})

output$uiButton2 <- renderUI({
if(input$button1==0) (return ())
else (return(actionButton("button2","Reset text and this button")))
})

})

不可能的替代方案是什么 输入$button1 = 0 ?

在此先感谢您的帮助,

马特

最佳答案

感谢 Joe Cheng,这是一个很好的方法:

shinyServer(function(input, output) {
values <- reactiveValues(shouldShow = FALSE)

observe({
if (input$button1 == 0) return()
values$shouldShow = TRUE
})

observe({
if (is.null(input$button2) || input$button2 == 0)
return()
values$shouldShow = FALSE
})

output$textToPrint <- renderText({
if (values$shouldShow)
"Button clicked"
})
output$uiButton2 <- renderUI({
if (values$shouldShow)
actionButton("button2","Reset text and this button")

})
})

关于r - RShiny 中的 actionButton : alternative to reset value,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/24184070/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com