if (FALSE) {
Sys.setenv(OPENAI_API_KEY = "sk-xxxxxx")
# Basic transcription
result <- create_transcription("meeting.mp3")
cat(result$text)
# With language hint and plain text output
text <- create_transcription(
file = "lecture.m4a",
model = "whisper-1",
language = "en",
response_format = "text"
)
cat(text)
}
Run the code above in your browser using DataLab