Shinyで選択したフォルダパスを表示する

Question

Shinyアプリケーションでフォルダへのパスを指定できるようにするには（ローカル）、の表示を選択します。次のコードは動作しますが、フォルダが選択されるまでverbatimTextOutputで "character（0）"を非表示にする方法はわかりません。条件付きパネル（私のコードでコメントアウトされています）を試しましたが、ここで条件として何を使用するのかわかりません（shinyDirButtonは標準的なアクションボタンではないので...）。ありがとうございました！

library(shiny) 
library(shinyFiles) 

# Define UI for application that draws a histogram 
ui <- fluidPage(

    # Application title 
    mainPanel(
    shinyDirButton("dir", "Input directory", "Upload"), 
    #conditionalPanel(
     #condition = "???", 
     verbatimTextOutput('dir') 
    #) 
) 
) 

server <- function(input, output) { 

    shinyDirChoose(input, 'dir', roots = c(home = '~'), filetypes = c('', 'txt','bigWig',"tsv","csv","bw")) 

    dir <- reactive(input$dir) 
    output$dir <- renderPrint({parseDirPath(c(home = '~'), dir())}) 

    observeEvent(
    ignoreNULL = TRUE, 
    eventExpr = { 
     input$dir 
    }, 
    handlerExpr = { 
     home <- normalizePath("~") 
     datapath <<- file.path(home, paste(unlist(dir()$path[-1]), collapse = .Platform$file.sep)) 
    } 
) 
} 

# Run the application 
shinyApp(ui = ui, server = server) 

私は見つけることができた最も近いの質問はこれですが、それは私の問題を解決していません：サーバー機能でR conditionalPanel reacts to output

Answer 1

を、代わりにrenderPrintのrenderTextを使用します。

library(shiny) 
library(shinyFiles) 

# Define UI for application that draws a histogram 
ui <- fluidPage(# Application title 
    mainPanel(
    shinyDirButton("dir", "Input directory", "Upload"), 
    verbatimTextOutput("dir", placeholder = TRUE) # added a placeholder 
)) 

server <- function(input, output) { 
    shinyDirChoose(
    input, 
    'dir', 
    roots = c(home = '~'), 
    filetypes = c('', 'txt', 'bigWig', "tsv", "csv", "bw") 
) 

    dir <- reactive(input$dir) 
    output$dir <- renderText({ # use renderText instead of renderPrint 
    parseDirPath(c(home = '~'), dir()) 
    }) 

    observeEvent(ignoreNULL = TRUE, 
       eventExpr = { 
       input$dir 
       }, 
       handlerExpr = { 
       home <- normalizePath("~") 
       datapath <<- 
        file.path(home, paste(unlist(dir()$path[-1]), collapse = .Platform$file.sep)) 
       }) 
} 

# Run the application 
shinyApp(ui = ui, server = server)