R/write_data_log.R

In hamishgibbs/rtrackr: What the Package Does (One Line, Title Case)

write_data_log <- function(dataframe, trackr_dir, file_hash, suppress_success){
  
  trackr_fn <- paste0(trackr_dir, '/', file_hash, '_dl.json')
  
  trackr_json <- jsonlite::toJSON(dataframe)
  
  write(trackr_json, file = trackr_fn)
  
  if(!suppress_success){
    print(paste0('Successfully written trackr data log ', tail(stringr::str_split(trackr_fn, '/')[[1]], 1)))
  }
}