vls <- function(patt, mapset) {
if(missing(patt)) {
if(missing(mapset)) {
result <- system("g.mlist type=vect patt=* separator=newline", intern=TRUE)
} else {
result <- system(paste0("g.mlist type=vect patt=* separator=newline mapset=", mapset), intern=TRUE)
}
} else {
if(missing(mapset)) {
result <- system(paste0("g.mlist type=vect separator=newline patt=", patt), intern=TRUE)
} else {
result <- system(paste0("g.mlist type=vect separator=newline patt=", patt, " mapset=", mapset), intern=TRUE)
}
}
result
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.