saveGIF в R работает, кажется, работает для сюжета, но не ggplot

Question

Я пытаюсь использовать функцию saveGIF в пакете анимации в R. Нет проблем с графиком, но получаю ошибку с ggplot

Как показано ниже, игрушечные функции построения графиков работают с графиком, но выдают ошибку с ggplot

simplePlot <- function (){

df <- data.frame(dose=c("D0.5", "D1", "D2"),
                            len=c(4.2, 10, 29.5))
p<-ggplot(data=df, aes(x=dose, y=len)) +
  geom_bar(stat="identity")
p

df <- data.frame(dose=c("D0.5", "D1", "D2"),
                 len=c(5.2, 5, 19.5))
p<-ggplot(data=df, aes(x=dose, y=len)) +
  geom_bar(stat="identity")
p

}

simplerPlot <- function(){
  df <- data.frame(dose=c("D0.5", "D1", "D2"),
                   len=c(4.2, 10, 29.5))
  plot(df)
  df <- data.frame(dose=c("D0.5", "D1", "D2"),
                   len=c(5.2, 5, 19.5))
  plot(df)

}

---> работает

saveGIF(simplerPlot(),movie.name = 'test.gif')

---> выбрасывает ошибку

saveGIF(simplePlot(),movie.name = 'test.gif')

Это ошибка, выдаваемая saveGIF (simplePlot (), movie.name = 'test.gif')

Error in if (100%%fps) stop("argument 'fps' must be a factor of 100") : 
  argument is of length zero

Не происходит с saveGIF (simplerPlot (), movie.name = 'test.gif')