library(svgR)
library(tidyverse)
WH<-c(500,350)
# Defined by mouse: edit with care!
ptR<-list(
x=matrix(0,2,0)
)
svgR(wh=WH,
#your custom code goes here
NULL
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.