Заполните форму в R и скачать Excel - PullRequest
Новая
       6

Заполните форму в R и скачать Excel

0 голосов
/ 02 января 2019

Я знаю, что некоторые из вас задавали подобные вопросы, но я не могу решить свою конкретную проблему, и мне действительно нужна помощь с моим кодом.

Что мне нужно сделать, это ввести некоторые данные в эту форму: https://sedeaplicaciones.minetur.gob.es/shpCarburantes

Чтобы попытаться заставить это работать, нам просто нужно указать 3 значения в форме.Например: Fecha Inicial = 12/12/2018, Fecha Final 31/12/2018 и Comunidad autónoma = "Comunidad Valenciana".

Тогда мне нужно «нажать» кнопку «Aceptar».а затем на следующей странице «нажмите» в этой кнопке, чтобы загрузить и файл Excel.

https://imgur.com/a/TjGNqjH

Заранее большое спасибо!

library(httr)

url <- "https://sedeaplicaciones.minetur.gob.es/shpCarburantes/"

fd <- list(
  submit = "Aceptar",
  "ctl00$cph_Contenido$ddlTipoConsulta" = "1",
  "ctl00$cph_Contenido$ddlTipoTemp" = "0",
  "ctl00$cph_Contenido$txtFechaInicial" = "01/12/2018",
  "ctl00$cph_Contenido$txtFechaFinal" = "30/12/2018",
  "ctl00$cph_Contenido$ddlTipo" = "0",
  "ctl00$cph_Contenido$ddlCCAA" = "10",
  "ctl00$cph_Contenido$ddlProvincia" = "0",  
  "ctl00$cph_Contenido$ddlMunicipio"  = "0", 
  "ctl00$cph_Contenido$ddlLocalidad"  = "0", 
  "ctl00$cph_Contenido$ddlGasolinera" = "0", 
  "ctl00$cph_Contenido$ddlCarburante" = "GPR", 
  "ctl00$cph_Contenido$ddlTipoGrafico" = "0" 
  )

resp <- POST(url, body = fd, encode = "form")
...