R/LocalVersusRemote.R

In GDELTtools: Download, Slice, and Normalize GDELT V1 Event and Sentiment API Data

# Given a list of files, determines which ones are local and which are remote

LocalVersusRemote <- function(filelist, local_folder) {
  
  return( list(local=filelist[filelist %in% dir(local_folder)],
               remote=filelist[!(filelist %in% dir(local_folder))]) )
}