I am having issues scraping a website in R

Hi, I am having issues scraping data on amazon website. Please see the codes below

pacman::p_load(
  #data wrangling
  tidyverse, stringr,
  #web scraping
  rvest
)
url <- ("https://www.amazon.com/Books/b/ref=s9_acss_bw_cg_bsmpill_1e1_w?ref=bsm_nav_pill_nyt/ie=UTF8&node=549028&pf_rd_m=ATVPDKIKX0DER&pf_rd_s=merchandised-search-1&pf_rd_r=HC2BQ4Y2FJ040GDE8AHS&pf_rd_t=101&pf_rd_p=ef8cebb8-ad4b-453c-8030-a931d3822444&pf_rd_i=16857165011")
best_seller <- read_html(url) %>% 
  html_elements("#productTitle") %>% 
  html_text2() %>% str_squish()
#Ratings
Rating <- read_html(url) %>% 
  html_elements(".a-star-4-5") %>% html_text2()
#author
links <- read_html(url) %>% 
  html_elements(".contributorNameID") %>% 
  html_text2()