use knitr:::opts_chunk_attr when available

rstudio · Mar 26, 2012 · f429648 · f429648
1 parent e0884e2
commit f429648
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/cpp/session/modules/SessionAuthoring.R b/src/cpp/session/modules/SessionAuthoring.R
@@ -13,6 +13,11 @@
 
 .rs.addFunction( "knitrChunkOptions", function()
 {
+   # starting with v0.4.2 this is avavilable directly from knitr
+   if (packageVersion("knitr") >= "0.4.2")
+      return(knitr:::opts_chunk_attr)
+
+   # still try to return correct results for previous versions
    knitrOptions <- knitr:::opts_chunk$get()
    knitrOptions <- as.list(sapply(knitrOptions, class))
    knitrOptions[knitrOptions == "NULL"] <- "character"