if (FALSE) {
Sys.setenv(OPENAI_API_KEY = "sk-xxxxxx")
# Quick single-text check
result <- create_moderation("I love everyone!")
cat("Flagged:", result$results[[1]]$flagged) # FALSE
# Screen multiple texts from user input
texts <- list("normal message", "harmful content example")
result <- create_moderation(texts)
for (i in seq_along(result$results)) {
cat("Text", i, "flagged:", result$results[[i]]$flagged, "\n")
}
}
Run the code above in your browser using DataLab