page_page: page_page

View source: R/page.R

page_pageR Documentation

page_page

Description

page_page

Usage

page_page(header, body)

Arguments

header

an html header

body

an html body

Value

an hlt page

Examples

## 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)

trosendal/svis documentation built on Jan. 28, 2023, 12:05 a.m.