Получение идентификаторов и заголовков PubMed: ошибка HTTP

Question

Я написал код R для получения идентификаторов и названий Pubmed, используя название журнала, дату, объем, номер выпуска и номер страницы.

Файл содержит такие строки, как

AAPS PharmSci 2000 2 1 E2
AAPS PharmSci 2004 6 1 1-9

И вывод, который я хочу, выглядит так:

AAPS PharmSci 2000 2 1 E2, 11741218 , Molecular modeling of G-protein coupled receptor kinase 2: docking and biochemical evaluation of inhibitors.

аналогично для всех строк в файле

Код, который я написал в R для этого

    search_topic <- "search term"

    search_query <- EUtilsSummary(search_topic)
    #summary(search_query)

    # see the ids of our returned query
    ID <- QueryId(search_query)

    # get actual data from PubMed
    records<- EUtilsGet(search_query)

    # store it
    pubmed_data <- data.frame(ID,'Title'=ArticleTitle(records))
    write.csv(pubmed_data, file = paste("./",search_topic,".csv",sep=""))

Который дает ошибку как:

In addition: Warning message:
In file(con, "r") : cannot open: HTTP status was '502 Server Hangup'

Пожалуйста, дайте мне знать, где я иду не так?