Nothing
#' My ETL functions
#' @import etl
#' @inheritParams etl::etl_extract
#' @export
#' @examples
#' \dontrun{
#' if (require(dplyr)) {
#' obj <- etl("foo") %>%
#' etl_create()
#' }
#' }
etl_extract.etl_foo <- function(obj, ...) {
# Specify the URLs that you want to download
src <- c("http://www.stat.tamu.edu/~sheather/book/docs/datasets/HoustonChronicle.csv")
# Use the smart_download() function for convenience
etl::smart_download(obj, src, ...)
# Always return obj invisibly to ensure pipeability!
invisible(obj)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.