我想避免文件扩展名出现在 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)
我有一个 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)