if (FALSE) {
# re-build meeple coordinates
library("grid")
library("rsvg")
library("tibble")
svg_file <- tempfile(fileext = ".svg")
rsvg::rsvg_svg("raw-data/meeple.svg", file = svg_file)
p = grImport2::readPicture(svg_file)
xy = grobCoords(grImport2::pictureGrob(p), closed=T)[[2]]
x <- xy$x
x <- (x - min(x)) / (max(x) - min(x))
y <- xy$y
y <- (y - min(y)) / (max(y) - min(y))
df <- tibble::tibble(x, y)
df <- df[!duplicated(df), ]
df <- df[c(266:530, 1:265),]
df$c <- "C1"
df[530, "c"] <- "C0"
df[137, "c"] <- "C0"
df[232, "c"] <- "C0"
df[300, "c"] <- "C0"
df[395, "c"] <- "C0"
# f <- function(i) grid.points(df$x[i], df$y[i], default.units = "npc")
# grid.newpage()
# grid.polygon(x=df$x, y=df$y, gp=gpar(fill="lightblue"))
meeple_xy <- as.data.frame(df)
} else {
load("R/sysdata.rda")
}
save(meeple_xy, file="R/sysdata.rda", version=2)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.