swh:1:snp:a4c99a50dc49f82b591f268001b320f8c3ca0041
Tip revision: ce60f670aac0a708d3a9af5f0cf46a752d46ba8a authored by John M Chambers on 28 October 2020, 07:59:48 UTC
version 1.0-6.1
version 1.0-6.1
Tip revision: ce60f67
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)
}