names

USGS-R · Sep 9, 2015 · 1462961 · 1462961
1 parent ffd744d
commit 1462961
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/R/read.R b/R/read.R
@@ -93,7 +93,7 @@ read.wide_burst <- function(file,date.format){
   }
   date.vec <- head(date.vec,cnt-1)
   sens.vec <- head(sens.vec,cnt-1)
-  data.out <- data.frame('DateTime'=date.vec, 'sensor.obs'=sens.vec)
+  data.out <- data.frame('DateTime'=date.vec, 'x'=sens.vec)
 
   # should we also return metadata?
   return(data.out)

diff --git a/R/sensor-class.R b/R/sensor-class.R
@@ -5,6 +5,7 @@ sensor <- function(x, flag.defs, ...){
 
 #' @export
 sensor.data.frame <- function(x, flag.defs = NULL, ...){
+  names(x) <- c('times','x','w')[seq_len(length(names(x)))]
   sensor = list(sensor=x)
   flags = define_flags(flag.defs,...)
   if (!is.null(flags))