R/readGPS.R

Defines functions readGPS

Documented in readGPS

# Copyright (c) 2007 Patrick Giraudoux and Roger Bivand

readGPS <- function(i="garmin", f="usb:", type="w", invisible=TRUE, ...) {
    GB <- Sys.which("gpsbabel")
    if (nchar(GB) == 0 || !file.exists(GB)) stop("gpsbabel not found")
    if (.Platform$OS.type == "windows") 
	gpsdata <- system(paste(GB, " -", type, " -i ", i, " -f ", f,
	" -o tabsep -F -", sep=""), intern=TRUE, invisible=invisible)
    else gpsdata <- system(paste(GB, " -", type, " -i ", i, " -f ", f,
	" -o tabsep -F -", sep=""), intern=TRUE)
    if (any(grep("Can't init", gpsdata))) 
	stop("Cannot read GPS: check connexion")
    gpsdf <- read.table(con <- textConnection(gpsdata), fill=TRUE, ...)
    close(con)
    gpsdf
}

Try the maptools package in your browser

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

maptools documentation built on Sept. 7, 2021, 5:09 p.m.