使用 httr2 的 POST 请求，从 rvest 代码翻译

Question

我设法用rvest从这个网站上刮了我的成绩，但我想知道如何用httr2 ，因为我认为它会大大提高速度。 所以，我需要帮助是将我的代码转换为httr2方法。

library(tidyverse)
library(rvest)

session <- "https://app.vitnemalsportalen.no/vp/showResultFromLink/en/4CB61E8180624CA881E42F517183792C" %>%  
  rvest::session()

form <- session %>%  
  html_form() %>%  
  .[[1]] %>%  
  html_form_set(key = "683714") 

page <- session_submit(session, form)

page %>%  
  read_html %>%  
  html_table()

[[1]]
# A tibble: 22 x 6
   `Course code` Course                                                Semester  Credits Grade `Grade distrib~`
   <chr>         <chr>                                                 <chr>     <chr>   <chr> <chr>           
 1 BØK 3422      Managerial Accounting                                 Autumn 2~ "7.5\n~ B     "A 684,  \n\tB ~
 2 HIS 3410      The Firm                                              Autumn 2~ "7.5\n~ C     "A 572,  \n\tB ~
 3 MRK 3414      Marketing Management                                  Autumn 2~ "7.5\n~ A     "A 1280,  \n\tB~
 4 JUR 3420      Business Law                                          Autumn 2~ "7.5\n~ A     "A 945,  \n\tB ~
 5 ORG 3402      Psychology, Organization and Leadership               Spring 2~ "7.5\n~ B     "A 541,  \n\tB ~
 6 MET 2910      Mathematics                                           Spring 2~ "7.5\n~ A     "A 2025,  \n\tB~
 7 BØK 3423      Finance                                               Spring 2~ "7.5\n~ A     "A 439,  \n\tB ~
 8 MET 2920      Statistics                                            Spring 2~ "7.5\n~ A     "A 2538,  \n\tB~
 9 SØK 3520      Microeconomics                                        Autumn 2~ "7.5\n~ B     "A 756,  \n\tB ~
10 BØK 3532      Financial Accounting and Financial Statement Analysis Autumn 2~ "7.5\n~ B     "A 1360,  \n\tB~
# ... with 12 more rows

到目前为止我用httr2尝试了什么。 我很难理解如何将参数/代码传递给站点。

"https://app.vitnemalsportalen.no/vp/showResultFromLink/en/4CB61E8180624CA881E42F517183792C" %>%  
  request() %>% 
  req_body_form(key = "683714") %>% 
  req_perform()

"https://app.vitnemalsportalen.no/vp/showResultFromLink/en/4CB61E8180624CA881E42F517183792C" %>%  
  request() %>% 
  req_body_json(list(key = "683714")) %>% 
  req_perform()