swh:1:snp:a4c99a50dc49f82b591f268001b320f8c3ca0041
Tip revision: dc000f2a5f006d137f66716b086025d618bf8306 authored by John M Chambers on 14 July 2008, 00:00:00 UTC
version 1.0-5
version 1.0-5
Tip revision: dc000f2
scanGPS1.R
if(!isClass("GPSTrack")) {
source("./DateTimeTools.R")
source("./GPSTrackClass.R")
}
scanGPSTrack <- function(con, ...) {
fields <- list(date = "", time = "",
x = 0., y = 0., z = 0.)
data <- scan(con, fields)
dateTime <- as.POSIXct(strptime(paste(date, time),
"20%y-%m-%d %H:%M:%S"))
new("GPSTrack", latitude = data$x, longtitude = data$y,
elevation = data$z, time = dateTime)
}