Попытка использовать несколько подключений ODBC через распараллеленного рабочих потоков может произойти сбой как в следующем примере:
loaddata <- function(cn){result <- sqlQuery(cn,'select * from boston')return(head(result))}library(RODBC)cn1 <- odbcConnect("RevoTestDB", uid='RevoTester', pwd='RevoTester')cn2 <- odbcConnect("RevoTestDB", uid='RevoTester', pwd='RevoTester')cn3 <- odbcConnect("RevoTestDB", uid='RevoTester', pwd='RevoTester')cn4 <- odbcConnect("RevoTestDB", uid='RevoTester', pwd='RevoTester')rxSetComputeContext('localpar')system.time ({z <- rxExec(loaddata, rxElemArg(list(cn1,cn2,cn3,cn4)), packagesToLoad='RODBC')})Error in do.call(.rxDoParFUN, as.list(args)) :task 1 failed - "first argument is not an open RODBC channel"Проблема в том что рабочие процессы прием подключений ODBC как закрытые.Проблема здесь в том, что подключения зависят от конкретного процесса, если работники общего родительского процесса (как многоядерные работников, созданный с помощью forking), подключения родительского элемента не могут быть общими работниками. Для распределения вычислений ODBC-разделенными сотрудников, установите подключения для каждого работника как часть распределенной задачи.Пример:
loaddata <- function(){library(RODBC)cn <- odbcConnect("RevoTestDB", uid='RevoTester', pwd='RevoTester')result <- sqlQuery(cn,'select * from boston')return(head(result))}z <- system.time({z <- rxExec(loaddata,packagesToLoad='RODBC')})
