r - 将列添加到 Shiny 中的响应式(Reactive)数据框中并更新它们

Question

我希望能够通过将一列除以另一列来计算新的数据列，并且两个原始列均由用户输入选择。我希望将此计算数据连接到原始表(或其副本)。

我已经设法弄清楚如何制作一个对列输入选择使用react的数据框，并且我已经成功地进行了将一列除以另一列的计算，但我无法制作一个最终的数据框包括所有原始列以及新计算的列。

这是我使用内置 Iris 数据制作的模型。它显示第一个表中所选列的数据，以及第二个表中的计算结果(您需要向下滚动很远才能看到这一点)。

如何将计算出的数据连接到原始数据源？

非常感谢

#Ui        
pageWithSidebar(
      headerPanel('Calculate Column'),
      sidebarPanel(

        #select variables from iris dataset
        selectInput('xcol', 'X Variable', names(iris)),
        selectInput('ycol', 'Y Variable', names(iris),
                    selected=names(iris)[[2]])
      ),
      mainPanel(
        #display the selected variables
            tableOutput("view"),
         #display the calculated variable
            tableOutput("view2")
      )
    )


#Server
        function(input, output, session) {

      # Combine the selected input variables into a new data frame
      selectedData <- reactive({
        iris[, c(input$xcol, input$ycol),]
      })


      # divide one variable selection by the other
      selectedData2 <- reactive({
                iris$new<-iris[, c(input$xcol)]/iris[, c(input$ycol)]

        })

      # create data output for selected variables
      output$view <- renderTable({selectedData()
      })

      # create data output for calculated variable
      output$view2 <- renderTable({selectedData2()
      })

    }

Answer 1

您忘记了 iris 不是 react 性元素，因此您的代码无法工作。您在这里有两个选择:

• 使用 reactive() 创建 react 值来存储该数据帧。
• 使用reactiveValues()创建一个“全局” react 值列表，您可以在其中存储更新的数据框。

将全局响应式(Reactive)表达式与reactiveValues结合使用

使用reactiveValues，您可以创建一个响应式(Reactive)表达式列表，就像input和output一样。在下面的示例中，我使用它将数据框 iris 存储为 globals$mydf。然后，您可以使用例如 observe 来 react 性地更改值，如以下服务器函数所示:

#Server
server <- function(input, output, session) {

  globals <- reactiveValues(
    mydf = iris
  )

  observe({
    thedf <- globals$mydf
    newvar <- thedf[[input$xcol]] / thedf[[input$ycol]]
    globals$mydf$ratio <- newvar
  })


  # create data output for selected variables
  output$view <- renderTable({
    globals$mydf
  })
}

使用reactive()

您可以创建两个相互依赖的响应式(Reactive)表达式:

• 选择变量并计算比率
• 将此结果与所选变量相结合

您的服务器将如下所示:

server <- function(input, output, session) {

  newdf <- reactive({
    cbind(
      iris[c(input$xcol, input$ycol)],
      Ratio = newvar()
    )
  })

  newvar <- reactive({
    iris[[input$xcol]] / iris[[input$ycol]]
  })

  # create data output for selected variables
  output$view <- renderTable({
    newdf()
  })

}

尽管您相信这不是您想要的，但您可以在其他代码中使用 newdf() ，就像在前面的代码中使用 globals$mydf 一样例子。如果代码的不同部分必须能够更改数据框，reactiveValues() 特别值得。