Extract raw data file names from a drake plan

extract_raw_data_file_names_from_plan.R

library(tidyverse)

# Extract names of files in a "data_raw" folder 
# and append "put" so they can easily be uploaded to
# a server using sftp

plan_lines <- read_lines("code/world_biogeo_plan.R")

plan_lines %>%
  magrittr::extract(str_detect(., "data_raw")) %>%
  str_match('data_raw\\/([^\\"]+)?\\"') %>%
  magrittr::extract(,2) %>%
  unique %>%
  sort %>%
  paste("put", .)