Skip to content

Commit 8423110

Browse files
committed
fix R CMD checks just for now
1 parent 5f77d9d commit 8423110

File tree

1 file changed

+7
-7
lines changed

1 file changed

+7
-7
lines changed

vignettes/qenv.Rmd

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -67,17 +67,17 @@ cat(get_code(q2))
6767

6868
### Substitutions
6969
In 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}
7272
q <- qenv()
73-
q <- eval_code(q, quote(i <- subset(iris, Species == "setosa")))
73+
q <- eval_code(q, quote(i <- base::subset(iris, Species == "setosa")))
7474
q <- eval_code(q, substitute(
75-
ii <- subset(iris, Species == species),
75+
ii <- base::subset(iris, Species == species),
7676
env = list(species = "versicolor")
7777
))
7878
input_value <- "virginica"
7979
q <- 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)
8989
A more convenient way to pass code with substitution is to use the `within` method.
9090
```{r}
9191
qq <- 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")
9494
input_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
9797
summary(qq[["i"]]$Species)
9898
summary(qq[["ii"]]$Species)

0 commit comments

Comments
 (0)