R/get_page_title.R

In moamiristat/grocerycart: Collect, Clean & Analyze Grocery Data from elGrocer & Ocado

#' Get the title of the current page
#'
#' @param remDr Remote client driver
#'
#' @return A character string
#' @export
#'
#' @examples
#' \dontrun{
#' # Initiate server
#' remDr <- RSelenium::rsDriver(port = netstat::free_port(),
#' browser = "firefox", verbose = FALSE)$client
#'
#' # Navigate to webpage & get title
#' remDr$navigate("https://duckduckgo.com")
#' get_page_title(remDr = remDr)
#'
#' # Close the server
#' remDr$close()
#' gc(remDr)
#' rm(remDr)
#' }
get_page_title <- function(remDr) {
  cat(crayon::blue(remDr$getTitle(), "\n"))
}

#' @rdname get_page_title
#' @export
current_url <- function(remDr) {
  url <- remDr$getCurrentUrl() %>%
    unlist()

  cat(crayon::bgCyan("Currently on:", url, "\n"))
}