#===============================================================================
#' @title obtain data from folder containing rbr sqlite3 databases
#'
#' @description import sqlite data to R
#'
#' @author Jonathan Kennel \email{jkennel@uoguelph.ca}
#'
#' @param folder_path the path to the rbr database ( rsk )
#' @param start_date character date
#' @param end_date character date
#' @param use_rbr_tz boolean use time zone information from the rbr file?
#' @param ... arguments to pass to list.files
#'
#' @return data.table of results
#'
#' @export
#===============================================================================
filter_rbr_folder <- function( folder_path, start_date, end_date, use_rbr_tz = TRUE, ... ) {
# get the names .rsk files in folder
files <- list.files( folder_path, full.names=TRUE, pattern="*\\.rsk$", ... )
return( filter_rbr_files(files, start_date, end_date, use_rbr_tz=use_rbr_tz) )
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.