将剪贴板粘贴到闪亮的应用程序中？答案

【问题标题】：paste clipboard into shiny app?将剪贴板粘贴到闪亮的应用程序中？
【发布时间】：2017-06-28 19:38:06
【问题描述】：

这是一个示例，我可以浏览文件作为输入，但我不想浏览，而是从剪贴板粘贴数据。有什么想法吗？

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)
}

【问题讨论】：

标签： r input shiny clipboard fileinputstream

【解决方案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)

【讨论】：