Skip to content

Commit

Permalink
trailing ws
Browse files Browse the repository at this point in the history
  • Loading branch information
MichaelChirico committed Mar 20, 2024
1 parent 4c2f338 commit bd239ec
Showing 1 changed file with 8 additions and 8 deletions.
16 changes: 8 additions & 8 deletions inst/tests/programming.Rraw
Original file line number Diff line number Diff line change
Expand Up @@ -196,35 +196,35 @@ test(5.11, list2lang(list("a", 1L, call("c", 1L, 2L))), list(as.name("a"), 1L, q

# datatable.enlist
test(6.01,
options = c(datatable.enlist=NULL),
options = c(datatable.enlist=NULL),
substitute2(list(v1 = v2, v3 = v4), list(v1 = "int", v2 = 1L, v3 = "lst", v4 = list("a", "b", list("c", "d")))),
quote(list(int = 1L, lst = list(a, b, list(c, d)))))
test(6.02,
options = c(datatable.enlist=FALSE),
options = c(datatable.enlist=FALSE),
substitute2(list(v1 = v2, v3 = v4), list(v1 = "int", v2 = 1L, v3 = "lst", v4 = list("a", "b", list("c", "d")))),
substitute(list(int = 1L, lst = lst), list(lst = list("a", "b", list("c", "d")))))
test(6.03,
options = c(datatable.enlist=NULL),
options = c(datatable.enlist=NULL),
enlist(list(v1 = 1L, v2 = list(v3 = "b", v4 = list(v5 = "c")))),
quote(list(v1 = 1L, v2 = list(v3 = b, v4 = list(v5 = c)))))
test(6.04,
options = c(datatable.enlist=FALSE),
options = c(datatable.enlist=FALSE),
enlist(list(v1 = 1L, v2 = list(v3 = "b", v4 = list(v5 = "c")))),
substitute(list(v1 = 1L, v2 = lst), list(lst=list(v3 = "b", v4 = list(v5 = "c")))))
test(6.05,
options = c(datatable.enlist=NULL),
options = c(datatable.enlist=NULL),
substitute2(list(v1, v2, v3), list(v1="V1", v2="V2", v3=enlist(list("V4","V5")))),
quote(list(V1, V2, list(V4, V5))))
test(6.06,
options = c(datatable.enlist=FALSE),
options = c(datatable.enlist=FALSE),
substitute2(list(v1, v2, v3), list(v1="V1", v2="V2", v3=enlist(list("V4","V5")))),
quote(list(V1, V2, list(V4, V5))))
test(6.07,
options = c(datatable.enlist=FALSE),
options = c(datatable.enlist=FALSE),
substitute2(list(v1, v2, v3), list(v1="V1", v2="V2", v3=enlist(list("V4","V5", list("V6"))))),
substitute(list(V1, V2, list(V4, V5, lst)), list(lst=list("V6"))))
test(6.08,
options = c(datatable.enlist=FALSE),
options = c(datatable.enlist=FALSE),
substitute2(list(v1, v2, v3), list(v1="V1", v2="V2", v3=enlist(list("V4","V5", enlist(list("V6")))))),
quote(list(V1, V2, list(V4, V5, list(V6)))))

Expand Down

0 comments on commit bd239ec

Please sign in to comment.