In trosendal/svis: Package to produce visualizations on the web

Generate point map from ASF tests done in Sweden

library(svis)
## Get the sample data
pts <- sample_data("asf")
## Define the popup text
pts@data$popup_text <- paste(pts@data[,"K\u00F6n"], pts@data$Status, sep = "<br>")
## Put the data in a map layer
body <- page_body(map_div(layer(pts,  layer_title = "ASF", fillColor = shQuote("#ff0000"))))
## Add a page header
page <- page_page(page_header(), body)
## view this pag
map <- tempfile(fileext = "html")
capture.output(page, file = map)

Then view the page

browseURL(map)

map <- "../inst/doc/map4.html"
capture.output(page, file = map)
knitr::include_url(basename(map), height = "1000px")

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