mbjones

---
title: "geopackage"
author: "Matt Jones"
date: "7/23/2021"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

mbjones

---
title: "abstracts"
author: "Matt Jones"
date: "10/11/2021"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(vroom)

mbjones

library(dataone)

# Download a CSV-formatted data file from the KNB 
# repository, and convert it to a data.frame
get_dataframe <- function(pid) {
  d1c <- D1Client("PROD", "urn:node:KNB")
  data_raw <- getObject(d1c@mn, pid)
  data_char <- rawToChar(data_raw)
  csv_text <- textConnection(data_char)
  df <- read.csv(csv_text, stringsAsFactors = FALSE)