Как создать демо для презентации?

Question

Я хочу подготовить демо (которое будет последовательно воспроизводиться в кликах) для учебного пособия для презентации ... Кто-нибудь может мне помочь, как я могу написать демо, предположим, что в демо представлены следующие шаги ...

#start 
set.seed(1345)
x1 <- sample(letters[1:10], 5)
x1 
sort(x1)
x <- sample(1:10, 5)  
 y <- sample(c(11:20), 5)
require(lattice) 
plot(x,y)
z <- rnorm(5, 1, 0.5)
dataframe <- data.frame(x, y, z)
model1 <- lm(y ~x)
aov(model1)
#end

Извините, что смог найти решение после нескольких часов и дней поиска.Я ценю вашу помощь.

Answer 1

Еще один способ сделать это:

1. Сохранить ваш скрипт в файл (demo.R)
2. Отредактируйте скрипт и посыпьте его pause() в стратегических местах
3. В R определите pause <- function() invisible(readline())
4. Запустите скрипт с source("demo.R", echo=TRUE)

Затем он напечатает и запустит ваши команды и остановится и будет ждать ввода при наброшенном pause(). Просто нажмите <Enter>, чтобы продолжить.

РЕДАКТИРОВАТЬ: Я не знаю хороший способ скрыть заявление pause(). Возможный способ - скопировать код для source() и изменить его так, чтобы пропустить вызовы печати до pause(), но я думаю, это немного излишне ...

... но вы можете переименовать функцию паузы на что угодно - включая '....', но вам все равно нужно вызывать ее так: ....()

Хм. Может быть, что-то вроде этого:

'....' <- function(...) invisible(readline())

Затем добавьте в ваш скрипт:

....('Press Enter to continue')
# Or
....(Press_Enter_to_continue)

Еще одна возможность, если вы переименуете функцию паузы в Pausing...:

Pausing...(Press_Enter)

Answer 2

Хакерский способ сделать то, что вы хотите:

• Сохранить команды как скрипт, например, testDemo.r
• Скопировать в демонстрационную папку существующего пакета, например, <Library>/base/demo
• Запуск с demo(testDemo,package="base")

Но это паузы на страницах, а не по команде.В конечном счете, вы можете создать свой собственный пакет, содержащий собственные демонстрационные версии.

Редактировать

Кажется, код для demo в основном предназначен для проверки того, что демонстрационная версиясуществует, и ядро ​​довольно просто:

op <- options(device.ask.default=TRUE)
source("testDemo.r",echo=TRUE,max.deparse.length=Inf,keep.source=TRUE)
options(op)

Обратите внимание, что любая пауза выполняется только при наличии графики, а не какой-либо длины отображаемого текста, как на самом деле в случае demo.