как создать сворачиваемый документ без угловой скобки ">" перед фрагментами кода? - PullRequest
8 голосов
/ 31 мая 2011

Как создать документ Sweave (или pgfSweave) без угловых скобок «>» перед фрагментами кода?Я хочу, чтобы люди могли вырезать и вставлять мой код прямо из вывода PDF.Вот фрагмент моего документа с фрагментом кода:

Обратите внимание, что, поскольку наша матрица инцидентности состоит из 0 и 1, недиагональные записи представляют общее количество общих столбцов, что именно то, что мы хотели.Мы будем использовать оператор% *%, чтобы сказать R сделать это.Давайте сначала рассмотрим небольшой пример с использованием игрушечных данных людей и групп, к которым они принадлежат.Мы приведем данные к матрице инцидентности с помощью функции table (), а затем умножим матрицу инцидентности на ее транспонирование, чтобы получить число общих групп между людьми.

>\> ToyDat <- data.frame(person = c("Sam", "Sam", "Sam", "Greg", "Tom", "Tom"), group = c("a", "b", "c", "a", "b", "c"), stringsAsFactors = F)
>\> ToyDatM <- as.matrix(table(ToyDat)) 
>\> ToyDatM

Но я хочу, чтобы кодвыглядеть так:

> ToyDat <- data.frame(person = c("Sam", "Sam", "Sam", "Greg", "Tom", "Tom"), group = c("a", "b", "c", "a", "b", "c"), stringsAsFactors = F)    
> ToyDatM <- as.matrix(table(ToyDat)) 
> ToyDatM

Ответы [ 2 ]

17 голосов
/ 31 мая 2011

Я думаю options(prompt = " ") в верхней части вашего скрипта сделает это.

promptoptions()) контролирует текстовую строку, используемую для приглашения в интерактивном сеансе, и я предполагаю, что он будет делать то же самое для документа, обработанного с помощью Sweave.

РЕДАКТИРОВАТЬ: Спасибо Бену Болкеру за то, что он указал, что options(prompt = " ", continue = " ") также позаботится о проблеме "+".

2 голосов
/ 31 мая 2011

Возможно, лучшей стратегией является предоставление результата Stangle в вашем файле Rnw - он будет содержать команды из всего документа в виде сценария, который можно отправить в R или вырезать и вставить вR сессия.

...