R Shiny切换动作链接文本

Question

我正在尝试做一些我认为相对简单的事情，但我似乎无法弄明白。

我正在尝试使用actionLink，当按下该链接时，会为用户提供其他信息。再次按下时，它会隐藏信息。我可以做得很好，但我正在努力的是更新actionLink的文本。

我想让它在隐藏额外信息时读取“显示附加信息”，然后在显示信息时“隐藏其他信息”。我已经阅读了以下问题/答案，但无法让它发挥作用。

Modify shiny action button once it is clicked

Update label of actionButton in shiny

我在下面提供了一个简单的代码，但真实的例子将会复杂得多。

感谢您的时间和帮助。

shinyApp(
  ui = shinyUI(fluidPage(useShinyjs(),
                         actionLink("button", "Show additional"),
                         hidden(
                           div(id='text_div',
                               verbatimTextOutput("text")
                               )
                           )
                         )
               ),

  server = function(input, output, session){
    observeEvent(input$button, {
      toggle('text_div')
      output$text <- renderText({"Additional"})
    })

  }
)

Answer 1

您可以检查input$button的值（每次单击时增加1），并使用{{1}更新actionLink label参数的值。 }}：

updateActionButton