выключить дисплей saveGIF RStudio

Question

Я хотел бы знать, как я могу отключить всплывающее окно .GIF, которое я сделал? Я создал и использовал этот код:

reswd <- "c:/Data/GIF/"

if(!file.exists(paste0(reswd,"Seasonal.gif"))) { # Check if the file exists

  suppressMessages(saveGIF({

    for (i in 1:dim(tmp_Stack1)[3]) plot(tmp_Stack1[[i]],
                                         main=names(tmp_Stack1)[i],
                                         legend=FALSE,
                                         col = c("green", "blue"),
                                         breaks=c(0,.000000000000000000001,1)
)
     },
    movie.name = paste0(reswd,"Seasonal.gif"), 
    ani.width = 480, ani.height = 400, 
    interval=.5))
  }

Я пробовал с «suppressMessages», но не работает. Но в конце, когда файл сохраняется, это отображается. Спасибо всем за будущие ответы!

Answer 1

Я решил свою проблему следующим образом. Может быть, это немного путаница, но я постараюсь привести в порядок этот новый код, который я использовал в сочетании с XD. Я надеюсь, что у кого-то есть новые способы сделать это также.

setwd("c:/Data/Total_Water_Color/")
for (i in 1:dim(tmp_Stack3)[3]){
  png(filename=paste0(names(tmp_Stack3)[i],".png"), width = 480, height = 400)


  plot(tmp_Stack3[[i]],
       main=names(tmp_Stack3)[i],
       legend=FALSE,
       col = c("green", "blue"),
       breaks=c(0,.000000000000000000001,1))

  dev.off()
}

Следующий код предназначен для создания GIF и не появляется, когда он заканчивается sh.

setwd("c:/Data/GIF/")
list.files(path="c:/Data/Total_Water_Color/", pattern = '*.png', full.names = TRUE) %>% 
  image_read() %>% # reads each path file
  image_join() %>% # joins image
  image_animate(fps=1) %>% # animates, can opt for number of loops
  image_write("Total.gif") # write to current dir

Если у кого-то есть лучший ответ. Я открыт, чтобы услышать любой другой лучший и, возможно, более короткий вариант.