如何在使用R shiny的fileInput上传后获得正确的文件路径？

library(shiny)

ui <- fluidPage(
  fileInput("file", "选择文件")
)

server <- function(input, output) {
  # 服务器逻辑
}

shinyApp(ui, server)

library(shiny)

ui <- fluidPage(
  fileInput("file", "选择文件")
)

server <- function(input, output) {
  observeEvent(input$file, {
    file <- input$file
    filepath <- file$datapath
    filename <- file$name
    
    # 执行相应的操作，如读取文件内容、处理文件等
    # filepath为文件的临时路径，可以使用该路径进行文件操作
    
    # 示例：读取CSV文件内容
    data <- read.csv(filepath)
    
    # 示例：显示文件路径和文件名
    print(paste("文件路径：", filepath))
    print(paste("文件名：", filename))
  })
}

shinyApp(ui, server)