inst/testviz/scripts/fetch/mayfly_nymph.R

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

#' My mayfly fetcher function
#' 
#' Could also accept the data.info arg but won't because we don't use it.
#' Intentionally switching up the arg order just to show that it can be done
#' (though it's not necessarily a great idea)
fetch.mayfly_nymph <- function(viz) {
  # this function doesn't actually do, or need to do, anything
  message("fetching mayfly_nymph from ", viz[['location']], " to ", viz[['location']])
  message("a mayfly is a kind of ", viz$info)
}

#' The quickest way to implement a fetchTimestamp method for a local file is by
#' copying alwaysCurrent
fetchTimestamp.mayfly_nymph <- alwaysCurrent