Я ищу помощь при загрузке файла .csv
на сайт, который требует входа в систему. У меня нет проблем с кодом, который заставляет меня войти в систему. Это работает, потому что я могу очистить HTML на веб-сайте за логином.
Вот код, который я использую для входа в систему:
login_baseballhq <- function(bbhq_id = Sys.getenv("bbhq_id"),
bbhq_password = Sys.getenv("bbhq_password")) {
# Open Session on Base Login Page
my_session <- rvest::html_session("https://www.baseballhq.com")
unfilled_forms <- rvest::html_form(my_session)
login_form <- unfilled_forms[[1]]
filled_form <- rvest::set_values(login_form, name = bbhq_id, pass = bbhq_password) # fill the form
login_session <- rvest::submit_form(my_session, filled_form)
return(login_session)
}
Код, используемый для очистки HTML
url <- "https://www.baseballhq.com/members/tools/stat_proj?lg=M&p=B&t=P"
# Get Page Session Function?
page <- rvest::jump_to(login_session, url)
page <-
page %>%
xml2::read_html()
Как мне go загрузить файл .csv
на сайт? URL, по которому я нажимаю, чтобы получить файл: «https://www.baseballhq.com/download_stats.php?file=M_B_P».
Когда я копирую и вставляю ссылку на новую вкладку браузера, я получаю следующее сообщение.
Please login to BaseballHQ.Com before attempting to download a file.