## ----setup, include = FALSE---------------------------------------------------
options(rmarkdown.html_vignette.check_title = FALSE)

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----packages, eval = FALSE---------------------------------------------------
# library(datamuseum)

## ----Access Data from GitHub, eval = FALSE------------------------------------
# 
# rawzip <- tempfile()
# 
# download.file("https://github.com/btorgovitsky00/datamuseum/raw/master/data-raw.zip", rawzip,
#   mode = "wb")
# 
# temp <- tempdir()
# 
# unzip(rawzip, exdir = temp)
# 

## ----GBIF, eval = FALSE-------------------------------------------------------
# 
# #Raw Original Data
# 
# GBIF_clean <- read.csv(file.path(temp, "data-raw", "GBIF_Octopodoidea_raw.csv")) #88256 Observations
# 
# 
# #Trimmed Original Data
# 
# GBIF_clean <- read.csv(file.path(temp, "data-raw", "GBIF_Octopodoidea_trim.csv")) #88256 Observations
#