R/move_file_into_subfolder.R

In ThomUK/MSDSpipeline: Download, join, and tidy the public NHS Maternity Services Data

move_file_into_subfolder<- function(filename, folder){
  
  #build the absolute filepath
  current_abs_path <- file.path(folder, filename)
  
  #if the file is actually a directory, return early with no action
  if(file_test("-d", current_abs_path)) return()
  
  #discover which data type the filename is
  type <- discover_data_type(filename)
  
  #the new directory has a subfolder for each type
  new_abs_path <- file.path(folder, type, filename)
  
  #move the file  
  move_file(from = current_abs_path, to = new_abs_path)
}