Allow users to return data directly

[bschilder]

 if(return_data){
    message("Returning data.table directly.")
   return(sumstats_return$sumstats_dt)
  } else {
    message("Returning path to saved data.")
    return(check_save_out$save_path) # Returns address of modified file
  }