georgestagg · May 21, 2024 08:28
diff --git a/app.R b/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)
diff --git a/data.csv b/data.csv
diff --git a/data.parquet b/data.parquet
diff --git a/data.rds b/data.rds
	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)