将服务器中生成的对象传递回ui中的ui

Question

我需要创建一个对象（或变量（在我的服务器部分，然后传递回ui checkboxGroupInput。我的文件有点复杂。在这里，我只使用菱形数据来说明我正在尝试做的事情，尽管应用程序正在做什么）是没有意义的，我创建了一个df（钻石数据集的子集），我正尝试将其传递回ui checkboxGroupInput，以便选择要显示的列，我的问题是如何将df传递回ui？提前。

这是我的app.r：

library(shiny)
library(ggplot2)
library(DT)

ui <- fluidPage(
    sidebarLayout(
        sidebarPanel(
            selectInput("nrow", label = h3("number of rows"), 
                        choices = list(5, 10, 20), 
                        selected = 5),
            checkboxGroupInput("show_vars", "Columns in diamonds to show:",
                                   names(df), selected = names(df))
        ),
        mainPanel(
            DT::dataTableOutput("mytable1")
            )
        )
    )


server <- function(input, output) {

    # choose rows to display
    df = diamonds[sample(nrow(diamonds), input$nrow), ]

    output$mytable1 <- DT::renderDataTable({
        DT::datatable(df[, input$show_vars, drop = FALSE])
    })

}

shinyApp(ui, server)

错误信息：

Warning: Error in .getReactiveEnvironment()$currentContext: Operation not allowed without an active reactive context. (You tried to do something that can only be done from inside a reactive expression or observer.)

Answer 1

您看到的特定错误是因为您试图在此行中的任何反应式上下文（根据错误）之外使用input$nrow 。

 df = diamonds[sample(nrow(diamonds), input$nrow), ]

因此，这需要进行某种反应式表达

另外，您可以使用renderUI和uiOutput函数在服务器内部创建UI元素。 这样，可以更轻松地从服务器控制UI。

library(shiny)
library(ggplot2)
library(DT)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      selectInput("nrow", label = h3("number of rows"), 
                  choices = list(5, 10, 20), 
                  selected = 5),
      uiOutput(outputId = "show_vars")
    ),
    mainPanel(
      DT::dataTableOutput("mytable1")
    )
  )
)


server <- function(input, output) {

  # choose rows to display
  df <- reactive({
    diamonds[sample(nrow(diamonds), input$nrow), ]
  })

  output$show_vars <- renderUI({
    checkboxGroupInput("show_vars", "Columns in diamonds to show:",
                       names(df()), selected = names(df()))
  })


  output$mytable1 <- DT::renderDataTable({
    DT::datatable(diamonds[, input$show_vars, drop = FALSE])
  })

}

shinyApp(ui, server)