The function I created isnt giving an output after I have scrapped the pdf from the web

Hi community,

I have been trying to scrape links and published date from a pdf in a website using rvest but the functions I wrote keeps returning itself without giving out result. I want my functions to run without returning just the functions to me

# Load Packages ------


# Data Wrangling

tidyverse, lubridate, magrittr,

# Web scraping

rvest, xopen,

# Text data mining

readtext, tidytext,
quanteda, textclean

search_pages <- c("[ ](", "[ ](") %>% tibble(page = .) %>%

# Create a function to grab the links

get_links <- function(page){

# page <- search_pages %>% pull(page) %>% .[1] %>% read_html()

page <- search_pages %>% read_html()

# Create a table of extracted data

page_tbl <- tibble(

# Get Title

  title = page %>% 
    html_nodes('.dbasetable a') %>% 
    html_text2() %>% 
      "(CBN )|(Economic Report)|(for )|(the )|(Published\\s\\d+/\\d+/\\d+)|(of)") %>% 
  # Get Published Date
  date = page %>% 
    html_nodes('#publishedDt') %>% #
    html_text2() %>% 
    str_squish() %>% 
    str_replace("Published ", "") %>% 
    str_extract("\\d+/\\d+/\\d+") %>% 
    mdy() %>% 
    format(., format = "%Y%m%d"),
  # Get the download links
  links = page %>%
    html_nodes('.dbasetable a') %>%
    html_attr("href") %>% 
    str_replace("^(\\.\\.)", "") %>% 
    str_c("", .)


Thank you

It might be helpful for you to know how to properly format code and console output that you post here. Using proper code formatting makes the site easier to read, prevents confusion (unformatted code can get garbled by the forum software :anguished:), and is generally considered the polite thing to do. Check out this FAQ to find out how — it's as easy as the click of a button! :grinning::

This topic was automatically closed 42 days after the last reply. New replies are no longer allowed.

If you have a query related to it or one of the replies, start a new topic and refer back with a link.