path_to_directory = "/fire"
# Load the RDS file
data <- readRDS("./fire/fire_dates_empty_data")

#first 10 rows of the rds file
print(head(data, 10))