Shiny程序点击计算按钮无结果输出问题求助

问题根源 #

按钮点击事件中错误引用了不存在的input$Revista控件，导致无法匹配上传的期刊数据与参考分区表；同时冗余的分组切片操作也干扰了结果输出。

修正后的完整代码 #

library(dplyr)
library(shiny)

# 参考分区表
df <- data.frame(
  Revista = c("Ca-A Cancer Journal for Clinicians",
              "Nature Reviews Molecular Cell Biology",
              "Quarterly Journal of Economics"),
  Cuartil = c("Q1", "Q2", "Q3"),
  stringsAsFactors = FALSE
)

# 生成测试用CSV（实际使用由用户上传）
txt <- c("Revista", "Nature Reviews Molecular Cell Biology", "Quarterly Journal of Economics")
writeLines(txt, "outfile.csv")

ui <- fluidPage(sidebarLayout(
  sidebarPanel(
    fileInput("file1", "选择CSV文件", accept = ".csv"),
    checkboxInput("header", "包含表头", TRUE),
    br(),
    actionButton("button1", "计算分区")
  ),
  mainPanel(tableOutput("contents"))
))

server <- function(input, output) {
  rv = reactiveValues()
  
  # 读取上传的CSV数据
  mydf <- reactive({
    req(input$file1)
    ext <- tools::file_ext(input$file1$datapath)
    validate(need(ext == "csv", "请上传CSV格式文件"))
    
    read.csv(input$file1$datapath, header = input$header, stringsAsFactors = FALSE)
  })
  
  # 上传文件后显示原始数据
  observeEvent(input$file1, {
    rv$table1 = mydf()
  })
  
  # 点击按钮时匹配分区
  observeEvent(input$button1, {
    # 用上传的期刊列表匹配参考表，获取对应分区
    rv$table1 <- mydf() %>%
      inner_join(df, by = "Revista") %>%
      distinct(Revista, Cuartil)
  })
  
  # 输出结果表格
  output$contents <- renderTable({
    rv$table1
  })
}

shinyApp(ui = ui, server = server)

关键修改说明 #

• 修正匹配逻辑：将按钮事件中的input$Revista替换为上传的mydf()数据集，通过inner_join关联参考表df，精准匹配每个期刊对应的分区。
• 移除冗余操作：删除不必要的group_by和slice语句，简化逻辑，避免无意义的分组干扰结果。
• 增强数据兼容性：添加stringsAsFactors = FALSE确保字符型数据正确处理，避免因因子类型导致的匹配失败；启用格式验证，提示用户上传正确的CSV文件。
• 优化UI文本：将英文按钮文本改为中文，符合使用习惯。

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