R Shiny - ui.R 似乎无法识别 server.R 读取的数据帧

使用R Shiny构建互动式应用程序是一种强大的方式，可以将数据可视化和分析与用户交互结合起来。在Shiny应用程序中，ui.R文件用于定义用户界面的布局和外观，而server.R文件用于处理用户的输入和生成输出。但是有时候我们可能会遇到一个问题，即ui.R无法正确识别由server.R读取的数据帧。在本文中，我们将探讨这个问题，并提供相应的解决方案。

R
# ui.R
library(shiny)
shinyUI(fluidPage(
  titlePanel("学生信息"),
  sidebarLayout(
    sidebarPanel(
      selectInput("gender", "选择性别", choices = c("男", "女"), selected = "男")
    ),
    mainPanel(
      tableOutput("student_table")
    )
  )
))
# server.R
library(shiny)
shinyServer(function(input, output) {
  # 读取学生信息数据集
  student_data <- read.csv("student_data.csv")
  
  # 根据用户选择的性别过滤数据
  filtered_data <- reactive({
    subset(student_data, gender == input$gender)
  })
  
  # 生成表格输出
  output$student_table <- renderTable({
    filtered_data()
  })
})

R
# global.R
library(shiny)
# 读取学生信息数据集
student_data <- read.csv("student_data.csv")
# 根据用户选择的性别过滤数据
filtered_data <- reactive({
  subset(student_data, gender == input$gender)
})
# ui.R
shinyUI(fluidPage(
  titlePanel("学生信息"),
  sidebarLayout(
    sidebarPanel(
      selectInput("gender", "选择性别", choices = c("男", "女"), selected = "男")
    ),
    mainPanel(
      tableOutput("student_table")
    )
  )
))
# server.R
shinyServer(function(input, output) {
  # 生成表格输出
  output$student_table <- renderTable({
    filtered_data()
  })
})