захватить консольный вывод нескольких команд и записать в txt

я знаю о sink() и capture.output(). Почему-то я не могу получить желаемый результат.

пример моего кодового блока

mtcars[1:2,1:2]
#this is awesome,
mtcars[1:2,1:2] %>% rowMeans(.)

Желаемый вывод в моем текстовом файле: должен выглядеть на 100% как в моей консоли:

> mtcars[1:2,1:2]
              mpg cyl
Mazda RX4      21   6
Mazda RX4 Wag  21   6
>     #this is awesome,
>     mtcars[1:2,1:2] %>% rowMeans(.)
    Mazda RX4 Mazda RX4 Wag 
         13.5          13.5

преудокод

Было бы неплохо иметь что-то вроде этого:

console2txt(file="text.txt")
    mtcars[1:2,1:2]
    #this is awesome,
    mtcars[1:2,1:2] %>% rowMeans(.)
dev.off()

Есть ли решение для захвата всей консоли блока скрипта.


r console capture
person Andre Elrico    schedule 24.11.2017    source источник
comment
возможный дубликат stackoverflow.com/questions/7096989/   -  person Stéphane Laurent    schedule 24.11.2017
comment
Я попробовал решение в посте. Оно работает. Спасибо. Но есть ли более компактное решение?   -  person Andre Elrico    schedule 24.11.2017

Ответы (1)


arrow_upward
1
arrow_downward

Обычно я делаю это с помощью RMarkdown.

---
output: rtf_document
---
```{r}
mtcars[1:2,1:2]
#this is awesome,
mtcars[1:2,1:2] %>% rowMeans(.)
```
person edavidaja    schedule 24.11.2017