WIP

- adding get_outputs function

Author: gogonzo

DESCRIPTION

@@ -65,6 +65,7 @@ Collate:
     'qenv-get_code.R'
     'qenv-get_env.R'
     'qenv-get_messages.r'
+    'qenv-get_outputs.R'
     'qenv-get_var.R'
     'qenv-get_warnings.R'
     'qenv-join.R'

NAMESPACE

@@ -17,6 +17,7 @@ export(eval_code)
 export(get_code)
 export(get_env)
 export(get_messages)
+export(get_outputs)
 export(get_var)
 export(get_warnings)
 export(join)

NEWS.md

@@ -1,5 +1,9 @@
 # teal.code 0.6.1.9003
 
+### Enhancements
+
+* Introduced `get_outputs` function to fetch objects which have been printed or plotted in the `qenv` code. 
+
 ### Bug fixes
 
 * Fix a problem detecting co-occurrences when expression has multiple lines.

R/qenv-get_outputs.R

@@ -0,0 +1,29 @@
+#' Get outputs
+#'
+#' `eval_code` evaluates code silently so plots and prints don't show up in the console or graphic devices.
+#' If one wants to use an output outside of the qenv (e.g. use a graph in `renderPlot`) then use `get_outputs`.
+#' @param object (`qenv`)
+#' @return list of outputs generated in a qenv
+#' @examples
+#' q <- eval_code(
+#'   qenv(),
+#'   quote({
+#'     a <- 1
+#'     print("I'm an output")
+#'     plot(1)
+#'   })
+#' )
+#' get_outputs(q)
+#' @export
+setGeneric("get_outputs", function(object) standardGeneric("get_outputs"))
+
+
+setMethod("get_outputs", signature = "qenv", function(object) {
+  Reduce(
+    function(x, y) {
+      c(x, attr(y, "outputs"))
+    },
+    init = list(),
+    x = object@code
+  )
+})

man/get_outputs.Rd

@@ -0,0 +1,8 @@
+testthat::test_that("", {
+  q <- qenv()
+  q1 <- eval_code(q, expression(iris, mtcars))
+  testthat::expect_identical(
+    get_outputs(q1),
+    list(iris, mtcars)
+  )
+})