Check if File exists. If not, create it and save.

create.if.necessary.R

filename <- paste("file", ".csv", sep = "")

if(filename %in% list.files()){

  # Load files
  
  df <- read_csv(filename)
} else{

  # create df
  
  # save df
  
  write_csv(df, filename)
}