Paste Zwischenablage in glänzende App?

Question

Hier ist ein Beispiel, dass ich eine Datei als Eingabe durchsuchen konnte, aber anstatt zu durchsuchen, möchte ich die Daten aus der Zwischenablage einfügen. Irgendeine Idee ?

if (interactive()) { 
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
fileInput("file1", "Choose CSV File", 
accept = c(
"text/csv", 
"text/comma-separated-values,text/plain", 
".csv") 
), 
tags$hr(), 
checkboxInput("header", "Header", TRUE) 
), 
mainPanel(
tableOutput("contents") 
) 
) 
) 

server <- function(input, output) { 
output$contents <- renderTable({ 
inFile <- input$file1 
if (is.null(inFile)) 
return(NULL) 
read.csv(inFile$datapath, header = input$header) 
}) 

} 
shinyApp(ui, server) 
} 

Answer 1

Sie können textAreaInput() für Benutzer verwenden, um seine Daten einfügen und dann tun, was Sie mit ihm brauchen. Siehe die DOC-Seite here.

ui <- fluidPage(
    textAreaInput("caption", "Caption", "Data Summary", width = "1000px"), 
    verbatimTextOutput("value") 
) 
server <- function(input, output) { 
    output$value <- renderText({ input$caption }) 
} 
shinyApp(ui, server)