install.packages("rvest")
install.packages("dplyr")
install.packages("stringr")

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")

#抓產品名稱
item_name <- price_watch_html %>% 
  html_attr("aria-label")

#抓產品連結
item_url <- price_watch_html %>% 
  html_attr("href")
item_full_url <- paste0("http://p...content-available-to-author-only...t.nu",item_url)

#抓產品價格--> Q1
item_price <- price_watch_html %>% 
  html_nodes(".bhjqZq") %>%
  html_text()
nchar(item_price)

#抓每個產品的規格然後對應到 category--> Q2
for (i in 1:length(item_full_url)){
  spec <- read_html(item_full_url[i],encoding = "UTF-8") %>%
    html_nodes(".iyOoKG") %>%
    html_text()
  print(spec)
}
print(spec)

Category <- c("CPU", "Display", "RAM", "GPU", "Resolution","Weight")

#抓產品規格 Table--> Q3
spec_table <- price_watch_html %>% 
  html_nodes(xpath = '//*[@id="main"]/table') %>%
  html_table()
spec_table
class(spec_table)


#產出一個 13x9 的 data frame
df <- data.frame(Item = item_name, Price = item_price, URL = item_full_url)