Назначения внутри foreach и итеративное сохранение вывода из foreach

Я подключаюсь к локальной базе данных SQL Server и выполняю некоторые запросы в цикле. Выходные данные каждой итерации сохраняются в виде файла данных RDS локально на диске.

Это прекрасно работает, когда я выполняю это последовательно в стандартном цикле for, как показано ниже.

for(i in 1: NROW(Employee_Df))
{
     df_results <-  sqlQuery(myconn, paste(" SELECT * FROM Salary_Df 
               WHERE FullName like ",Employee_Df$FullName[i],  "",sep="'"))

        saveRDS(df_results, 
         file=paste0("/Home/Desktop", "Salary",Employee_Df$FullName[i], ".rds"),
        compress = TRUE)
}

Когда я пытаюсь назначить вывод из того же запроса, используя foreachкод не работает. Я не вижу сообщений об ошибках, но не вижу ни одного действительного файла RDS, сохраненного на основе результатов этого запроса.

foreach(i = 1:2, .packages="RODBC")%dopar%{

      df_results <-  sqlQuery(myconn, paste(" SELECT * FROM Salary_Df 
                   WHERE FullName like ",Employee_Df$FullName[i],  "",sep="'"))

            saveRDS(df_results, 
             file=paste0("/Home/Desktop", "Salary",Employee_Df$FullName[i], ".rds"),
            compress = TRUE)
  }

Любые предложения о том, как сделать эту работу в foreach высоко ценится.

0 ответов

Другие вопросы по тегам