Skip to content

Instantly share code, notes, and snippets.

@rnfermincota

rnfermincota/InvestingCom.R

Created June 30, 2022 09:04
Show Gist options
  • Save rnfermincota/b7d08dc089f562964c8426c00b095e45 to your computer and use it in GitHub Desktop.
Save rnfermincota/b7d08dc089f562964c8426c00b095e45 to your computer and use it in GitHub Desktop.
Download ZIP
InvestingCom
Raw
InvestingCom.R
library(httr)
date_to <- Sys.Date(); date_from <- date_to-10
# solve No visible binding for global variable
. <- NULL
# make POST request to invest.com earings calendar
# print("POST request to investing.com")
p <- POST(
url = "https://www.investing.com/earnings-calendar/Service/getCalendarFilteredData",
body = list(
"country[]" = "5",
"dateFrom" = date_from,
"dateTo" = date_to,
"currentTab" = "custom",
"limit_from" = "0"
),
add_headers(
"Content-Type" = "application/x-www-form-urlencoded",
"Referer" = "https://www.investing.com/earnings-calendar/",
"User-Agent" = "Mozilla/5.0",
"X-Requested-With" = "XMLHttpRequest"
),
encode = "form"
)
# parse content
# print("PArse content.")
json <- content(p, type = "application/json")
# Error: lexical error: invalid char in json text.
# <!DOCTYPE HTML> <html lang="en-
# (right here) ------^
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment