tests/testthat/_snaps/mssql/json_pack.md

In krlmlr/dm: Relational Data Models

json_pack() works remotely

Code
  query <- json_pack(remote, a = starts_with("a")) %>% dbplyr::sql_render()
  gsub("test_frame_[_0-9]+", "test_frame_...", query)
Output
  <SQL> SELECT "grp", (SELECT value FROM OPENJSON((SELECT "a_i", "a_j" FOR JSON PATH))) AS "a" FROM (SELECT *
  FROM "#test_frame_...") "*tmp*"
Code
  json_pack(remote, a = starts_with("a"))
Output
      grp a                              
    <dbl> <chr>                          
  1     1 "{\"a_i\":\"a\",\"a_j\":\"A\"}"
  2     1 "{\"a_i\":\"b\",\"a_j\":\"B\"}"
  3     2 "{\"a_i\":\"c\",\"a_j\":\"C\"}"
  4     2 "{\"a_i\":\"d\",\"a_j\":\"D\"}"
Code
  query <- json_pack(remote, a = starts_with("a"), .names_sep = "_") %>% dbplyr::sql_render()
  gsub("test_frame_[_0-9]+", "test_frame_...", query)
Output
  <SQL> SELECT "grp", (SELECT value FROM OPENJSON((SELECT "a_i" "i", "a_j" "j" FOR JSON PATH))) AS "a" FROM (SELECT *
  FROM "#test_frame_...") "*tmp*"
Code
  json_pack(remote, a = starts_with("a"), .names_sep = "_")
Output
      grp a                          
    <dbl> <chr>                      
  1     1 "{\"i\":\"a\",\"j\":\"A\"}"
  2     1 "{\"i\":\"b\",\"j\":\"B\"}"
  3     2 "{\"i\":\"c\",\"j\":\"C\"}"
  4     2 "{\"i\":\"d\",\"j\":\"D\"}"

krlmlr/dm documentation built on April 19, 2024, 5:23 p.m.