这是一个示例,我可以将文件作为输入浏览,但我想粘贴剪贴板中的数据而不是浏览。任何的想法 ?
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)
}
最佳答案
您可以使用 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)
关于r - 将剪贴板粘贴到 Shiny 的应用程序中?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/44811189/