From 39f2c94abc8e02603257a4bcc29a75a22104c4da Mon Sep 17 00:00:00 2001 From: rBatt Date: Tue, 15 Dec 2015 02:41:35 -0500 Subject: [PATCH] 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 --- R/clean.columns.R | 2 +- R/clean.names.R | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/R/clean.columns.R b/R/clean.columns.R index 4759c51..873708e 100644 --- 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 index 7c846ff..2dfc99a 100644 --- 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",