## -----------------------------------------------------------------------------
#| label: install
#| eval: false

# if (!requireNamespace("BiocManager", quietly = TRUE))
#     install.packages("BiocManager")
# BiocManager::install("shinybiocloader")


## -----------------------------------------------------------------------------
#| label: shinybiocloader-example
#| eval: false
# library(shiny)
# library(shinybiocloader)
# ui <- fluidPage(
#     titlePanel("shinybiocloader demo"),
#     sidebarLayout(
#         sidebarPanel(
#             actionButton("load_data", "Load Data")
#         ),
#         mainPanel(
#             withLoader(
#                 plotOutput("plot"), loader = "biocspin"
#             )
#         )
#     )
# )
# server <- function(input, output) {
#     observeEvent(input$load_data, {
#         output$plot <- renderPlot({
#             hist(rnorm(1000), main = "Random Normal Distribution")
#         })
#     })
# }
# shinyApp(ui = ui, server = server)


## -----------------------------------------------------------------------------
#| label: static-loader
#| echo: false
knitr::include_graphics("../man/figures/shinybiocloader.png")


## -----------------------------------------------------------------------------
#| label: session-info
sessionInfo()