json_pack()
worksCode
df <- tibble::tibble(x1 = 1:3, x2 = 4:6, x3 = 7:9, y = 1:3)
packed <- json_pack(df, x = c(x1, x2, x3), y = y)
packed
Output
# A tibble: 3 x 2
x y
<chr> <chr>
1 "{\"x1\":1,\"x2\":4,\"x3\":7}" "{\"y\":1}"
2 "{\"x1\":2,\"x2\":5,\"x3\":8}" "{\"y\":2}"
3 "{\"x1\":3,\"x2\":6,\"x3\":9}" "{\"y\":3}"
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.