igisci: Data and Code for Environmental Data Science

## We'll add data frames and sf data
##
## Some data that we'll access as raw data will also go into inst/extdata
##    Those will include some CSVs to illustrate reading them, and also
##    some spatial data that will similarly be used to illustrate reading them

# Start with some data frames
library(tidyverse)

sierraFeb <- read_csv("inst/extdata/sierra/sierraFeb.csv")
usethis::use_data(sierraFeb, overwrite = TRUE)

sierraClimate <- read_csv("inst/extdata/sierra/sierraClimate.csv")
usethis::use_data(sierraClimate, overwrite=TRUE)

sierraData <- read_csv("inst/extdata/sierra/sierraData.csv")
usethis::use_data(sierraData, overwrite=TRUE)

ConcentrationReport <- read_csv("inst/extdata/litter/ConcentrationReport.csv")
usethis::use_data(ConcentrationReport, overwrite = TRUE)

sierraStations<- read_csv("inst/extdata/sierra/sierraStations.csv")
usethis::use_data(sierraStations, overwrite = TRUE)

soilCO2_97<- read_csv("inst/extdata/marbles/soilCO2_97.csv") %>%
  select(SITE, DATE, TIME, SOIL_TEMP, CO2pct)
usethis::use_data(soilCO2_97, overwrite = TRUE)

tidy_eucoak<- read_csv("inst/extdata/eucoak/tidy_eucoak.csv")
usethis::use_data(tidy_eucoak, overwrite = TRUE)

XSptsNDVI<- read_csv("inst/extdata/meadows/XSptsNDVI.csv")
usethis::use_data(XSptsNDVI, overwrite = TRUE)

eucoakrainfallrunoffTDR<- read_csv("inst/extdata/eucoak/eucoakrainfallrunoffTDR.csv")
usethis::use_data(eucoakrainfallrunoffTDR, overwrite = TRUE)

CA_ClimateNormals <- read_csv("inst/extdata/CA/CA_ClimateNormals.csv")
usethis::use_data(CA_ClimateNormals, overwrite = TRUE)

TRI_1987_CA <- read_csv("inst/extdata/TRI/TRI_1987_CA.csv")
usethis::use_data(TRI_1987_CA, overwrite = TRUE)

TRI_1997_CA <- read_csv("inst/extdata/TRI/TRI_1997_CA.csv")
usethis::use_data(TRI_1997_CA, overwrite = TRUE)

TRI_2007_CA <- read_csv("inst/extdata/TRI/TRI_2007_CA.csv")
usethis::use_data(TRI_2007_CA, overwrite = TRUE)

TRI_2017_CA <- read_csv("inst/extdata/TRI/TRI_2017_CA.csv")
usethis::use_data(TRI_2017_CA, overwrite = TRUE)

library(sf)

CA_counties <- st_read("inst/extdata/CA/CA_counties.shp")
usethis::use_data(CA_counties, overwrite = TRUE)

BayAreaCounties <- st_read("inst/extdata/BayArea/BayAreaCounties.shp")
usethis::use_data(BayAreaCounties, overwrite = TRUE)

BayAreaTracts <- st_read("inst/extdata/BayArea/BayAreaTracts.shp")
usethis::use_data(BayAreaTracts, overwrite = TRUE)

CAfreeways <- st_read("inst/extdata/CA/CAfreeways.shp")
usethis::use_data(CAfreeways, overwrite = TRUE)