Почему мои сюжеты не записываются на диск?

Question

Есть ли причина, почему мои сюжеты не записываются на диск? Я сохраняю свои участки согласно this description, но он не работает. Каждый сюжет - просто белое изображение. Почему это так?

Вот полный сценарий, который я использую;

library(rAltmetric) 
library(aRxiv) 

print('Load DOIs ..') 

doi_list <- list() 

categ <- c(AP = 'cat:stat.AP', 
      CO = "cat:stat.CO", # I'm naming these elements so 
      ME = "cat:stat.ME", # that the corresponding elements 
      TH = "cat:stat.TH", # in the list are named as well. 
      ML = "cat:stat.ML") # Could also just set 'names(doi_list)' to 'categ'. 

doi_list <- 
    lapply(categ, function(ctg) 
    (doi <- arxiv_search(ctg)$doi)[nchar(doi) > 0]) 

print('Showing altmetrics ..') 

num = 0 

for(category in doi_list) { 

    for(mydoi in category) { 
    print(paste('Searching DOI:', mydoi)) 

    #acuna <- altmetrics(doi=mydoi) 
    acuna <- altmetrics(doi="10.1038/489201a") 

    if(is.null(acuna)) { 
     next 
    } 

    print(acuna) 

    acuna_data <- altmetric_data(acuna) 
    jpeg(filename=paste(num, ".jpg", sep="")) 
    plot(acuna, main=paste(num, ".jpg", sep="")) 
    dev.off() 
    num <- num + 1 
    } 
} 

print('All done.') 

Answer 1

Я уверен, что это R FAQ 7.22,

7,22 Почему решетки/решетчатые графика не работает?

Скорее всего, причина в том, что вы забыли указать R для отображения графика. Функции решетки, такие как xyplot(), создают объект графа, но не отображают его (то же самое относится к графике ggplot2 и графике Trellis в S-PLUS). Метод print() для объекта графа создает фактический дисплей. Когда вы используете эти функции интерактивно в командной строке, результат автоматически печатается, но в source() или внутри ваших собственных функций вам понадобится явный оператор print().

Использование

print(plot(acuna, main=paste(num, ".jpg", sep="")))