suppressMessages(library(tidyverse))suppressMessages(library(glue))PRE ="/Users/haekyungim/Library/CloudStorage/Box-Box/LargeFiles/imlab-data/data-Github/web-data"SLUG="lego-database"## copy the slug from the headerbDATE='2000-01-01'## copy the date from the blog's header hereDATA =glue("{PRE}/{bDATE}-{SLUG}")if(!file.exists(DATA)) system(glue::glue("mkdir {DATA}"))WORK=DATA##system(glue("open {DATA}")) ## this will open the folder
downloads schema in /Users/haekyungim/Library/CloudStorage/Box-Box/LargeFiles/imlab-data/data-Github/web-data/2000-01-01-lego-database/downloads_schema.png
Code
parts =read_csv(glue("{DATA}/parts.csv"))
Rows: 25993 Columns: 3
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
chr (2): part_num, name
dbl (1): part_cat_id
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
---title: lego database author: Haky Imdate: 2000-01-01---```{r}suppressMessages(library(tidyverse))suppressMessages(library(glue))PRE ="/Users/haekyungim/Library/CloudStorage/Box-Box/LargeFiles/imlab-data/data-Github/web-data"SLUG="lego-database"## copy the slug from the headerbDATE='2000-01-01'## copy the date from the blog's header hereDATA =glue("{PRE}/{bDATE}-{SLUG}")if(!file.exists(DATA)) system(glue::glue("mkdir {DATA}"))WORK=DATA##system(glue("open {DATA}")) ## this will open the folder ```[downloads schema](https://uchicago.box.com/shared/static/qwo8cvwigi3lylbxddro0leq4uv0b0k0.png)in /Users/haekyungim/Library/CloudStorage/Box-Box/LargeFiles/imlab-data/data-Github/web-data/2000-01-01-lego-database/downloads_schema.png```{r}parts =read_csv(glue("{DATA}/parts.csv"))```