walkerke

library(mapgl) # Get the new features: pak::pak("walkerke/mapgl")
library(tidycensus)
library(sf)
library(tidyverse)
sf_use_s2(FALSE)

tx_bgs <- get_acs(
  geography = "block group",
  variables = "B01001_001",
  state = "TX",

walkerke

library(shiny)
library(mapgl)
library(tidycensus)
library(bslib)
options(tigris_use_cache = TRUE)

# Get LA income data
la_income <- get_acs(
  geography = "tract",
  variables = "B19013_001",

walkerke

# Day 27: Boundaries - World Time Zones
# Shows current time in each timezone

library(mapgl)
library(sf)
library(dplyr)
library(lubridate)

# Get user's current timezone and time
user_tz <- Sys.timezone()

walkerke

# Day 26: Transport - US Electric Power Transmission Lines
# Visualizing America's invisible highway: 700,000+ miles of power lines
# Dynamic line widths by voltage class, glowing effect for the energy flow

library(mapgl)
library(sf)
library(dplyr)

# Load transmission lines from HIFLD (Homeland Infrastructure Foundation-Level Data)
# This is a large dataset - we'll use direct URL for the GeoJSON

walkerke

# Day 25: Hexagons - US Wind Energy Infrastructure
# Multi-resolution H3 hexagonal aggregation of 72,000+ wind turbines
# Aggregating total installed capacity (MW) per hexagon
# Points fade in at high zoom for individual turbine exploration

library(mapgl)
library(h3o)
library(sf)
library(dplyr)
library(readr)

walkerke

library(shiny)
library(mapgl)
library(tidycensus)
library(sf)

# Get data: median household income by tract in Colorado
co_income <- get_acs(
  geography = "tract",
  variables = "B19013_001",
  state = "CO",

walkerke

# remotes::install_github("walkerke/mapgl")
library(mapgl)

# CYBERPUNK 2125 - Ultra-striking neon palette
# Deep blacks + electric neons for that Blade Runner / Akira vibe
cyberpunk_2125 <- c(
  "#000000", # Pure black (shadows)
  "#0a0e27", # Deep space blue (dark areas)
  "#1a1a2e", # Dark navy (buildings)
  "#16213e", # Midnight blue

walkerke

library(mapgl)
library(sf)

nc <- st_read(system.file("shape/nc.shp", package = "sf"))

# Custom style with background-pattern
style <- list(
  version = 8,
  sources = structure(list(), .Names = character(0)),
  layers = list(

walkerke

library(tidycensus)
library(mapgl)

tx_income <- get_acs(
  geography = "tract",
  variables = "B19013_001",
  state = "TX",
  geometry = TRUE
)

walkerke

library(mapgl)
library(shiny)
library(geojsonsf)

ui <- fluidPage(
  tags$head(
    tags$style(HTML(
      "
      body { margin: 0; padding: 0; }
      .container-fluid { padding: 0 !important; margin: 0 !important; }