library(rvest)
library(dplyr)
library(stringr)
 
url <-
  "https://w...content-available-to-author-only...t.nu/kategori.php?k=s426874315&catId=353&sort=price_include_shipping&direction=asc"
price_watch_html <-
  read_html(url, encoding = "UTF-8") %>%
  html_nodes(".kGpEgQ")
dt <-
  data.frame(item_name =
               price_watch_html %>%
               html_attr("aria-label"))
dt$item_full_url <- 
  paste0("https://w...content-available-to-author-only...t.nu", item_url)
dt$item_price <-
  price_watch_html %>%
  html_nodes(".bhjqZq") %>%
  html_text() %>%
  gsub("kr", "", .) %>%
  gsub("\u00A0", "", .) %>%
  as.numeric
for (i in 1:length(item_full_url)) {
  dt[i, 3:8] <-
    read_html(item_full_url[i], encoding = "UTF-8") %>%
    html_nodes(".iyOoKG") %>%
    html_text()
}
names(dt)[3:8] <-
  c("CPU", "Display", "RAM", "GPU", "Resolution", "Weight")
 
dt
 

bGlicmFyeShydmVzdCkKbGlicmFyeShkcGx5cikKbGlicmFyeShzdHJpbmdyKQoKdXJsIDwtCiAgImh0dHBzOi8vdy4uLmNvbnRlbnQtYXZhaWxhYmxlLXRvLWF1dGhvci1vbmx5Li4udC5udS9rYXRlZ29yaS5waHA/az1zNDI2ODc0MzE1JmNhdElkPTM1MyZzb3J0PXByaWNlX2luY2x1ZGVfc2hpcHBpbmcmZGlyZWN0aW9uPWFzYyIKcHJpY2Vfd2F0Y2hfaHRtbCA8LQogIHJlYWRfaHRtbCh1cmwsIGVuY29kaW5nID0gIlVURi04IikgJT4lCiAgaHRtbF9ub2RlcygiLmtHcEVnUSIpCmR0IDwtCiAgZGF0YS5mcmFtZShpdGVtX25hbWUgPQogICAgICAgICAgICAgICBwcmljZV93YXRjaF9odG1sICU+JQogICAgICAgICAgICAgICBodG1sX2F0dHIoImFyaWEtbGFiZWwiKSkKZHQkaXRlbV9mdWxsX3VybCA8LSAKICBwYXN0ZTAoImh0dHBzOi8vdy4uLmNvbnRlbnQtYXZhaWxhYmxlLXRvLWF1dGhvci1vbmx5Li4udC5udSIsIGl0ZW1fdXJsKQpkdCRpdGVtX3ByaWNlIDwtCiAgcHJpY2Vfd2F0Y2hfaHRtbCAlPiUKICBodG1sX25vZGVzKCIuYmhqcVpxIikgJT4lCiAgaHRtbF90ZXh0KCkgJT4lCiAgZ3N1Yigia3IiLCAiIiwgLikgJT4lCiAgZ3N1YigiXHUwMEEwIiwgIiIsIC4pICU+JQogIGFzLm51bWVyaWMKZm9yIChpIGluIDE6bGVuZ3RoKGl0ZW1fZnVsbF91cmwpKSB7CiAgZHRbaSwgMzo4XSA8LQogICAgcmVhZF9odG1sKGl0ZW1fZnVsbF91cmxbaV0sIGVuY29kaW5nID0gIlVURi04IikgJT4lCiAgICBodG1sX25vZGVzKCIuaXlPb0tHIikgJT4lCiAgICBodG1sX3RleHQoKQp9Cm5hbWVzKGR0KVszOjhdIDwtCiAgYygiQ1BVIiwgIkRpc3BsYXkiLCAiUkFNIiwgIkdQVSIsICJSZXNvbHV0aW9uIiwgIldlaWdodCIpCgpkdAo=