I am trying to get the results that form using httr .
After seeing the results of the form, I tried the following:
library(httr) library(stringr) r = str_c("http://www.memoiredeshommes.sga.defense.gouv.fr/fr/arkotheque/", "client/mdh/base_morts_pour_la_france_premiere_guerre/index.php") q = list( "action" = 1, "todo" = "rechercher", "le_id" = "", "multisite" = "", "r_c_nom" = "mo", "r_c_nom_like" = 1, "r_c_prenom" = "", "r_c_prenom_like" = 1, "r_c_naissance_jour_mois_annee_jj_debut" = "", "r_c_naissance_jour_mois_annee_mm_debut" = "", "r_c_naissance_jour_mois_annee_yyyy_debut" = 1890, "r_c_naissance_jour_mois_annee_jj_fin" = "", "r_c_naissance_jour_mois_annee_mm_fin" = "", "r_c_naissance_jour_mois_annee_yyyy_fin" = "", "r_c_id_naissance_departement" = "", "hidden_c_id_naissance_departement" = "", "r_c_id_naissance_pays" = "", "hidden_c_id_naissance_pays" = "", "r_annot_c_id_grade" = "", "hidden_c_id_grade" = "", "r_annot_c_id_unite" = "", "hidden_c_id_unite" = "", "r_annot_c_id_recrutement_bureau" = "", "hidden_c_id_recrutement_bureau" = "", "r_annot_c_classe" = "", "r_annot_c_recrutement_matricule" = "", "r_annot_c_id_naissance_lieu" = "", "hidden_c_id_naissance_lieu" = "", "r_annot_c_deces_jour_mois_annee_jj_debut" = "", "r_annot_c_deces_jour_mois_annee_mm_debut" = "", "r_annot_c_deces_jour_mois_annee_yyyy_debut" = "", "r_annot_c_deces_jour_mois_annee_jj_fin" = "", "r_annot_c_deces_jour_mois_annee_mm_fin" = "", "r_annot_c_deces_jour_mois_annee_yyyy_fin" = "", "r_annot_c_id_deces_lieu" = "", "hidden_c_id_deces_lieu" = "", "r_annot_c_deces_lieu_complement" = "", "r_annot_c_deces_lieu_complement_like" = 1, "r_annot_c_id_deces_departement" = "", "hidden_c_id_deces_departement" = "", "r_annot_c_id_deces_pays" = "", "hidden_c_id_deces_pays" = "", "r_annot_c_id_transcription_etablissement_lieu" = "", "hidden_c_id_transcription_etablissement_lieu" = "", "r_annot_c_id_transcription_etablissement_departement" = "", "hidden_c_id_transcription_etablissement_departement" = "", "r_annot_c_id_transcription_etablissement_pays" = "", "hidden_c_id_transcription_etablissement_pays" = "" ) t = GET(r, query = q, verbose()) writeLines(content(t, "text", encoding = "UTF-8"), "~/Desktop/test.html")
... which doesn't work at all (all I get is NA ).
What am I doing wrong?