library(httr)
library(jsonlite)
library(writexl)

# API anahtarı ve video ID
api_key <- "YOUR_API_KEY"
video_id <- "YOUR_VIDEO_ID"

# YouTube API URL'si
url <- paste0("https://www.googleapis.com/youtube/v3/commentThreads?part=snippet&videoId=", video_id, "&key=", api_key, "&maxResults=100")

# API'ye istek gönder
response <- GET(url)

# JSON formatındaki yanıtı R listesine çevir
data <- fromJSON(content(response, as = "text"))

# Yorumları çıkarma
comments <- sapply(data$items, function(x) x$snippet$topLevelComment$snippet$textDisplay)

# Yorumları bir data frame'e dönüştürme
comments_df <- data.frame(Comment = comments, stringsAsFactors = FALSE)

# Excel dosyasına yazma (UTF-8 kodlamasıyla)
write_xlsx(comments_df, path = "YouTube_Comments.xlsx")

print("Excel dosyası başarıyla oluşturuldu!")