R/does_indicator_exist.R

In nhs-pt/acss.sdm: Web scraping of Sistema de Dados Mestre (SDM)

#' @export
does_indicator_exist <- function(x) {

  response <- as_response(x, type = 'indicator')

  html_text <- httr::content(response, 'text', encoding = 'UTF-8')
  html_text2 <- rvest::read_html(html_text)

  response <-
    rvest::html_elements(html_text2, xpath = '//*[@id="MainContent_lbl_BI"]') %>%
    rvest::html_text2()

  return(!identical(response, 'Erro. Nenhum indicador encontrado.'))
}