Nothing
write.bnd <- function(map, file, replace=FALSE)
{
if(! inherits(map,"bnd"))
stop("argument 'map' is not an object of class 'bnd'")
## coercions, checks
replace <- as.logical(replace)
file <- as.character(file)
stopifnot(identical(length(file), 1L),
identical(length(replace), 1L))
## check whether the file exists
if(file.exists(file))
{
if(replace)
{
removeSucceeded <- file.remove(file)
if(! removeSucceeded)
{
stop("file exists, but could not be removed")
}
} else {
stop("specified file already exists")
}
}
myQuote <- function(string)
{
return(paste("\"", string, "\"",
sep=""))
}
## names of the belonging regions
belongingRegions <- names(map)
## no. of polygons
nPolygons <- length(map)
## the surrounding list
surrounding <- attr(map, "surrounding")
for(i in seq_len(nPolygons))
{
dat <- map[[i]]
dat <- dat[complete.cases(dat), ]
temp <- paste(myQuote(belongingRegions[i]),
nrow(dat),
sep=",")
write(temp, file, append=TRUE)
if(length(outerRegionName <- surrounding[[i]]))
{
con <- paste("is.in",
myQuote(outerRegionName),
sep=",")
write(con, file, append=TRUE)
}
write.table(dat, file, append=TRUE,
col.names=FALSE, row.names=FALSE,
sep=",", quote=FALSE)
}
return(invisible())
}
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.