Nothing
Code
packed <- json_pack_join(df1, df2, by = "key")
packed
Output
# A tibble: 3 x 3
col1 key df2
<int> <chr> <list>
1 1 a <json [1]>
2 1 a <json [1]>
3 2 b <json [1]>
Code
packed$df2
Output
[[1]]
[{"col2":3,"col3":"X"}]
[[2]]
[{"col2":4,"col3":"Y"}]
[[3]]
[{"col2":3.14159265358979,"col3":"Z"}]
Code
nested <- json_nest_join(df1, df2, by = "key")
nested
Output
# A tibble: 2 x 3
col1 key df2
<int> <chr> <list>
1 1 a <json [1]>
2 2 b <json [1]>
Code
nested$df2
Output
[[1]]
[{"col2":3,"col3":"X"},{"col2":4,"col3":"Y"}]
[[2]]
[{"col2":3.14159265358979,"col3":"Z"}]
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.