library(readr)
library(writexl)
data <- readRDS("Halal_toruism_rawdata.rds")
# Optional: View data structure
str(data)
# Save as Excel
write_xlsx(data, "Halal_Tourism_Tweets.xlsx")