我想避免文件扩展名出现在 Rshiny 的下拉菜单中。

I want to avoid extension of file to appear in drop-down menu in Rshiny.

我有一个 csv 文件列表,这些文件位于我的 shiny 应用程序的子目录 data 中,它们显示在下拉菜单中。我想避免 .csv 扩展名出现在带有文件名的下拉列表中。假设一个名称为 HG-U133_Plus_2.csv 的文件在下拉列表中应显示为 HG-U133_Plus_2。我使用下面的代码作为下拉选项。谢谢

在 ui.r 上:

filenames <- list.files(path = "data",pattern="\.csv$")    
selectInput('dataset',"choose platform annotation file", c("Choose file" ='',filenames)),

server.r:

dataInput <- reactive({


        if (grepl("[/\\]", input$dataset)) {
          stop("Invalid dataset")
        }

        read.csv(file.path("data", input$dataset))
      })

只需设置 choices 向量的名称:

names(filenames) <- gsub(pattern = "\.csv$", "", filenames)