Nothing
point.coords.as.dataframe <- function(samplers){
# Internal function which transforms the samplers into a
# dataframe suitable for writing to csv file.
all.transects <- data.frame(transect = NULL, strata = NULL, x = NULL, y = NULL)
for(i in seq(along = samplers[[1]])){
tr <- samplers$transect[i]
st <- samplers$strata[i]
if(inherits(samplers$geometry[i][[1]], "POINT")){
coords <- as.numeric(samplers$geometry[i][[1]])
temp <- data.frame(transect = tr,
strata = st,
x = coords[1],
y = coords[2])
all.transects <- rbind(all.transects,temp)
}else if(inherits(samplers$geometry[i][[1]], "MULTIPOINT")){
for(j in seq(along = samplers$geometry[i][[1]])){
coords <- as.numeric(samplers$geometry[i][[1]][[j]])
temp <- data.frame(transect = tr,
strata = st,
x = coords[1],
y = coords[2])
all.transects <- rbind(all.transects,temp)
}
}
}
return(all.transects)
}
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.