inst/testviz/scripts/process/cuyahoga.R

In USGS-VIZLAB/vizlab: Utilities for building online data visualizations

#' My mayfly fetcher function
#' 
#' Intentionally switching up the arg order just to show that it can be done
#' (though it's not necessarily a great idea)
process.cuyahoga <- function(viz) {
  cuyahoga <- readDepends(viz)[['cuyahoga']]
  cuyahoga_sub <- cuyahoga[30:50,]
  write.table(cuyahoga_sub, viz$location, row.names=FALSE, sep='\t')
}