使用addTaskCallback打印数据帧分配

当我以交互方式运行代码时,我有一个打印数据帧的技巧,如果在渲染的文档中,则不打印数据帧,但我希望这种情况在后台发生。

当前解决方案:

iprint <- function(x) { # only prints when interactive & not on render
  if (interactive()) {
    print(x)
  } else {
    invisible(x)
  }
}

x <-
  mtcars |>
  iprint()

尝试使用任务回调但不起作用:

addTaskCallback(
  name = "head_df",
  function(...) { 
    expr <- expression(...)[[1]]
    if (expr[[1]] == "<-") {                    # if it is an assignment
      if (inherits(expr[[3]], "data.frame")) {  # and a data frame
        head(expr[[3]])                         # print the data frame
      }
    }
  }
)


head(mtcars)      # shouldn't print bc no assignment

x <- head(mtcars) # should print

我有更多的逻辑来使它成为一个函数,如果事情是交互式的,可以考虑打开/关闭回调等。只是想让任务回调正常工作。