add iframesrc as mode in show so that entire page can be inlined as a…

…n iframe (thanks @kohske)
ramnathv · Dec 13, 2013 · 1e6e271 · kohske · Dec 13, 2013 · kohske
1 parent 804119e
commit 1e6e271
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/R/rChartsClass.R b/R/rChartsClass.R
@@ -154,7 +154,15 @@ rCharts = setRefClass('rCharts', list(params = 'list', lib = 'character',
         .self$save(file_, cdn = cdn)
         cat(sprintf("<iframe src=%s seamless></iframe>", file_))
         return(invisible())
-      }    
+      },
+      iframesrc = {
+        cat(
+          "<iframe srcdoc='", 
+          htmlspecialchars(n1$render(...)), 
+          "'></iframe>"
+        )
+        return(invisible())
+      }
     )
   },
   show2 = function(static = T, ...){