Question

我目前有一个应用程序设置，它允许用户输入他们想要绘制和可视化的变量。当我试图将闪亮的输入变量传递给汇总时，我遇到了一个问题。

testData <- plotData %>% 
        summarize(means=mean(input$selectedMetric, na.rm=TRUE)) %>%
        summarize(sd=sd(input$selectedMetric, na.rm=TRUE))

我得到的错误如下：

Warning in mean.default(input$selectedMetric, na.rm = TRUE) :
argument is not numeric or logical: returning NA

我应该如何设置它以使用户决定的所选列的平均值和标准偏差？

Answer 1

这里有一些问题可能出错：

使用null
时，您未检查input$selectedMetric
您未正确使用reactives。您应该在最后使用()来访问被动反应，因为它们是返回某些内容的函数。

在Im下面假设您的plotData变量不是被动的并且它是声明的对象

testData <- reactive({
  if(is.null(input$selectedMetric)){
    return()
  }
  plotData %>% 
    summarize(means=mean(input$selectedMetric, na.rm=TRUE)) %>%
    summarize(sd=sd(input$selectedMetric, na.rm=TRUE))
})

testData()

您可以访问摘要，如下所示：testData()

总结使用dplyr和闪亮

1 个答案: