raw_comments <- c(
"The earthquake!!! happened @ midnight...",
NA,
"Floods in 2025 were terrible? Really scary.",
"Support & rescue teams: amazing work!"
)
cleaned_comments <- clean_disaster_text(raw_comments)
print(cleaned_comments)
Run the code above in your browser using DataLab