Fixed a bug in get_vote(). One of the variables have just been remove…

…d from the API, with no warning or documentation
martigso · Oct 10, 2023 · ee92abf · ee92abf
1 parent 0e77bba
commit ee92abf
Showing 1 changed file with 21 additions and 21 deletions.
diff --git a/R/get_vote.R b/R/get_vote.R
@@ -91,28 +91,28 @@ get_vote <- function(caseid = NA, good_manners = 0){
 
   } else {
 
-  tmp2 <- data.frame(response_date = tmp %>% html_elements("sak_votering_oversikt > respons_dato_tid") %>% html_text(),
-                     version = tmp %>% html_elements("sak_votering_oversikt > versjon") %>% html_text(),
-                     case_id = tmp %>% html_elements("sak_votering_oversikt > sak_id") %>% html_text(),
-                     alternative_vote = tmp %>% html_elements("sak_votering > alternativ_votering_id") %>% html_text(),
-                     n_for = tmp %>% html_elements("sak_votering > antall_for") %>% html_text(),
-                     n_absent = tmp %>% html_elements("sak_votering > antall_ikke_tilstede") %>% html_text(),
-                     n_against = tmp %>% html_elements("sak_votering > antall_mot") %>% html_text(),
-                     treatment_order = tmp %>% html_elements("sak_votering > behandlingsrekkefoelge") %>% html_text(),
-                     agenda_case_number = tmp %>% html_elements("sak_votering > dagsorden_sak_nummer") %>% html_text(),
-                     free_vote = tmp %>% html_elements("sak_votering > fri_votering") %>% html_text(),
-                     comment = tmp %>% html_elements("sak_votering > kommentar") %>% html_text(),
-                     meeting_map_number = tmp %>% html_elements("sak_votering > mote_kart_nummer") %>% html_text(),
-                     personal_vote = tmp %>% html_elements("sak_votering > personlig_votering") %>% html_text(),
-                     president_id = tmp %>% html_elements("sak_votering > president > id") %>% html_text(),
-                     president_party_id = tmp %>% html_elements("sak_votering > president > parti > id") %>% html_text(),
-                     adopted = tmp %>% html_elements("sak_votering > vedtatt") %>% html_text(),
-                     vote_id = tmp %>% html_elements("sak_votering > votering_id") %>% html_text(),
-                     vote_method = tmp %>% html_elements("sak_votering > votering_metode") %>% html_text(),
-                     vote_result_type = tmp %>% html_elements("sak_votering > votering_resultat_type") %>% html_text(),
+  tmp2 <- data.frame(response_date         = tmp %>% html_elements("sak_votering_oversikt > respons_dato_tid") %>% html_text(),
+                     version               = tmp %>% html_elements("sak_votering_oversikt > versjon") %>% html_text(),
+                     case_id               = tmp %>% html_elements("sak_votering_oversikt > sak_id") %>% html_text(),
+                     alternative_vote      = tmp %>% html_elements("sak_votering > alternativ_votering_id") %>% html_text(),
+                     n_for                 = tmp %>% html_elements("sak_votering > antall_for") %>% html_text(),
+                     n_absent              = tmp %>% html_elements("sak_votering > antall_ikke_tilstede") %>% html_text(),
+                     n_against             = tmp %>% html_elements("sak_votering > antall_mot") %>% html_text(),
+                     treatment_order       = tmp %>% html_elements("sak_votering > behandlingsrekkefoelge") %>% html_text(),
+                     agenda_case_number    = tmp %>% html_elements("sak_votering > dagsorden_sak_nummer") %>% html_text(),
+                     free_vote             = tmp %>% html_elements("sak_votering > fri_votering") %>% html_text(),
+                     comment               = tmp %>% html_elements("sak_votering > kommentar") %>% html_text(),
+                     meeting_map_number    = tmp %>% html_elements("sak_votering > mote_kart_nummer") %>% html_text(),
+                     personal_vote         = tmp %>% html_elements("sak_votering > personlig_votering") %>% html_text(),
+                     president_id          = tmp %>% html_elements("sak_votering > president > id") %>% html_text(),
+                     president_party_id    = tmp %>% html_elements("sak_votering > president > parti > id") %>% html_text(),
+                     adopted               = tmp %>% html_elements("sak_votering > vedtatt") %>% html_text(),
+                     vote_id               = tmp %>% html_elements("sak_votering > votering_id") %>% html_text(),
+                     # vote_method           = tmp %>% html_elements("sak_votering > votering_metode") %>% html_text(),
+                     vote_result_type      = tmp %>% html_elements("sak_votering > votering_resultat_type") %>% html_text(),
                      vote_result_type_text = tmp %>% html_elements("sak_votering > votering_resultat_type_tekst") %>% html_text(),
-                     vote_topic = tmp %>% html_elements("sak_votering > votering_tema") %>% html_text(),
-                     vote_datetime = tmp %>% html_elements("sak_votering > votering_tid") %>% html_text())
+                     vote_topic            = tmp %>% html_elements("sak_votering > votering_tema") %>% html_text(),
+                     vote_datetime         = tmp %>% html_elements("sak_votering > votering_tid") %>% html_text())
   }