如何在具有闪亮运行时的R-Markdown文档中只加载一次文件(使用闪亮的小工具选择)而多次使用

---
runtime: shiny
---

library(shiny)

# 创建闪亮的小工具选择框
file_choice <- selectInput(
  inputId = "file_select",  # 选择框的ID
  label = "选择文件",  # 选择框的标签
  choices = c("文件1", "文件2", "文件3"),  # 可供选择的文件列表
  selected = "文件1"  # 默认选择的文件
)

# 创建一个闪亮的小工具选择框关联的变量
file_data <- reactive({
  input_file <- input$file_select
  
  # 判断是否已经加载文件
  if (!exists("loaded_file")) {
    # 根据选择加载文件
    if (input_file == "文件1") {
      loaded_file <- read.csv("文件1.csv")
    } else if (input_file == "文件2") {
      loaded_file <- read.csv("文件2.csv")
    } else if (input_file == "文件3") {
      loaded_file <- read.csv("文件3.csv")
    }
  }
  
  return(loaded_file)
})

# 在文档中展示加载的文件内容或进行相关计算
renderTable({
  file_data()
})