Question

有没有办法只在用户点击动作按钮时显示mainPanel中的所有内容？香港专业教育学院一直在互联网上寻找答案，但无法找到答案。我知道我可以使用隐藏 - 它适用于主面板内的较小元素，例如在点击时显示图片但不在整个mainPanel本身上工作。有什么建议？找到一种方法将整个主面板包装在一个隐藏的而不是包含在隐藏的mainPanel中的每个元素中，这样会更容易，但我似乎无法找到一种方法使其工作。

仪表板正文中的

：

fluidRow(
  column(12, actionButton("analyze", "Fetch Data!", width = "100px"))), 

hidden(    
     mainPanel(  
        hidden( (htmlOutput("artistpic")), // this works fine & shows on button click
        infoBoxOutput("approvalBox"))     
            )),

服务器：

  pic <- eventReactive(input$analyze2, {
      print(get_id_picture()[3])
      url = toString(get_id_picture()[3])
      print(url)
      url 
  })
  output$artistpic <- renderText({c('<img src="',pic(),'"width="17%" height="17%">')})

Answer 1

使用shinyjs很容易。

使用mainPanel()代码覆盖div()，以便您可以使用它的ID来切换它的可见性，并使用hidden()隐藏div标签启动应用，如下例所示：

# ui.R

fluidPage(
  useShinyjs(),
  actionButton("toggle.main.button", "Toggle Main"),
  div(id = "main",
    mainPanel(
      p("This paragraph is in main."),
      p("This one too!")
    )
  ) %>% shinyjs::hidden()
)

# server.R

library(shinyjs)

function(input, output, session) {

  # Toggling visability of main on button click.
  observeEvent(input$toggle.main.button, {
    shinyjs::toggle("main")
  })

}

有光泽：在动作按钮上单击显示mainPanel

1 个答案: