R Shiny导入文件执行统计检验后无法展示结果的问题排查

• 文件读取参数错误：Shiny的fileInput组件返回值为包含上传文件属性的结构化数据框，实际文件存储路径存储在datapath字段中，原代码直接将input$file传入read.csv，无法正确识别文件路径。
• 空值触发报错：应用启动后用户尚未上传文件时，input$file为NULL，此时直接执行读取、统计逻辑会触发空值报错。
• 列名引用错误：原代码设置header=TRUE将数据集第一行作为表头，此时存储分类标签的第12列列名为name，原代码引用不存在的V12字段会触发报错。
• 数据类型不兼容：数据集转置后生成的an1、an2列默认为字符类型，直接传入cramersV函数会触发计算错误。
• 输出类型不匹配：renderText要求返回字符类型内容，原代码最后返回的是data.frame类型的res变量，类型不兼容无法正常渲染。

1. 在统计逻辑开头添加req(input$file)，仅当用户完成文件上传后才执行后续代码，避免启动阶段的空值报错。
2. 读取文件时调用input$file$datapath获取实际文件路径，保证read.csv可以正常读取上传的数据集。
3. 修正列名引用，使用实际列名name筛选分类为Nutriment的行。
4. 转置生成df2后，将an1、an2列转换为数值类型，保证统计检验正常运行。
5. 调整输出组件：如果要展示结构化的结果表格，将textOutput替换为tableOutput，服务端对应使用renderTable渲染结果；如果需要纯文本展示，将统计结果格式化为字符类型后返回。

library("lsr")
library("shiny")

ui <- fluidPage(
  titlePanel("统计检验工具"),
  fluidRow(
    column(3, fileInput("file", h3("上传数据文件"))
    )
  ),
  fluidRow(
    column(width = 6, tableOutput("result"))
  )
)

server <- function(input, output) {
  output$result <- renderTable({
    # 校验文件是否上传完成
    req(input$file)
    # 读取上传文件
    mycsv <- read.csv(input$file$datapath, header = TRUE, sep = ";") 
    # 修正列名引用
    mycsv <- subset(mycsv, name=="Nutriment")
    df <- as.data.frame(t(mycsv))
    colnames(df) <- c("an1", "an2")
    df2 <- head(df, -2)
    # 转换为数值类型适配统计检验
    df2$an1 <- as.numeric(as.character(df2$an1))
    df2$an2 <- as.numeric(as.character(df2$an2))
    cramer <- cramersV(df2$an1, df2$an2)
    res <- data.frame("Cramer's V系数" = cramer, check.names = FALSE)
    return(res)
  })
}

shinyApp(ui = ui, server = server)

如果需要纯文本形式展示结果，可将UI端改为textOutput("info")，服务端对应替换为以下代码：

output$info <- renderText({
  req(input$file)
  mycsv <- read.csv(input$file$datapath, header = TRUE, sep = ";") 
  mycsv <- subset(mycsv, name=="Nutriment")
  df <- as.data.frame(t(mycsv))
  colnames(df) <- c("an1", "an2")
  df2 <- head(df, -2)
  df2$an1 <- as.numeric(as.character(df2$an1))
  df2$an2 <- as.numeric(as.character(df2$an2))
  cramer <- cramersV(df2$an1, df2$an2)
  return(paste0("本次计算得到Cramer's V系数为：", round(cramer, 4)))
})

内容的提问来源于stack exchange，提问作者Julien