R语言 如何打开/关闭发光动作按钮标题?(以及发光中的其他设置)

k2fxgqgv  于 2023-04-18  发布在  其他
关注(0)|答案(1)|浏览(101)

我想我的actionButton之间切换“显示过滤器选项”和“隐藏过滤器选项”在其标题,当我点击它.理想情况下,也改变它的颜色太.
下面的代码,不工作(它给出Error: argument is of length zero

renderUI(
  actionButton("button.filtering", 
               ifelse(
                 is.null(input$button.filtering), 
                 "Hide", 
                 ifelse ( input$button.filtering %% 2 == 1, "Hide", "Show" )
               ) )
)

哪一个有用?
我使用这个actionButton来显示/隐藏额外的设置。如果你有任何其他(更好)的想法来实现同样的-请让我知道。谢谢!

niknxzdl

niknxzdl1#

一个选项是在UI中创建actionButton,然后使用observeEvent通过updateActionButton更新服务器中的标签:

library(shiny)

ui <- fluidPage(
  actionButton(
    "button.filtering",
    "Hide",
  )
)

server <- function(input, output, session) {
  observeEvent(input$button.filtering, {
    label <- if (input$button.filtering %% 2 == 0) "Hide" else "Show"
    
    updateActionButton(inputId = "button.filtering", label = label)  
  })
}

shinyApp(ui, server)

相关问题