inst/temp/as.data.frame.R

NULL

#'    Corces a \code{smet-class} object to a data frame
#' 
#' 
#' 
#' @param x 
#' @param date.field field neme used for date and time. Default is \code{"timestamp"}.
#' 
#' 
#' @seealso \code{\link{smet-class}}, \code{\link{smet}},\code{\link{as.data.frame}}
#' 
#' 
#' @rdname as.data.frame
#' @method as.data.frame smet
#' @aliases as.data.frame 
#' @export 
#' 
#' 


as.data.frame.smet <- function(x,date.field="timestamp") {
	
	 
	
	out <- x@data
	out <- out[,x@header$fields]
	mult <- x@header$units_multiplier[x@header$fields]
	offset <- x@header$units_offset[x@header$fields]
	
	i <- which(names(out)!=date.field)
	
	temp <- out
	
	
	
	
	out[,i] <- t(apply(X=out[,i],FUN=function(x,mult,offset) {x*mult+offset},mult=mult[i],offset=offset[i],MARGIN=1))
	
	header <- x@header
	header$units_multiplier <- header$units_multiplier*0+1
	header$units_offset <- header$units_offset*0+1
	
	
	attr(out,"header") <- header
	attr(out,"signature") <- x@signature
	
	return(out)
	
	
	
	
	
}

Try the RSMET package in your browser

Any scripts or data that you put into this service are public.

RSMET documentation built on April 24, 2018, 5:04 p.m.