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