Re: org-babel order of evaluation

[Leo Alekseyev <dnquark@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 1125 bytes --]

On Thu, Jan 12, 2012 at 7:52 PM, Rick Frankel <rick@rickster.com> wrote:
> On Thu, Jan 12, 2012 at 06:07:41PM -0700, Eric Schulte wrote:
>> Rick Frankel <rick@rickster.com> writes:
>>
>> Turns out it was not that difficult to change this behavior.  You and
>> Leo are both correct that in-buffer-order evaluation is more natural and
>> expected than the previous behavior.  I've just pushed up a fix after
>> which evaluating the following

Eric,
The fix doesn't seem to be working for me when I export the buffer to
HTML.  The ordering of call and source blocks once again becomes
randomized, and in general, exported file is missing a bunch of stuff
unless I run org-babel-execute-buffer prior to export.  Since the
export engine does its own evaluation, it doesn't seem like
org-babel-execute-buffer should be a necessity.  But I can't run
org-babel-execute-buffer on anything with a src_<language> inline
block as it gives me an error.

I'm attaching two files which do not export correctly, at least when
one doesn't run org-babel-execute-buffer; just do C-c C-e h and look
at the output.

--Leo

[-- Attachment #2: test-export4.org --]
[-- Type: application/octet-stream, Size: 1101 bytes --]

#+property: session *R-babel*

* export fail

#+NAME: elo_sim_analysis
#+HEADER: :var idx=1 :var print="TRUE" :var plot.filename="conv1.png" :var plot.disp="FALSE"
#+BEGIN_SRC R :results output replace 
  if (print == TRUE) {cat("some output\n")}
  
  img.dir = "images"
  cat.fname.link <- function() { cat(img.dir,"/",plot.filename,"\n",sep="") } 
  
  cat(img.dir,"/",plot.filename,"\n",sep="")
  
#+END_SRC


Should have all conv1 stuff

#+call: elo_sim_analysis(idx=1,print="TRUE",plot.filename="conv1.png",plot.disp="FALSE")

src_R[:results output replace]{ cat.fname.link() }

Should have all conv2 stuff 

#+call: elo_sim_analysis(idx=8,print="TRUE",plot.filename="conv2.png",plot.disp="FALSE")

src_R[:results output replace]{ cat.fname.link() } 

Should have all conv3 stuff
#+call: elo_sim_analysis(idx=1,print="TRUE",plot.filename="conv3.png",plot.disp="FALSE")

src_R[:results output replace]{ cat.fname.link() } 

Should have all conv4 stuff

#+call: elo_sim_analysis(idx=1,print="TRUE",plot.filename="conv4.png",plot.disp="FALSE")

src_R[:results output replace]{ cat.fname.link() } 



[-- Attachment #3: test-export6.org --]
[-- Type: application/octet-stream, Size: 1573 bytes --]


#+startup: noindent
#+property: session *R-babel*
#+property: tangle yes

* code

#+NAME: elo_sim_analysis
#+HEADER: :var idx=1 :var print="TRUE" :var plot.filename="conv1.png" :var plot.disp="FALSE"
#+BEGIN_SRC R :results output replace 
  gen.sample.plots <- function(idx) {
    hist(rnorm(100))
    title(paste("Plot for index ",idx, sep=""))
  }
  
  if (print == TRUE) {cat("some output\n")}
  
  img.dir = "images"
  cat.fname.link <- function() { cat("\nfile:",img.dir,"/",plot.filename,"\n",sep="") } 
  
  cat("file:",img.dir,"/",plot.filename,"\n",sep="")
  
#+END_SRC

#+RESULTS: elo_sim_analysis
:  some output
:  file:images/conv1.png

#+NAME: gen_link
#+HEADER: :var plot.filename="conv1.png" 
#+BEGIN_SRC R :results output replace 
  img.dir = "images"
  cat.fname.link <- function() { cat("\nfile:",img.dir,"/",plot.filename,"\n",sep="") } 
  cat.fname.link()
#+END_SRC

* ordered execution fail

Should have all conv1 stuff

#+call: elo_sim_analysis(idx=1,print="TRUE",plot.filename="conv1.png",plot.disp="FALSE")

#+call: gen_link(plot.filename="conv1.png")

Should have all conv2 stuff 

#+call: elo_sim_analysis(idx=8,print="TRUE",plot.filename="conv2.png",plot.disp="FALSE")

#+call: gen_link(plot.filename="conv2.png")

Should have all conv3 stuff

#+call: elo_sim_analysis(idx=1,print="TRUE",plot.filename="conv3.png",plot.disp="FALSE")

#+call: gen_link(plot.filename="conv3.png")

Should have all conv4 stuff

#+call: elo_sim_analysis(idx=1,print="TRUE",plot.filename="conv4.png",plot.disp="FALSE")

#+call: gen_link(plot.filename="conv4.png")