R中的鏈接SelectInput控件Shiny - 是否有可能？

是否有可能鏈接R閃亮中的選擇輸入控件。我目前有一個下拉菜單來顯示目錄中的文件夾。我想要第二個下拉菜單來顯示所選文件夾中的文件。可能嗎？R中的鏈接SelectInput控件Shiny - 是否有可能？

這裏是ui.R：

shinyUI(pageWithSidebar(

    sidebarPanel(
    selectInput("Folder", "Folder:" , as.matrix(getFolders()),multiple = TRUE) 
    selectInput("FileInFolder", "File in folder:") # can this dropdown be linked to one above??? 
), 
    mainPanel(
))#end main 
)

這裏是server.R

shinyServer(function(input, output) {})

下面是代碼來運行它：

library(shiny) 
runApp("C:/Users/me/Desktop/R Projects/FileFolder")

這是我的世界。 R文件填充文件夾：

getFolders<-function() 
{ 
    folders<-list.dirs("//nas/mypath/",full.names= FALSE,recursive = FALSE) 
    folders 
}

這裏是一個有趣的##我怎樣才能把他連接到getFolders，這樣UI是級聯的？

getFilesInFolder<-function(Folder) 
{ 
    files<-list.files(paste("//nas/mypath/",Folder,sep="")) 
    files 
}

任何想法如何使這個工作，使UI是層疊。那就是當你從文件夾下拉菜單中選擇一個文件夾時，文件下拉列表被更新了？

謝謝。

來源

2014-03-31 user3022875

看看updateSelectInput函數。

下面是一個例子：

require(shiny) 

datas <- data.frame(directory = c("a", "a", "a", "b", "b", "c"), file = sprintf("file%d", 1:6)) 

runApp(list(
    ui = basicPage(
    sidebarPanel(
     selectInput("directory", "Select a directory", choices = levels(datas$directory), selected = levels(datas$directory)[1]), 
     tags$hr(), 
     selectInput("files", "Select files", choices = datas$file[datas$directory == levels(datas$directory)[1]], multiple = TRUE) 
    ) 
), 
    server = function(input, output, session) { 

    observe({ 
     directory <- input$directory 

     updateSelectInput(session, "files", choices = datas$file[datas$directory == directory]) 
    }) 
    } 
))

來源

2014-03-31 19:25:00

R中的鏈接SelectInput控件Shiny - 是否有可能？

回答

相關問題