R/fetch.wim.R

In jmarca/calvad_choose_cvds_sites: Code to help solve where to put new classifying VDS sites

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)