Based on some simple tests, interactive()
is true when running code within rmarkdown::render()
or knitr::knit2html()
. That is, a simp
I suspect (?) you might just need to roll your own.
If so, here's one approach which seems to perform just fine. It works by extracting the names of all of the functions in the call stack, and then checks whether any of them are named "knit2html"
or "render"
. (Depending on how robust you need this to be, you could do some additional checking to make sure that these are really the functions in the knitr and rmarkdown packages, but the general idea would still be the same.)
```{r, echo=FALSE}
isNonInteractive <- function() {
ff <- sapply(sys.calls(), function(f) as.character(f[[1]]))
any(ff %in% c("knit2html", "render"))
}
```
```{r}
print(isNonInteractive())
```
A simpler suggestion for rolling your own: see if you can access current chunk options.
```{r, echo = FALSE}
inside_knitr = function() {
length(knitr::opts_current$get()) > 0
}
```
```{r}
inside_knitr()
```
There are, of course, many things you could check. I like the idea of the current chunk options, another possibility is below. I'm not really sure about the pros/cons of either.
```{r}
!is.null(knitr::opts_knit$get("out.format"))
```
As Yihui suggested on github isTRUE(getOption('knitr.in.progress'))
can be used to detect whether code is being knitted or executed interactively.