]> git.donarmstrong.com Git - bin.git/blob - eval_r
add reset usb bus command
[bin.git] / eval_r
1 #!/bin/bash
2
3 TMP="$(mktemp -d)"
4
5 trap "rm -f '$TMP'/file; rmdir '$TMP'" EXIT
6
7 cat - > "$TMP"/file;
8
9 ( emacsclient -s R -n --eval "(save-window-excursion 
10 (save-excursion 
11 (save-current-buffer 
12 (with-temp-buffer (insert-file-contents \"$TMP/file\")
13 (setq ess-eval-visibly t)
14 (setq ess-language \"R\")
15 (setq ess-dialect \"R\")
16 (ess-eval-region (point-min) (point-max) nil )))))" >/dev/null 2>&1 & );
17
18 trap - EXIT;
19 ( sleep 2s;
20   rm -f "$TMP/file";
21   rmdir "$TMP";
22 ) &
23
24