Complete technical prep

.gitignore

@@ -5,3 +5,4 @@
 *.html
 Test.*
 data/
+data_raw/

prep/Preparation-RNotebook.ipynb

@@ -41,7 +41,9 @@
     "library(tidyverse)\n",
     "library(lubridate)\n",
     "library(ratdat)\n",
-    "library(ggplot2)"
+    "library(ggplot2)\n",
+    "\n",
+    "install.packages(c(\"dbplyr\", \"RSQLite\"))"
    ]
   },
   {

prep/Preparation-RStudio.Rmd

@@ -102,3 +102,32 @@ Write Data
 ```{r}
 write_csv(surveys, "data/cleaned/test.csv")
 ```
+
+## Databases
+
+Setup
+```{r}
+dir.create('data_raw', recursive = TRUE, showWarnings = FALSE)
+install.packages(c("dbplyr", "RSQLite"))
+library(dplyr)
+library(dbplyr)
+```
+
+Download and connect to database
+```{r}
+download.file(url = "https://ndownloader.figshare.com/files/2292171",
+              destfile = "data_raw/portal_mammals.sqlite", mode = "wb")
+mammals <- DBI::dbConnect(RSQLite::SQLite(), "data_raw/portal_mammals.sqlite")
+src_dbi(mammals)
+```
+
+Run Queries
+```{r}
+tbl(mammals, sql("SELECT year, species_id, plot_id FROM surveys"))
+
+surveys <- tbl(mammals, "surveys")
+surveys %>%
+    select(year, species_id, plot_id)
+
+head(surveys, n = 10)
+```

prep/Setup.Rmd

@@ -21,3 +21,8 @@ Packages from Lesson 1
 ```{r message=FALSE, warning=FALSE}
 install.packages("ggplot2")
 ```
+
+Packages from Data Lesson
+```{r message=FALSE, warning=FALSE}
+install.packages(c("dbplyr", "RSQLite"))
+```