Используйте функцию parLapply для ускорения вызовов API - PullRequest
Новая
       9

Используйте функцию parLapply для ускорения вызовов API

0 голосов
/ 07 марта 2019

Я недавно создал этот небольшой скрипт для получения объема поиска по списку ключевых слов благодаря функции lapply.Пожалуйста, смотрите ниже скрипт: 

library(plyr)

mes_keywords_to_check <- readLines("useo_rumbo_es - Copy.txt") 
mes_keywords_to_check <- as.character(mes_keywords_to_check)

result <- lapply(mes_keywords_to_check, function(x) {
 keyword_overview_all(x, "es", "API key")
})

result_test <- as.data.frame(do.call(rbind, result))

Этот скрипт работает просто отлично, но проблема в том, что когда я хочу проверить большой список (100 000 ключевых слов), то это слишком медленно.

Затем я попробовал функцию parLapply.Вот код, который я написал, но это не работает.(к сожалению, я нахожусь на Windows) 

# Calculate the number of cores
no_cores <- detectCores() - 1

# Initiate cluster
cl <- makeCluster(no_cores)

base <- 2
clusterExport(cl, "base")


resultss <- parLapply(cl, 
           mes_keywords_to_check, 
          function(x) {keyword_overview_all(x, "es", "API key")}
            base)

Вот ошибка, которую я имею:

Ошибка: неожиданный символ в: 

"          function(x)  {keyword_overview_all(x, "es", "API KEY")}
            base"

Я действительнозастрял с этим кодом ... У вас есть идеи?

...