if (FALSE) {
my_id <- 'BCB/7832'
my_api <- 'YOURAPIHERE'
json_link <- sprintf(
paste0('https://www.quandl.com/api/v3/datasets/%s',
'.json?start_date=2010-01-01?end_date=2019-09-30?',
'order=asc?collapse=none?transform=none?api_key=%s'),
my_id, my_api)
l_out <- jsonlite::fromJSON(json_link)
df <- json_to_tibble(l_out, id_in = my_id, name_in = 'Ibov change')
}
Run the code above in your browser using DataLab