Retrieve credit score from noddle.co.uk

noddle.r

library(rvest)
library(httr)

set_config(config(ssl_verifypeer = 0L))

url <- "https://www.noddle.co.uk/"
session <- html_session(url)
session <- jump_to(session, "https://www.noddle.co.uk/account/sign-in")
#session %>% html_node("form") %>% html_form()

login_form <- html_form(session)[[1]]
login_form <- set_values(login_form, Username = "XXX", Password = "YYY")
submit_form(session, login_form)

session <- jump_to(session, "https://www.noddle.co.uk/dashboard")
session %>% html_nodes(xpath = '//*[@class="credit-score"]') %>% html_text()