Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #+property: session *R-babel*
- #+NAME: foo
- #+HEADER: :var a="a1.png"
- #+BEGIN_SRC R :results output silent
- cat("in foo block\n")
- cat.a <- function() { cat(a,"\n",sep="") }
- cat.a()
- #+END_SRC
- #+NAME: bar
- #+begin_src R :results output raw replace :exports none
- cat.a()
- #+end_src
- #+results: bar
- a1.png
- Should have all a1 stuff
- #+call: foo(a="a1.png")
- #+results: foo(a="a1.png")
- : in foo block
- : a1.png
- #+call: bar()
- #+results: bar()
- : a3.png
- ^^^^^^^^^^^^^WRONG: (1) should be a1.png; (2) should be raw
- Should have all a2 stuff
- #+call: foo(a="a2.png")
- #+results: foo(a="a2.png")
- : in foo block
- : a2.png
- #+call: bar()
- ^^^^^^^^^^^^^^^^^WRONG: no output
- Should have all a3 stuff
- #+call: foo(a="a3.png")
- #+results: foo(a="a3.png")
- : in foo block
- : a3.png
- #+call: bar()
- ^^^^^^^^^^^^^^^^WRONG: no output
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement