表示/非表示ボタン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';")))) 
     )))) 

このコードを考えました問題は、私の最初のタブでそれを表示する必要がありますが、私はプロットに戻って、サマリーに戻っても、ボタンは隠れたままですが、ボタンは隠されています。

Answer 1

を見た後：How to use tabPanel as input in R Shiny?

私はobserveEventと入力$のタブセットオプションと遊ぶことにしました。結果は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が初期化されたときに、ボタン要素は、最後のスタイルの変更（隠されたものを保持するという事実のためでした）それは反応しないので、私が選択したタブに応じて変化しませんでした。