在一个闪亮的应用程序中，你如何显式地引用selectizeInput中的用户选择来读取特定的csv文件？

library(shiny)

ui <- fluidPage(
  selectizeInput("fileInput", "选择CSV文件：",
                 choices = c("file1.csv", "file2.csv", "file3.csv"),
                 multiple = FALSE)
)

server <- function(input, output) {
  selectedFile <- reactive({
    input$fileInput
  })
  
  data <- reactive({
    if (!is.null(selectedFile())) {
      read.csv(selectedFile())
    }
  })
}

output$summary <- renderPrint({
  summary(data())
})