Bug: org html export INFOJS does not include an interactive plot in info view

[Feiming Chen <feimingchen@yahoo.com>]

[-- Attachment #1.1: Type: text/plain, Size: 953 bytes --]

HI:

This bug is related to Sebastian Rose's org-info.js code.   I like using the 
INFOJS option as it makes a html report more organized.  :-) 


Attached are two test files: 
     "test1.org" is exported to "test1.html" with INFOJS, where the first plot 
(an interactive chart) cannot be seen in the "info" view mode, but can be seen 
in the "fold" view mode.  

    "test2.org" is exported to "test2.html" without INFOJS.   All the plots look 
OK.  


The interactive plot is exported as HTML code, which may confuse the 
"org-info.js"  code.   Could you fix this problem?   


 
I am using org mode version 7.8.11 and emacs 24.1.1.  The exact org version I 
use is "org-mode-00e5c278fd68d20a171071fd3098fd85d7f4614d.tgz" from git. 


Thanks for your help! 

Emacs  : GNU Emacs 24.1.1 (i686-pc-linux-gnu, GTK+ Version 2.22.0)
 of 2012-08-13 on fmc.work
Package: Org-mode version N/A (N/A @ /usr/share/emacs/site-lisp/org/)


Sincerely, 
Feiming Chen

[-- Attachment #1.2: Type: text/html, Size: 1340 bytes --]

[-- Attachment #2: plot.png --]
[-- Type: image/png, Size: 16086 bytes --]

[-- Attachment #3: test2.html --]
[-- Type: text/html, Size: 4981 bytes --]

[-- Attachment #4: test2.org --]
[-- Type: application/octet-stream, Size: 389 bytes --]

* test 2: using pie chart without INFOJS
+ an interactive plot
#+begin_src R :session *R* :exports both :results output html
  library(googleVis)
  d <- data.frame(name=letters[1:5], value=1:5)
  x <- gvisPieChart(d)
  print(x, 'chart')
  #+end_src

+ a regular plot
#+begin_src R :file plot.png :session *R* :exports both :results output graphics
  pie(d$value, labels=d$name)
#+end_src


[-- Attachment #5: test1.html --]
[-- Type: text/html, Size: 5575 bytes --]

[-- Attachment #6: test1.org --]
[-- Type: application/octet-stream, Size: 476 bytes --]

#+INFOJS_OPT: view:info path:http://orgmode.org/org-info.js
* test 1: using pie chart with INFOJS
+ an interactive plot
#+begin_src R :session *R* :exports both :results output html
  library(googleVis)
  d <- data.frame(name=letters[1:5], value=1:5)
  x <- gvisPieChart(d)
  print(x, 'chart')
  #+end_src

+ a regular plot
#+begin_src R :file plot.png :session *R* :exports both :results output graphics
  pie(d$value, labels=d$name)
#+end_src

#+RESULTS:
[[file:plot.png]]