source('../components/jmarca-rstats_couch_utils/couchUtils.R')
library(testthat)
wim.query <- "select w.* from wim_geoview w join carb_airdistricts_aligned_03 c on (ST_Contains(c.geom4326, w.geom)) where c.name ~* 'joaquin' and wim_type ~* 'data'"
wim.query <- "select w.* from wim_geoview w where wim_type ~* 'data'"
# wim.df <- read.ogr::readOgrSQL(wim.query)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.