2

我有一个包含 3 个 tabItems 的应用程序。我想在第二页上使用滑块以交互方式在第三页上显示相同的结果，即如果第二页滑块发生变化，那么第三页滑块也应该分别发生变化。

我在服务器端有一个反应功能

choose_segment <-  reactive({

  Multiple conditions for dropdown{Due to security cant share the exact code.}

  })

这个choose_segment在UI中被引用过一次，现在我也想在第三页上使用它，但是当我在第三页上调用该函数时，它没有在ui上显示任何东西，也没有给出任何错误。在 UI 中，它在 UIoutput 中被调用。

uiOutput(choose_segment())

我的观察：我认为根据我的研究，我们不能直接调用一个函数两次，所以我正在做的是我做了两个不同的函数并从它们调用相同的函数，即

output$chooseSegment1 <- renderUI({
  choose_segment()
  })
  output$chooseSegment2 <- renderUI({
    choose_segment()
  })

问题：它给了我输出，但它们都不是交互式的:(

请提供一个解决方案，以便我可以使两个滑块以交互方式工作。

4

1 回答 1

1

我遇到了同样的情况，因为我想改变代码结构。我将动态输出 uiOutput 设置为下拉菜单 ob ui，然后在我的服务器中使用与服务器上观察中的 Input$xyz 相同的内容，它对我有用。代码 ：

UI : column(3, selectInput(inputId="ABC",label= "Choose ABC"))
 column(3, selectInput(inputId="ABC1",label= "Choose ABC"))
Server : observe({

    if(is.null(tab2_summary())) return(NULL)
    updateSelectInput(session, "ABC", value = input$ABC)

  })
observe({
  updateSelectInput(session, "ABC1", value = input$ABC)

})
observe({

  updateSelectInput(session, "ABC", value = input$ABC1)

})

所以这就是我如何使 selectInput 在两个不同的页面上交互。供您参考，有一个完整的可重现代码。请参考，

library(shiny)
# UI ----------------------------------------------------------
ui <- navbarPage("Navbar!",
                 tabPanel("Plot", sidebarLayout(sidebarPanel(
                   radioButtons("yaxis1", "y-axis", c("speed"="speed", "dist"="dist"),
                                selected = "speed"
                   )),
                   mainPanel( plotOutput("plot"),
                              textOutput("test2")))),  # for input checking

                 tabPanel("Summary", sidebarLayout(sidebarPanel(
                   radioButtons("yaxis2", "grouping-var", c("speed"="speed", "dist"="dist")
                   )),
                   mainPanel(
                     verbatimTextOutput("summary"),
                     textOutput("test1")
                   )))
)
# Server ------------------------------------------
server <- function(input, output, session) {

  observe({
    x <- input$yaxis1
    updateRadioButtons(session, "yaxis2", selected = x)
  })

  observe({
    y <- input$yaxis2
    updateRadioButtons(session, "yaxis1", selected = y)
  })

  # output$test1 <- renderPrint({cat("yaxis1", input$yaxis1)})
  # output$test2 <- renderPrint({cat("yaxis2", input$yaxis2)})
  # output$plot <- renderPlot({ plot(cars[['speed']], cars[[input$yaxis1]]) })
  # output$summary <- renderPrint({ summary(cars[[input$yaxis2]]) })
}
shinyApp(ui, server)

我希望它会对你有所帮助。

于 2018-06-25T10:45:58.910 回答