モジュール内のshinyFilesパッケージ

Question

モジュールでshinyFilesパッケージを使用する際に問題があります。私はそれが正常に動作するモジュールなしでそれを使用しているとき。私はモジュール内でそれを使用していたとき、私は（他のスレッドが何も肯定的な答えを持っていない）ディレクトリに飛び込むことができません。

#' @export 
dirModule = function(input, output, session, fileRoot = NULL) { 
    root = c(C = "/") 
    shinyFileChoose(input, session$ns('files'), roots = root, session = session) 
    shinyDirChoose(input, session$ns("directory"), session=session, roots = c(home = '/home', root = '/'), filetypes=c('')) 
    shinyFileSave(input, session$ns("fileSave"), roots = root, session = session) 

    observeEvent(input$files, { print(parseFilePaths(root, input$files)$datapath) }) 
    observeEvent(input$directory, { print(parseDirPath(root, input$directory)) }) 
    observeEvent(input$fileSave, { print(parseSavePath(root, input$fileSave)$datapath) }) 
} 

#' @export 
dirModuleUI = function(id) { 
    ns = NS(id) 

    fluidPage(
    fluidRow(
     shinyFilesButton(ns('files'), label='File select', title='Please select a file', multiple=T), 
     shinyDirButton(ns("directory"), label="Directory select", title = "Select directory", FALSE), 
     shinySaveButton(ns("fileSave"), label = "File save", title = "Save file as", filetype=list(text='txt')) 
    ) 
) 
} 

Answer 1

私は同じ問題を持っていたし、GitHubのバージョンを使用することで解決。

最初にdevtoolsパッケージをinstall.packages('devtools')でインストールしてから、devtools::install_github("thomasp85/shinyFiles")を使用して最新のshinyFilesパッケージをインストールできます。

その後、モジュールサーバー機能ですべてのセッション$ nsコールを取り除くだけです。