r - 特定列的 Rshiny 汇总统计信息

Question

我在解析数据时出错，当用户选择变量并单击计算时，程序应该可以工作，它将显示最小值、中值、最大值、第一个四分位数和第三个四分位数。至于现在，它显示所有变量而不是一个。

observeEvent(newdata_reactive$newdata(),{
choices <- c(not_sel,names(newdata_reactive$newdata()))
updateSelectInput(inputId = "var_1", choices = choices)
})

var_1 <- eventReactive(input$btn,input$var_1)


output$total <-renderText({
    calculate()
    dataset <- newdata_reactive$newdata()
    summary(dataset)
  })

在此处输入图像描述

Answer 1

将行更改summary(dataset)为：

summary(dataset[,which(colnames(dataset)==input$var_1)])

这将仅汇总从 input$var_1 中的数据集中选择的一列。