Including a 3D interactive figure in html and static in word/pdf using knitr and rgl

Question

Following this question (including a interactive 3D figure with knitr) and this example by Yihui (https://dl.dropboxusercontent.com/u/15335397/misc/webgl-rmd.html), I can include a 3D interactive figure in html output using knitr and Rmarkdown. But I would like to include a static figure in word/pdf output.

Is it possible to do this? Thanks for any suggestion.

My sessionInfo

> sessionInfo()
R version 3.1.1 (2014-07-10)
Platform: x86_64-w64-mingw32/x64 (64-bit)

locale:
[1] LC_COLLATE=English_Australia.1252  LC_CTYPE=English_Australia.1252   
[3] LC_MONETARY=English_Australia.1252 LC_NUMERIC=C                      
[5] LC_TIME=English_Australia.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] rgl_0.95.1158 knitr_1.8    

loaded via a namespace (and not attached):
[1] evaluate_0.5.5 formatR_1.0    stringr_0.6.2  tools_3.1.1

I'm guessing you could use knitr::opts_knit$get("rmarkdown.pandoc.to") to query the output format, and feed that info to an optional cat. — baptiste
– baptiste, Commented Nov 17, 2014 at 11:11

baptiste · Accepted Answer · 2014-11-17 12:46:17Z

8

You could use the following setup to switch according to the output format

```{r, echo=FALSE}
out_type <- knitr::opts_knit$get("rmarkdown.pandoc.to")
keep <- if(out_type == "html") 'none' else 'last'
```


```{r chunk, echo=FALSE, fig.keep=keep}
plot(cars)
if(out_type == "html")
  cat("there goes fancy js code")
```

answered Nov 17, 2014 at 12:46

baptiste

77.4k21 gold badges208 silver badges302 bronze badges

Sign up to request clarification or add additional context in comments.

Frank · Accepted Answer · 2018-10-10 18:51:10Z

0

As pointed out in an answer to a related question, knitr 1.18 introduced the function

knitr::is_html_output()

which checks if the output is HTML. Adapting @baptiste's excellent answer to use this function:

```{r, echo=FALSE}
keep <- if(knitr::is_html_output()) 'none' else 'last'
```


```{r chunk, echo=FALSE, fig.keep=keep}
plot(cars)
if(knitr::is_html_output())
  cat("there goes fancy js code")
```

answered Oct 10, 2018 at 18:51

Frank

2,44619 silver badges27 bronze badges

Collectives™ on Stack Overflow

Including a 3D interactive figure in html and static in word/pdf using knitr and rgl

2 Answers 2

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Your Answer

Sign up or log in

Post as a guest

Linked

Related