Code
suppressMessages(library(tidyverse))
suppressMessages(library(glue))
= "/Users/haekyungim/Library/CloudStorage/Box-Box/LargeFiles/imlab-data/data-Github/web-data"
PRE ##PRE="/Users/margaretperry/Library/CloudStorage/Box-Box/imlab-data/data-Github/web-data "
##PRE="/Users/temi/Library/CloudStorage/Box-Box/imlab-data/data-Github/web-data"
## COPY THE DATE AND SLUG fields FROM THE HEADER
="jane-austen-corpus" ## copy the slug from the header
SLUG='2023-03238' ## copy the date from the blog's header here
bDATE= glue("{PRE}/{bDATE}-{SLUG}")
DATA if(!file.exists(DATA)) system(glue::glue("mkdir {DATA}"))
=DATA
WORK
## move data to DATA
#tempodata=("~/Downloads/tempo/gwas_catalog_v1.0.2-associations_e105_r2022-04-07.tsv")
#system(glue::glue("cp {tempodata} {DATA}/"))
#system(glue("open {DATA}")) ## this will open the folder