page_page | R Documentation |
page_page
page_page(header, body)
header |
an html header |
body |
an html body |
an hlt page
## Not run: library(svis) # Get the sample data pts <- sample_data() a <- convert_to_geojson(pts) # Convert to layer objects with 2 different names: layer1 <- point_layer(a) layer2 <- point_layer(a, layer_title = "layer2") # Make a layers object with both layers layersob <- layers(list(layer1, layer2)) # Generate the page header header <- page_header() # Map with a single layer: body <- page_body(map_div(layer1)) page <- page_page(header, body) map <- tempfile(fileext = ".html") capture.output(page, file = map) browseURL(map) # Map with 2 layers: body <- page_body(map_div(layersob)) page <- page_page(header, body) map <- tempfile(fileext = ".html") capture.output(page, file = map) browseURL(map) ## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.