# set up `dt1` with an id column and some random numbers
set.seed(123)
dt1 <- tibble::tibble(
  id = c(1,2,3),
  a = rnorm(n = 3)
)
# set up `dt2` as a rowwise dataframe with `id2` nested inside `id1` column 
set.seed(123)
dt2 <- tibble::tibble(
  id = rep(c(1,2,3), each = 3),
  id2  = rep(c("a", "b", "c"), 3),
  b = rnorm(n = 9)
) |>
  dplyr::rowwise()
# nesting `dt2` gives each element in data as a `rowwise_df`
dt2 |> tidyr::nest(data = -id)
#> # A tibble: 3 × 2
#>      id data                
#>   <dbl> <list>              
#> 1     1 <rowwise_df [3 × 2]>
#> 2     2 <rowwise_df [3 × 2]>
#> 3     3 <rowwise_df [3 × 2]>
# but `nest_join()` doesnt not preserve the `rowwwise_df` class 
dt1 |> dplyr::nest_join(dt2, by = "id")
#> # A tibble: 3 × 3
#>      id      a dt2             
#>   <dbl>  <dbl> <list>          
#> 1     1 -0.560 <tibble [3 × 2]>
#> 2     2 -0.230 <tibble [3 × 2]>
#> 3     3  1.56  <tibble [3 × 2]>