fixed a new bug that surfaced after the previous commit

martigso · Oct 23, 2024 · e3077c2 · e3077c2
1 parent c88f5e9
commit e3077c2
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/get_question_hour.R b/R/get_question_hour.R
@@ -148,7 +148,9 @@ get_question_hour <- function(meetingid = NA, good_manners = 0){
         date                               = tmp |> html_elements("detaljert_sporsmal > datert_dato") |> html_text(),
         moved_to                           = tmp |> html_elements("detaljert_sporsmal > flyttet_til") |> html_text(),
         asked_by_other_id                  = sapply(tmp |> html_elements("detaljert_sporsmal > fremsatt_av_annen"),
-                                                    function(x) x |> html_elements("id") |> html_text() |> paste0("_h")),
+                                                    function(x) ifelse(x |> html_text() == "",
+                                                                       "",
+                                                                       x |> html_elements("id") |> html_text())),
         question_id                        = tmp |> html_elements("detaljert_sporsmal > id") |> html_text(),
         correct_person                     = tmp |> html_elements("detaljert_sporsmal > rette_vedkommende") |> html_text(),
         correct_person_minister_id         = tmp |> html_elements("detaljert_sporsmal > rette_vedkommende_minister_id") |> html_text(),