Shinyの変数としてアップロードされたファイルの名前を取得

Question

私はVenn Diagramのセクションの1つにアップロードされたファイルの名前が付けられている（Shiny Appを作成しています）。たとえば、ある人がClientXYZ.csvファイルをアップロードすると、Venn図の1つのセクションに「ClientXYZ」という名前が付けられます

これはShinyで可能ですか？

Answer 1

再現可能な例はありませんが、入力と名前でファイルの名前を取得できます。

library(shiny) 

ui <- fluidPage(

    titlePanel("Grabbing my file name"), 

    sidebarLayout(
     sidebarPanel(
     fileInput('file1', 'Select your file', 
        accept = c(
        'text/csv', 
        'text/comma-separated-values', 
        '.csv' 
       ) 
     ) 
    ), 
     mainPanel(
     textOutput("myFileName") 
    ) 
    ) 
) 

server <- function(input, output) { 

    file_name <- reactive({ 
    inFile <- input$file1 

    if (is.null(inFile)) 
     return(NULL) 

    return (stringi::stri_extract_first(str = inFile$name, regex = ".*(?=\\.)")) 
    }) 

    output$myFileName <- renderText({ file_name() }) 

} 

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