## These are moved from test-variable-folder.R thanks to R's archaic restriction on UTF-8
expect_output(print(publicFolder(ds), depth = 2),
"/
├── Group 1/
│ ├── Birth Year
│ ├── Nested/
│ │ ├── Gender
│ │ ├── Categorical Location
│ │ └── mymrset
│ └── Text variable ftw
└── Group 2/
├── starttime
└── Cat Array",
fixed = TRUE
)
expect_output(print(publicFolder(ds), depth = 1),
"/
├── Group 1/
│ ├── Birth Year
│ ├── Nested/
│ └── Text variable ftw
└── Group 2/
├── starttime
└── Cat Array",
fixed = TRUE
)
expect_output(print(publicFolder(ds), pretty = TRUE),
"/
├── Group 1/
└── Group 2/",
fixed = TRUE
)
# nolint start
expect_output(print(publicFolder(ds)[["Group 1/Nested"]], pretty = TRUE),
"/Group 1/Nested/
├── Gender
├── Categorical Location
└── mymrset",
fixed = TRUE
)
# nolint end
with(temp.option(crunch = list(crunch.delimiter = "|")), {
expect_output(print(publicFolder(ds), depth = 2),
"|
├── Group 1|
│ ├── Birth Year
│ ├── Nested|
│ │ ├── Gender
│ │ ├── Categorical Location
│ │ └── mymrset
│ └── Text variable ftw
└── Group 2|
├── starttime
└── Cat Array",
fixed = TRUE
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.