R/list_data_names.R

In konya: R Wrapper for Konya Municipality Open Data Portal

#' @title list_data_names
#' @description list the name of the data sets available in Bursa Open Data Portal
#' @return A character vector that shows the name of the data set
#' @examples
#' \donttest{
#' list_data_names()
#'}
#' @export
#'
list_data_names<-function(){
  url<-"https://acikveri.konya.bel.tr/dataset/"
  link<- rvest::read_html(url)
  #requireNamespace(dplyr)
  page_no <- link |>rvest::html_elements("a") |>rvest::html_attr("href") |>stringr::str_subset("page") |>readr::parse_number() |>max()
  data_name<-c()
  for(i in 1:page_no){
    link_for_each_page  <- gsub(" ","",paste("https://acikveri.konya.bel.tr/dataset?page=",i))
    link_for_each_page_html <-rvest::read_html(link_for_each_page)
    link_for_data  <- link_for_each_page_html |>rvest::html_elements("a") |>rvest::html_attr("href") |>stringr::str_subset("/dataset/")|>unique()
    link_for_data <- link_for_data [!grepl("\\?", link_for_data )]
    data_name<-c(data_name,stringr::str_remove(link_for_data ,"/dataset/"))
  }
  return(data_name)
}