如何将闪亮的输入值转换为闪亮的输出表

Question

我有一个有很多输入值的闪亮应用程序.我希望输入值易于使用和/或可导出,因此我想将它们放入表格格式中.

以前,我有,data.table(a=input$a,b=input$b,...)但这不是一个非常有效的做事方式.

目标

将所有输入值以闪亮的表输出,而不必手动编写每个输入变量

背景

闪亮的输入对象是str:

List of 1
 $ impl:Classes 'ReactiveValues', 'R6' <environment: 0xf798e60> 
 - attr(*, "readonly")= logi TRUE
 - attr(*, "class")= chr "reactivevalues"

• rbindlist 导致错误: Item 1 of list input is not a data.frame, data.table or list
• 同样as.data.frame得到:cannot coerce class ""reactivevalues"" to a data.frame
• 然后我发现ReactiveValuesToList()哪些文档说的有效,as.list()但对象不会转换为内部rbindlist()

MWE

server <- function(input, output) {
  output$distPlot <- renderPlot({
    hist(rnorm(input$obs), col = 'darkgray', border = 'white')
  })

  # This is the bit I'm having trouble getting to work
  output$inputvals<-renderTable({
    as.data.frame(reactiveValuesToList(input))
  })
}

ui <- shinyUI(fluidPage(
  sidebarLayout(
    sidebarPanel(
      sliderInput("obs", "Number of observations:", min = 10, max = 500, value = 100)
    ),
    mainPanel(plotOutput("distPlot"), tableOutput("inputvals"))
  )
))

shinyApp(ui = ui, server = server)

Answer 1

要将闪亮的反应对象转换为R中的"标准"对象,请使用shiny::reactiveValuesToList()将S6类更改为标准列表对象的函数.

然后可以将其包裹在as.data.frame或类似于强制到表格中.