Merge pull request #59 from limnoliver/master

limnoliver · web-flow · commit dca9b4d7528e · 2018-09-05T15:38:40.000-05:00
corrected variable name I was referencing in new warning message.
diff --git a/R/RMprep.R b/R/RMprep.R
@@ -91,9 +91,9 @@ RMprep <- function(df,
       pdate <-  as.POSIXct(dates,format=Date.style[date.type],tz=tz)
     }
     if (any(is.na(pdate))) {
-      warning(paste0("NA values present in column ", date.out, '. Please check whether input data contain NA values and/or that the proper time zone was specified.'))
+      warning(paste0("NA values present in column ", dates.out, '. Please check whether input data contain NA values and/or that the proper time zone was specified.'))
     }
-    df[date.out] <- pdate
+    df[dates.out] <- pdate
   }
   
   # Change column headers as specified

Original file line number	Diff line number	Diff line change
`@@ -91,9 +91,9 @@ RMprep <- function(df,`
`91`	`91`	`pdate <- as.POSIXct(dates,format=Date.style[date.type],tz=tz)`
`92`	`92`	`}`
`93`	`93`	`if (any(is.na(pdate))) {`
`94`		`- warning(paste0("NA values present in column ", date.out, '. Please check whether input data contain NA values and/or that the proper time zone was specified.'))`
	`94`	`+ warning(paste0("NA values present in column ", dates.out, '. Please check whether input data contain NA values and/or that the proper time zone was specified.'))`
`95`	`95`	`}`
`96`		`- df[date.out] <- pdate`
	`96`	`+ df[dates.out] <- pdate`
`97`	`97`	`}`
`98`	`98`
`99`	`99`	`# Change column headers as specified`