如何解决来自用户选择输入的动态平均值 RShiny
我正在尝试使用 selectInput 计算用户选择的变量的平均值并将其输出到表格中。显然，问题应该来自as.numeric(input$var_dropdown)。任何想法将不胜感激！
library(rshiny)
library(dplyr)
ui <- shinyUI(fluidPage(
sidebarLayout(
sidebarPanel(
uIoUtput("select")
),mainPanel(
DT::dataTableOutput("table_with_mean")
)
)
)
)
server <- function(input,output,session){
output$select <- renderUI({
selectInput("var_dropdown","Variable:",names(iris))
})
output$table_with_mean <- DT::renderDataTable({
iris %>%
summarise("Mean" = mean(as.numeric(input$var_dropdown)))
})
}
shinyApp(ui,server)
错误：
Warning in mean(as.numeric(input$var_dropdown)) :
NAs introduced by coercion
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。