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()) }