Question

我正在创建一个包含多个标签的闪亮界面，并有几个问题：

是否可以创建一个“操作”按钮，供用户单击以仅刷新按钮所在的选项卡？
另一个问题 - 一旦单击ActionButton，是否可以刷新整个闪亮的应用而不仅仅是选项卡？

所以在ui.R我们有：

actionButton("RefreshViewExperiment","Refresh Experiments!")

对于上述查询，server.R代码应该是什么？

Answer 1

您可以在标签的内容中添加反应式侦听器。（但不是标签本身。）只要你点击那个按钮，内容就会刷新。

看到这个例子，我希望它不言自明。

library(shiny)

app <- shinyApp(
  ui = shinyUI(
    fluidPage(
      tabsetPanel(
        tabPanel("no1",
          actionButton("refresh", "refresh"),
          actionButton("refreshboth", "refresh both"),
          textOutput("number1")
        ),
        tabPanel("no2", 
          textOutput("number2")
        )
      )
    )
  ), 

  server = function(input, output, session){

    backgroundchange <- reactive({
      invalidateLater(1000, session)

      runif(1)
    })

    output$number1 <- renderText({
      Listener1 <- input$refresh
      ListenerBoth <- input$refreshboth

      isolate(backgroundchange())
    })

    output$number2 <- renderText({
      ListenerBoth <- input$refreshboth

      isolate(backgroundchange())
    })        
  }      
)

runApp(app)

闪亮 - 手动刷新Tab /整个应用程序

1 个答案: