Skip to content

Instantly share code, notes, and snippets.

View buchmayne's full-sized avatar
🏘️

Marley Buchman buchmayne

🏘️
View GitHub Profile
library(tidyverse)
library(tidycensus)
library(leaflet)
library(sf)
library(shiny)
library(ggmap)
library(htmltools)
# Data --------------------------------------------------------------------
@buchmayne
buchmayne / shiny_geospatial.R
Created November 22, 2019 03:55
shiny_geospatial
library(tidyverse)
library(shiny)
library(tidycensus)
library(sf)
library(leaflet)
library(htmltools)
ut_tracts <- get_acs(
"tract",
variables = "B00002_001",
library(tidyverse)
library(shiny)
example_data <- tibble(
x = c("a", "b", "c", "d"),
num1 = c(2, 4, 100, 2),
num2 = c(10, 4, 10, 1),
num3 = c(1, 4, 19, 80),
num4 = c(7, 4, 19, 0)
)