使用Shiny R获取和显示文件名

install.packages("shiny")

library(shiny)

ui <- fluidPage(
  # 在这里定义应用程序的用户界面
)

server <- function(input, output) {
  # 在这里定义应用程序的服务器逻辑
}

shinyApp(ui, server)

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

server <- function(input, output) {
  file_name <- reactive({
    if (!is.null(input$file)) {
      return(input$file$name)
    }
  })
}

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

server <- function(input, output) {
  file_name <- reactive({
    if (!is.null(input$file)) {
      return(input$file$name)
    }
  })
  
  output$file_name <- renderText({
    if (!is.null(file_name())) {
      return(paste("选择的文件名是：", file_name()))
    }
  })
}

shinyApp(ui, server)