Hello guys

I am trying to upload an image and have the title description using the openAI packgae in R

library(openai)
Sys.setenv(OPENAI_API_KEY = "myopenAIkey")

book_uploaded <- openai::upload_file(file = 'www/img/book1.jpg',
                    openai_api_key = 'myopenAIkey',
                    purpose = "fine-tune")

This is the output:

$object
[1] "file"

$id
[1] "file-lP51mBe9YKo4UqAZUj3wXupa"

$purpose
[1] "fine-tune"

$filename
[1] "book1.jpg"

$bytes
[1] 91855

$created_at
[1] 1720527162

$status
[1] "processed"

$status_details
NULL

But its not working

Should I have to use this output into other function?

Any help guys?