fixed an error in get_session_cases

martigso · Mar 8, 2024 · a97efa3 · a97efa3
1 parent 6c83311
commit a97efa3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/get_session_cases.R b/R/get_session_cases.R
@@ -142,7 +142,7 @@ get_session_cases <- function(sessionid = NA, good_manners = 0, cores = 1){
   names(tmp2$topics) <- tmp2$root$id
 
   # Case proposer
-  tmp2$proposers <- lapply((tmp |> html_elements("saker_oversikt > saker_liste > sak > forslagstiller_liste")), function(x){
+  tmp2$proposers <- mclapply((tmp |> html_elements("saker_oversikt > saker_liste > sak > forslagstiller_liste")), function(x){
 
     if(identical(x |> html_elements("representant > id") |> html_text(), character()) == TRUE){
       data.frame(rep_id = NA,