R 使用Shiny组合和显示复制和粘贴的数据

ui <- fluidPage(
  fileInput("file", "Select a file"),
  verbatimTextOutput("text")
)


server <- function(input, output, session) {
  output$text <- renderText({
    filePath <- input$file$datapath
    fileText <- paste(readLines(filePath), collapse = "\n")
    fileText
  })
}

shinyApp(ui = ui, server = server)

library(clipr)
library(shiny)

ui <- fluidPage(
  actionButton("read_clip", "Read from clipboard"),
  tableOutput("table")
)

server <- function(input, output, session) {
  table <- eventReactive(input$read_clip, {
    read_clip_tbl()
  })

  output$table <- renderTable({
    req(table())
    table()
  })
}

shinyApp(ui, server)

R相关问答推荐

如何根据包含相同值的某些列获取总额

根据列表中项目的名称多次合并数据框和列表

如何自定义Shapviz图？

如何根据组大小应用条件过滤？

selectInput不返回ALL，并将因子转换为shiny 的数字

根据选中三个复选框中的一个或两个来调整绘图

在"gt"表中添加第二个"groupname_col"，而不连接列值

当两个图层映射到相同的美学时，隐藏一个图层的图例值

用值序列对行进行子集化，并标识序列开始的列

R Read.table函数无法对制表符分隔的数据正常工作

无法定义沿边轨迹的 colored颜色 渐变(与值无关)

过滤名称以特定字符串开头的文件

为什么在BASE R中绘制线条时会看到线上的点？

来自程序包AFEX和amp；的类/函数和NICE_TABLE&冲突

R -基线图-图形周围的阴影区域

如何在使用因子时获得Sankey图的Scale_Fill_Viridis的全范围

以任意顺序提取具有多个可能匹配项的组匹配项

按两个因素将观测值分组后计算单独的百分比

动态统计函数在ShinyApp内部更改

修复标签重叠和ggploy内的空间