From ee92abf80be192ce09e6e5ab5b8d35195adb1e0b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Martin=20S=C3=B8yland?= Date: Tue, 10 Oct 2023 10:18:09 +0200 Subject: [PATCH] Fixed a bug in get_vote(). One of the variables have just been removed from the API, with no warning or documentation --- R/get_vote.R | 42 +++++++++++++++++++++--------------------- 1 file changed, 21 insertions(+), 21 deletions(-) diff --git a/R/get_vote.R b/R/get_vote.R index dd1e912..1886bf7 100644 --- 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()) }