Shinylive for R - Loading data in various formats

app.R

library(shiny)
library(bslib)
library(duckplyr)

data1 <- readRDS("data.rds")
data2 <- read.csv("data.csv")
data3 <- df_from_parquet("data.parquet")

ui <- page_fillable(
  titlePanel("Example: loading data formats"),
  tabsetPanel(
    tabPanel("RDS", plotOutput("boxplot1")),
    tabPanel("CSV", plotOutput("boxplot2")),
    tabPanel("Parquet", plotOutput("boxplot3")),
  )
)

server <- function(input, output, session) {
  output$boxplot1 <- renderPlot({
    boxplot(data1, col=c(2, 3, 4))
  })
  
  output$boxplot2 <- renderPlot({
    boxplot(data2[, 2:4], col=c(5, 6, 7))
  })

  output$boxplot3 <- renderPlot({
    boxplot(data3, col=c(2, 6, 8))
  })
}

shinyApp(ui, server)

data.csv

data.parquet

data.rds