Advertisement
Guest User

Untitled

a guest
Jan 23rd, 2012
164
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.86 KB | None | 0 0
  1. #+property: session *R-babel*
  2.  
  3. #+NAME: foo
  4. #+HEADER: :var a="a1.png"
  5. #+BEGIN_SRC R :results output silent
  6. cat("in foo block\n")
  7. cat.a <- function() { cat(a,"\n",sep="") }
  8. cat.a()
  9. #+END_SRC
  10.  
  11. #+NAME: bar
  12. #+begin_src R :results output raw replace :exports none
  13. cat.a()
  14. #+end_src
  15.  
  16. #+results: bar
  17. a1.png
  18.  
  19.  
  20. Should have all a1 stuff
  21.  
  22. #+call: foo(a="a1.png")
  23.  
  24. #+results: foo(a="a1.png")
  25. : in foo block
  26. : a1.png
  27.  
  28. #+call: bar()
  29.  
  30. #+results: bar()
  31. : a3.png
  32. ^^^^^^^^^^^^^WRONG: (1) should be a1.png; (2) should be raw
  33.  
  34. Should have all a2 stuff
  35.  
  36. #+call: foo(a="a2.png")
  37.  
  38. #+results: foo(a="a2.png")
  39. : in foo block
  40. : a2.png
  41.  
  42. #+call: bar()
  43.  
  44. ^^^^^^^^^^^^^^^^^WRONG: no output
  45. Should have all a3 stuff
  46.  
  47. #+call: foo(a="a3.png")
  48.  
  49. #+results: foo(a="a3.png")
  50. : in foo block
  51. : a3.png
  52.  
  53. #+call: bar()
  54.  
  55. ^^^^^^^^^^^^^^^^WRONG: no output
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement