Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Adjust teal after introduction of [.qenv in teal.code and after changes of @code, @warnings, @messages and @id slots #1396

Merged
merged 19 commits into from
Nov 8, 2024
Merged

Adjust teal after introduction of [.qenv in teal.code and after changes of @code, @warnings, @messages and @id slots #1396

Changes from 2 commits
Commits
Show all changes
19 commits
Select commit Hold shift + click to select a range
0f0f314
adjust teal.code tests
m7pr Oct 25, 2024
af994b1
do not prefix subset in tests
m7pr Oct 28, 2024
bdcb768
adjust test for new @linksto format
m7pr Oct 28, 2024
1bd270d
Merge branch 'main' into 211_subset@main
m7pr Oct 28, 2024
181f147
Merge branch 'main' into 211_subset@main
m7pr Oct 28, 2024
c3c3ce6
remove .subset_teal_data in favour of [.teal_data
m7pr Nov 6, 2024
6368dc6
Merge branch 'main' into 211_subset@main
m7pr Nov 6, 2024
5973675
adding .raw_data in teal.data::[.teal_data
m7pr Nov 6, 2024
422a53c
Merge branch '211_subset@main' of https://github.com/insightsengineer…
m7pr Nov 6, 2024
e2352b2
extend module names by .raw_data when selecting module teal_data
m7pr Nov 6, 2024
57454b8
Merge branch 'main' into 211_subset@main
m7pr Nov 7, 2024
e62cf57
changes to append_evaluated_code
m7pr Nov 8, 2024
5fa0b5a
Merge branch 'main' into 211_subset@main
m7pr Nov 8, 2024
9965d85
fix 1 test
m7pr Nov 8, 2024
88a769b
Empty-Commit
m7pr Nov 8, 2024
0d75c55
docs: remove argument description that no longer is used
averissimo Nov 8, 2024
b000ade
fix: failing test with missing # @linksto
averissimo Nov 8, 2024
1f42f96
Merge branch 'main' into 211_subset@main
averissimo Nov 8, 2024
7b238bb
chore: remove comment in code with question
averissimo Nov 8, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
18 changes: 9 additions & 9 deletions tests/testthat/test-module_teal.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1332,10 +1332,10 @@ testthat::describe("srv_teal filters", {
c(
"iris <- iris",
"mtcars <- mtcars",
sprintf('stopifnot(rlang::hash(iris) == "%s")', rlang::hash(iris)),
sprintf('stopifnot(rlang::hash(mtcars) == "%s")', rlang::hash(mtcars)),
sprintf('stopifnot(rlang::hash(iris) == "%s") # @linksto iris', rlang::hash(iris)),
sprintf('stopifnot(rlang::hash(mtcars) == "%s") # @linksto mtcars', rlang::hash(mtcars)),
".raw_data <- list2env(list(iris = iris, mtcars = mtcars))",
"lockEnvironment(.raw_data)",
"lockEnvironment(.raw_data) #@linksto .raw_data",
m7pr marked this conversation as resolved.
Show resolved Hide resolved
"mtcars <- dplyr::filter(mtcars, cyl == 4)"
),
collapse = "\n"
Expand Down Expand Up @@ -1510,10 +1510,10 @@ testthat::describe("srv_teal teal_module(s) transformer", {
expected_code <- paste(collapse = "\n", c(
"iris <- iris",
"mtcars <- mtcars",
sprintf('stopifnot(rlang::hash(iris) == "%s")', rlang::hash(iris)),
sprintf('stopifnot(rlang::hash(mtcars) == "%s")', rlang::hash(mtcars)),
sprintf('stopifnot(rlang::hash(iris) == "%s") # @linksto iris', rlang::hash(iris)),
sprintf('stopifnot(rlang::hash(mtcars) == "%s") # @linksto mtcars', rlang::hash(mtcars)),
".raw_data <- list2env(list(iris = iris, mtcars = mtcars))",
"lockEnvironment(.raw_data)",
"lockEnvironment(.raw_data) #@linksto .raw_data",
m7pr marked this conversation as resolved.
Show resolved Hide resolved
'iris <- dplyr::filter(iris, Species == "versicolor")',
"mtcars <- dplyr::filter(mtcars, cyl == 6)",
"iris <- head(iris, n = 6)",
Expand Down Expand Up @@ -1556,10 +1556,10 @@ testthat::describe("srv_teal teal_module(s) transformer", {
expected_code <- paste(collapse = "\n", c(
"iris <- iris",
"mtcars <- mtcars",
sprintf('stopifnot(rlang::hash(iris) == "%s")', rlang::hash(iris)),
sprintf('stopifnot(rlang::hash(mtcars) == "%s")', rlang::hash(mtcars)),
sprintf('stopifnot(rlang::hash(iris) == "%s") # @linksto iris', rlang::hash(iris)),
sprintf('stopifnot(rlang::hash(mtcars) == "%s") # @linksto mtcars', rlang::hash(mtcars)),
".raw_data <- list2env(list(iris = iris, mtcars = mtcars))",
"lockEnvironment(.raw_data)",
"lockEnvironment(.raw_data) #@linksto .raw_data",
m7pr marked this conversation as resolved.
Show resolved Hide resolved
"mtcars <- dplyr::filter(mtcars, cyl == 4)",
"iris <- head(iris, n = 6)",
"mtcars <- head(mtcars, n = 6)"
Expand Down
Loading