Question

我知道你们中的一些人已经做了类似的问题，但是我无法解决我的特定问题，我确实需要代码帮助。

我需要做的是在此表单中输入一些数据： https://sedeaplicaciones.minetur.gob.es/shpCarburantes

要使其正常工作，我们只需要在表格中放入3个值即可。例如：Fecha Inicial = 01/12/2018，Fecha Final 31/12/2018和Comunidadautó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")

在R中填写表格并下载Excel

0 个答案: