A wrapper around pack_join() which stores the joined data into a JSON column.
json_pack_join() returns all rows and columns in x with a new JSON columns that contains all packed matches from y.
Arguments
- x, y
A pair of data frames or data frame extensions (e.g. a tibble).
- by
A join specification created with
join_by(), or a character vector of variables to join by.If
NULL, the default,*_join()will perform a natural join, using all variables in common acrossxandy. A message lists the variables so that you can check they're correct; suppress the message by supplyingbyexplicitly.To join on different variables between
xandy, use ajoin_by()specification. For example,join_by(a == b)will matchx$atoy$b.To join by multiple variables, use a
join_by()specification with multiple expressions. For example,join_by(a == b, c == d)will matchx$atoy$bandx$ctoy$d. If the column names are the same betweenxandy, you can shorten this by listing only the variable names, likejoin_by(a, c).join_by()can also be used to perform inequality, rolling, and overlap joins. See the documentation at ?join_by for details on these types of joins.For simple equality joins, you can alternatively specify a character vector of variable names to join by. For example,
by = c("a", "b")joinsx$atoy$aandx$btoy$b. If variable names differ betweenxandy, use a named character vector likeby = c("x_a" = "y_a", "x_b" = "y_b").To perform a cross-join, generating all combinations of
xandy, seecross_join().- ...
Other parameters passed onto methods.
- copy
If
xandyare not from the same data source, andcopyisTRUE, thenywill be copied into the same src asx. This allows you to join tables across srcs, but it is a potentially expensive operation so you must opt into it.- keep
Should the new list-column contain join keys? The default will preserve the join keys for inequality joins.
- name
The name of the list-column created by the join. If
NULL, the default, the name ofyis used.
Examples
df1 <- tibble::tibble(x = 1:3)
df2 <- tibble::tibble(x = c(1, 1, 2), y = c("first", "second", "third"))
df3 <- json_pack_join(df1, df2)
#> Joining with `by = join_by(x)`
df3
#> # A tibble: 4 × 2
#> x df2
#> <dbl> <list>
#> 1 1 <json [1]>
#> 2 1 <json [1]>
#> 3 2 <json [1]>
#> 4 3 <json [1]>
df3$df2
#> [[1]]
#> [{"y":"first"}]
#>
#> [[2]]
#> [{"y":"second"}]
#>
#> [[3]]
#> [{"y":"third"}]
#>
#> [[4]]
#> [{}]
#>
