如何保存要传入函数的ShinyFiles目录输入的基名

library(shiny)
library(shinyFiles)

ui <- fluidPage(
  shinyDirButton("dir", "Choose a directory"),
  actionButton("saveButton", "Save"),
  textOutput("selectedDir")
)

server <- function(input, output, session) {
  shinyDirChoose(input, "dir", roots = c(home = '~'), session = session)

  # 提取基名的函数
  getBaseName <- function(path) {
    basename(path)
  }

  observeEvent(input$dir, {
    selectedDir <- parseDirPath(c(home = '~'), input$dir)
    output$selectedDir <- renderText({
      getBaseName(selectedDir$datapath)
    })
  })

  observeEvent(input$saveButton, {
    selectedDir <- parseDirPath(c(home = '~'), input$dir)
    baseName <- getBaseName(selectedDir$datapath)

    # 将基名传递给需要保存的函数
    saveFunction(baseName)
  })
}

shinyApp(ui, server)