@@ -67,17 +67,17 @@ cat(get_code(q2))
6767
6868### Substitutions
6969In some cases, one may want to substitute some elements of the code before evaluation.
70- Consider a case when a subset of ` iris ` is defined by an input value.
70+ Consider a case when a base:: subset of ` iris ` is defined by an input value.
7171``` {r}
7272q <- qenv()
73- q <- eval_code(q, quote(i <- subset(iris, Species == "setosa")))
73+ q <- eval_code(q, quote(i <- base:: subset(iris, Species == "setosa")))
7474q <- eval_code(q, substitute(
75- ii <- subset(iris, Species == species),
75+ ii <- base:: subset(iris, Species == species),
7676 env = list(species = "versicolor")
7777))
7878input_value <- "virginica"
7979q <- eval_code(q, substitute(
80- iii <- subset(iris, Species == species),
80+ iii <- base:: subset(iris, Species == species),
8181 env = list(species = input_value)
8282))
8383
@@ -89,10 +89,10 @@ summary(q[["iii"]]$Species)
8989A more convenient way to pass code with substitution is to use the ` within ` method.
9090``` {r}
9191qq <- qenv()
92- qq <- within(qq, i <- subset(iris, Species == "setosa"))
93- qq <- within(qq, ii <- subset(iris, Species == species), species = "versicolor")
92+ qq <- within(qq, i <- base:: subset(iris, Species == "setosa"))
93+ qq <- within(qq, ii <- base:: subset(iris, Species == species), species = "versicolor")
9494input_value <- "virginica"
95- qq <- within(qq, iii <- subset(iris, Species == species), species = input_value)
95+ qq <- within(qq, iii <- base:: subset(iris, Species == species), species = input_value)
9696
9797summary(qq[["i"]]$Species)
9898summary(qq[["ii"]]$Species)
0 commit comments