update to split_by_type.R
Replace line 38 with:
fn<-paste0(config$ICOADS_data_path, year, "_", cmo[imo],".Rda")
Replace line 187 with:
if ( year >= 1936 & year <= 1947 ) {
Replace lines 238-244 with:
for ( ty in names(sp) ) {
ty2<-gsub('ship','TMP',ty) # write ship output to temp. dir
op <- sp[[ty]]
if ( nrow(op) == 0 ) {next}
fn.out <- paste0(paste0(config$output_dir, "MFILES_"), toupper(ty2), "/", year, "", imo, ".Rda")
if (!dir.exists(paste0(paste0(config$output_dir, "MFILES"), toupper(ty2))))
dir.create(paste0(paste0(config$output_dir, "MFILES_"), toupper(ty2)))