setup.R

# Quick setup script for shinyModals

cat("=== shinyModals Package Setup ===\n\n")

# Check for required packages
required_packages <- c("shiny", "htmltools", "devtools")
missing_packages <- required_packages[!sapply(required_packages, requireNamespace, quietly = TRUE)]

if (length(missing_packages) > 0) {
  cat("Installing missing dependencies:", paste(missing_packages, collapse = ", "), "\n")
  install.packages(missing_packages)
}

# Load devtools
library(devtools)

# Set working directory to package root
setwd("u:/R/shinyModals")

cat("\n1. Loading package for development...\n")
load_all()

cat("\n2. Package loaded successfully!\n")
cat("\nAvailable functions:\n")
cat("  - modal_header(), modal_body(), modal_footer()\n")
cat("  - modal_theme()\n")
cat("  - shiny_modal()\n")
cat("  - show_modal(), hide_modal(), toggle_modal()\n")
cat("  - hide_all_modals() [NEW in v0.2.0]\n")
cat("  - use_shiny_modals()\n")

cat("\n3. To run the demo app:\n")
cat("   source('examples/demo_app.R')\n")

cat("\n4. To install the package:\n")
cat("   devtools::install()\n")

cat("\n=== Setup Complete ===\n")