# Global options: hide code by default, but show outputs
knitr::opts_chunk$set(echo = TRUE, warning = TRUE, message = TRUE)

# Load required libraries quietly and create data
# If you haven't installed these packages yet, run:
# install.packages(c("plotly","dplyr","htmlwidgets","revealjs","rmarkdown"))

suppressPackageStartupMessages({
  library(plotly)
  library(dplyr)
})

set.seed(123)
df <- data.frame(
  x = rnorm(120),
  y = rnorm(120),
  group = sample(c("Apples","Bananas","Cherries"), 120, replace = TRUE),
  size = runif(120, 8, 18)
)
# This chunk will show the interactive Plotly plot.

# Note: do NOT use include=FALSE here or the plot will be hidden.