Re: [O] extract a region from a table and export it

[Uwe Brauer]

>>> "John" == John Kitchin <address@hidden> writes:
Hi John,

   > can you write a little code block that filters the table for what you
   > want, and then convert that to a pdf?

Great! Thanks a lot. This is a brilliant idea, on a second thought I
would even say that I don't need orgtbl-to-csv, but I just want to
extract 3 columns of a table which contains 10. What would the relevant
syntax be for column, please?

This way I have a poor-man's database (basically I need that for the
grades of my students).

   > Something like:

   > #+tblname: data
   > | 1 | a |

   > | 2 | r |
   > | 5 | 7 |
   > | 4 | 9 |
   > | 8 | y |

   > #+BEGIN_SRC emacs-lisp :var d=data
   > (orgtbl-to-csv (-filter (lambda (x) (and (> (car x) 2) (< (car x) 8))) d) 
nil)
   > #+END_SRC


I obtain an error when I run your code (but of them, namely)
(but I am using a very recent version of org mode)
,----
| 
| Debugger entered--Lisp error: (wrong-type-argument listp "nil")
|   -filter((lambda (x) (and (> (car x) 2) (< (car x) 8))) "nil")
|   (orgtbl-to-csv (-filter (lambda (x) (and (> (car x) 2) (< (car x) 8)))
|   d) nil) (let ((d (quote "nil"))) (orgtbl-to-csv (-filter (lambda (x)
|   (and (> (car x) 2) (< (car x) 8))) d) nil)) (progn (let ((d (quote
|   "nil"))) (orgtbl-to-csv (-filter (lambda (x) (and (> (car x) 2) (<
|   (car x) 8))) d) nil))) eval((progn (let ((d (quote "nil")))
|   (orgtbl-to-csv (-filter (lambda (x) (and (> (car x) 2) (< (car x) 8)))
|   d) nil)))) org-babel-execute:emacs-lisp("(orgtbl-to-csv (-filter
|   (lambda (x) (and (> (car x) 2) (< (car x) 8))) d) nil)" ((:comments .
|   "") (:shebang . "") (:cache . "no") (:padline . "") (:noweb . "no")
|   (:tangle . "no") (:exports . "code") (:results . "replace") (:var d .
|   "nil") (:session . "none") (:hlines . "no") (:result-type . value)
|   (:result-params "replace") (:rowname-names) (:colname-names)))
|   org-babel-execute-src-block(nil) org-babel-execute-src-block-maybe()
|   org-babel-execute-maybe() org-babel-execute-safely-maybe()
|   run-hook-with-args-until-success(org-babel-execute-safely-maybe)
|   org-ctrl-c-ctrl-c(nil) funcall-interactively(org-ctrl-c-ctrl-c nil)
|   call-interactively(org-ctrl-c-ctrl-c nil nil)
|   command-execute(org-ctrl-c-ctrl-c)
`----


What could the problem?

Thanks again!

Uwe