Shiny平台构建与R包开发（三）——数据输出

HaoranWu_ZJU

已于 2022-05-09 15:56:49 修改

阅读量1.8k

点赞数 1

文章标签： r语言

于 2021-09-05 09:09:15 首次发布

本文链接：https://blog.csdn.net/Robby_Wu/article/details/120109902

版权

作为Shiny平台构建与R包开发教程的第三小节，本节向读者展示如何利用Shiny server输出自己想要的数据，包括Rplot、Table、Text等信息。

数据输出机制

仍以上一节的案例为基础：

library(data.table)

ui.data <- fluidPage(
  fileInput("data_input1", "Experiment:", accept = ".csv"),
  tableOutput('data_tbout1')
)

server <- function(input, output){
   
  read.d1 <- reactive({
   
    inFile1 <- input$data_input1
    if (is.null(inFile1)) return(NULL)
    fread(inFile1$datapath)
  })
  
  output$data_tbout1 <- renderTable({
   
    dat1 <- read.d1()
    head(dat1)
  })