选项卡上的显示/隐藏按钮选择R闪亮

Question

我的ui.R中有一个按钮，我只想在选择“摘要”选项卡时显示，所以我想到了这段代码

 fluidRow(
  column(4, 
   column(12,id="sub",
       actionButton("submit", "SUBMIT", width = "100%"))),
  column(8,
   bsCollapse(id = "collapse7", open = "Results",
       bsCollapsePanel("Results",
         tabsetPanel(
          tabPanel("Summary",
            tags$script(HTML("document.getElementById('sub').style.visibility = 'visible';")))
          tabPanel("Plot",
            tags$script(HTML("document.getElementById('sub').style.visibility = 'hidden';"))))
        ))))

问题是，按钮是隐藏的，即使在我的第一个选项卡中它应该是可见的，当我转到Plots并返回Summary时，按钮保持隐藏状态。

Answer 1

看看之后： 如何在R Shiny中使用tabPanel作为输入？

我决定使用observeEvent和输入$ tabset选项。 结果是100％工作，而且非常简单。 这是代码：

observeEvent(input$choices, {
 choice = input$choices
 if(choice == "Summary")
 {
  runjs(
    "document.getElementById('submit').style.visibility = 'visible';"
  )
 }
 else
 {
  runjs(
    "document.getElementById('submit').style.visibility = 'hidden';"
  )
 }
})

此外，我发现了为什么我以前的代码无法正常工作，这是因为当UI初始化时，按钮元素保留了最后一个样式修改（隐藏的代码），并且根据选项卡没有改变我选择了，因为它没有被动反应。