`qenv`

Initialization

The new_qenv() function is used to create an initial qenv object:

library(teal.code)

# can be created without any code/environment
empty_qenv <- new_qenv()
print(empty_qenv)

## <environment: 0x562fc61a12d8> [L]
## Parent: <environment: package:teal.code>

# or can be created with objects inside the environment
my_qenv <- new_qenv(env = list2env(list(x = 5)), code = "x <- 5")
print(my_qenv)

## <environment: 0x562fc3206738> [L]
## Parent: <environment: package:teal.code>
## Bindings:
## • x: <dbl> [L]

If the qenv is created with objects inside the environment then to ensure reproducibility the code used to generate those objects should be provided. It is the users responsibility to ensure this is the case.

qenv basic usage

The eval_code() function can be used to run code inside a qenv environment returning a new qenv object.

library(magrittr)

q2 <- eval_code(my_qenv, "y <- x * 2") %>% eval_code("z <- y * 2")

# my_qenv still contains only x
print(my_qenv)

## <environment: 0x562fc3206738> [L]
## Parent: <environment: package:teal.code>
## Bindings:
## • x: <dbl> [L]

# q2 contains x, y and z
print(q2)

## <environment: 0x562fc5449018> [L]
## Parent: <environment: package:magrittr>
## Bindings:
## • x: <dbl> [L]
## • y: <dbl> [L]
## • z: <dbl> [L]

Objects can be extracted from a qenv using [[ for example in order for them to be displayed in a shiny app. The code used to generate the qenv is obtained using the get_code() function.

print(q2[["y"]])

## [1] 10

cat(paste(get_code(q2), collapse = "\n"))

## x <- 5
## y <- x * 2
## z <- y * 2

Joining qenv objects

Given a pair of qenv objects it might be possible to “join” them together creating a new qenv object containing the union of both environments together with the code needed to reproduce it:

common_q <- eval_code(new_qenv(), quote(x <- 1))

x_q <- eval_code(common_q, quote(y <- 5))
y_q <- eval_code(common_q, quote(z <- 5))

join_q <- join(x_q, y_q)

print(join_q)

## <environment: 0x562fc4bfae70>
## Parent: <environment: package:magrittr>
## Bindings:
## • x: <dbl>
## • y: <dbl>
## • z: <dbl>

Dependent on the contents of the environments and order of code it may not be possible to join qenv objects. See the function documentation for more details.

Warnings and messages in qenv objects

If warnings or messages are thrown when evaluating code in a qenv environment, they are captured and stored in the qenv object. These messages and warnings can be accessed with the @ operator.

q_message <- eval_code(new_qenv(), quote(message("this is a message")))
q_message@messages

## [1] "> this is a message\n"

q_warning <- eval_code(new_qenv(), quote(warning("and this is a warning")))
q_warning@warnings

## [1] "> and this is a warning\n"

If no warning or message occurs on a particular line of code, the corresponding message/warning value will be an empty string.

q_message@warnings

## [1] ""

q_warning@messages

## [1] ""

A helper function get_warnings() is also available to produce a formatted string containing the warnings and the code used to produce them - it returns NULL when there are no warnings.