fixes #23 neus datetime provided in updated #18

@mpinsky good call, datetime exists in new data set; @bselden might want to check with your sources, but this approach infers far less; datetime is specified
rBatt · Dec 15, 2015 · 39f2c94 · 39f2c94
1 parent cd240f2
commit 39f2c94
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/R/clean.columns.R b/R/clean.columns.R
@@ -227,7 +227,7 @@ clean.columns.neus <- function(X){
 	X[,haulid:=paste(formatC(cruise, width=6, flag=0), formatC(station, width=3, flag=0), formatC(stratum, width=4, flag=0), sep='-')]
 
 	# date, time, datetime
-	X[,datetime:=as.POSIXct(paste(as.character(year),substr(cruise,5,6),"01",sep="-"), format="%Y-%m-%d", tz="GMT")]
+	X[,datetime:=as.POSIXct(datetime, tz="GMT")]
 
 	# season
 	# neus already has its own season definition

diff --git a/R/clean.names.R b/R/clean.names.R
@@ -220,6 +220,7 @@ clean.names.neus <- function(X){
 		"SVSPP" = "SID",
 		"CATCHSEX" = "sex",
 		"YEAR" = "year",
+		"EST_TOWDATE" = "datetime",
 		"SEASON" = "season",
 		"LAT" = "lat",
 		"LON" = "lon",