Nothing
# 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
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.