时间戳

首页 > 解决方案 > 在闪亮的应用程序中将输入传递给 tidyverse 总结

r - 在闪亮的应用程序中将输入传递给 tidyverse 总结

问题描述

我在计算闪亮应用程序中选定列的分组汇总统计信息时遇到问题。似乎用于 tidyverse 总结的基本 R 汇总函数无法识别来自我闪亮应用程序的字符串输入。我想要一张包含最小值、最大值、平均值、标准差和计数的表格。

library(shiny)
library(tidyverse)
library(DT)

ui <- fluidPage(
  selectInput("summarycol", "Summary Stats For (Select One):", choices = c("mpg", "hp")),
  DT::dataTableOutput("table")
)

server <- function(input, output) {
 table <- reactive({
   mtcars %>% group_by(cyl) %>% summarize(mean = mean(input$summarycol))
 })
 output$table <- DT::renderDataTable(table())
}

shinyApp(ui = ui, server = server)

我明白了

Warning in mean.default(input$summarycol) :
  argument is not numeric or logical: returning NA

我也尝试!!在输入变量之前插入平均值，但这给出了

Warning in mean.default("mpg") :
  argument is not numeric or logical: returning NA

有没有办法删除引号并让基本汇总函数识别选定的列？

标签： rshinydplyr

解决方案

推荐阅读