Html 从R中的下拉菜单获取所有每日油价

我正试图通过这个链接获取伊斯坦布尔所有县的石油价格：

其中有两个下拉列表用于选择市和县，代码如下：

IST_DATA  <- data.frame(Sehir ="ISTANBUL",Ilce="ADALAR")
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="AVCILAR"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="BAGCILAR"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="BAHCELIEVLER"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="BAKIRKOY"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="BAYRAMPASA"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="BESIKTAS"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="BEYKOZ"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="BEYOGLU"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="BUYUKCEKMECE"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="CATALCA"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="EMINONU"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="ESENLER"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="EYUP"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="FATIH"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="GAZIOSMANPASA"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="GUNGOREN"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="ISTANBUL_ANA"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="ISTANBUL_TRA"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="KADIKOY"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="KAGITHANE"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="KARTAL"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="KUCUKCEKMECE"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="MALTEPE"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="PENDIK"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="SARIYER"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="SILE"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="SILIVRI"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="SISLI"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="SULTANBEYLI"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="TUZLA"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="UMRANIYE"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="USKUDAR"))
IST_DATA  <- rbind.data.frame(IST_DATA,  data.frame(Sehir="ISTANBUL", Ilce="ZEYTINBURNU"))

FileData <- as.data.frame(NULL)

for(i in 1:nrow(IST_DATA))
{ 
 url <- sprintf("https://www.petrolofisi.com.tr/posvc/fiyat/guncel?il=%s&Ilce=%s", IST_DATA$Sehir[i], IST_DATA$Ilce[i])
 download.file(url,"petrolofisi.html", quiet=TRUE)
 AppendData <- as.data.frame(read_html("petrolofisi.html") %>% html_text(), stringsAsFactors=FALSE)     
 FileData <- rbind.data.frame(FileData,AppendData)
 rownames(FileData)[i] <- as.character(IST_DATA$Ilce[i])
}
View(FileData)
write_excel_csv2( x= FileData, path="AKARYAKIT.xls") 

IST\u数据
library（jsonlite）
图书馆（httr）
图书馆（dplyr）
图书馆（tidyverse）
库（openxlsx）
if（curl:：has_internet（）==TRUE）{
链接=”https://www.petrolofisi.com.tr/posvc/fiyat/ililce?il=ISTANBUL"
r
library（jsonlite）
图书馆（httr）
图书馆（dplyr）
图书馆（tidyverse）
库（openxlsx）
if（curl:：has_internet（）==TRUE）{
链接=”https://www.petrolofisi.com.tr/posvc/fiyat/ililce?il=ISTANBUL"
r当互联网关闭时，我自然会收到错误“curl:：curl\u fetch\u内存中的错误（url，handle=handle）：无法解析主机：www.petrolofisi.com.tr”。您能为我提供一个处理此错误的代码片段吗？我只需要输出我自己的错误消息，非常感谢。此错误是由于无法连接主机造成的，并且请确保软件包安装正确。我想我无法解释。我需要通过Unix shell运行此程序，因此当我的客户的internet连接失败时他需要知道这一点。当我在curl:：curl\u fetch\u内存（url，handle=handle）中遇到错误时，我将显示一条错误消息“检查您的internet连接是否正常工作”：无法解析主机：www.petrolofisi.com.tr‘我已更新了代码，现在代码将检查internet连接，然后只从URL获取油价。used curl:：has_internet（）==TRUE检查连接当internet关闭时，我自然会得到错误’”curl:：curl_fetch_内存中的错误（URL，handle=handle）：无法解析主机：www.petrolofisi.com.tr“。您能为我提供一个处理此错误的代码片段吗？我只需要输出我自己的错误消息，非常感谢。此错误是由于无法连接主机造成的，并且请确保软件包安装正确。我想我无法解释。我需要通过Unix shell运行此程序，因此当我的客户的internet连接失败时他需要知道这一点。当我在curl:：curl\u fetch\u内存（url，handle=handle）中遇到错误时，我将显示一条错误消息“检查您的internet连接是否正常工作”：无法解析主机：www.petrolofisi.com.tr'I已更新代码，现在代码将检查internet连接，然后仅从URL获取油价。已使用curl:：has_internet（）==TRUE检查连接