クリップボードを光沢のあるアプリに貼り付けますか？

Question

ここでは、入力としてファイルを参照できる例を示しますが、参照する代わりにクリップボードからデータを貼り付けたいと思います。何か案が ？

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

あなたは自分のデータを貼り付けるために、ユーザーのためのtextAreaInput()を使用して、あなたがそれをする必要があるものは何でも行うことができます。ドキュメントページhereを参照してください。

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