fixed a bug with the get_case() function, where it threw an error whe…

…n party was missing for proposers
martigso · Nov 15, 2024 · 84dc6ba · 84dc6ba
1 parent dfd7e48
commit 84dc6ba
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/get_case.R b/R/get_case.R
@@ -182,7 +182,9 @@ get_case <- function(caseid = NA, good_manners = 0){
                                   id = tmp |> html_elements("emne > id") |> html_text(),
                                   navn = tmp |> html_elements("emne > navn") |> html_text()),
                proposers = data.frame(mp_id = tmp |> html_elements("forslagstiller_liste > representant > id") |> html_text(),
-                                      party_id = tmp |> html_elements("forslagstiller_liste > representant > parti > id") |> html_text(),
+                                      party_id = sapply(tmp |> html_elements("forslagstiller_liste > representant > parti"),
+                                                        function(x) ifelse(identical(x |> html_elements("id") |> html_text(), character()), 
+                                                                           NA, x |> html_elements("id") |> html_text())),
                                       sub_mp = tmp |> html_elements("forslagstiller_liste > representant > vara_representant") |> html_text()),
                publication_references = data.frame(export_id = tmp |> html_elements("publikasjon_referanse > eksport_id") |> html_text(),
                                                    link_text = tmp |> html_elements("publikasjon_referanse > lenke_tekst") |> html_text(),