library(ellmer)
chat <- chat_openai()
#> Using model = "gpt-4.1".

r_image <- content_image_url("https://www.r-project.org/Rlogo.png")
py_image <- content_image_url("https://upload.wikimedia.org/wikipedia/commons/thumb/c/c3/Python-logo-notext.svg/640px-Python-logo-notext.svg.png")

parallel_chat_structured(
  chat,  
  list(r_image, py_image),
  type = type_object(
    primary_shape = type_string(),
    primary_colour = type_string()
  )
)
#> Error in as.vector(x, "list"): cannot coerce type 'object' to vector of type 'list'

parallel_chat_structured(
  chat,  
  list(list(r_image), list(py_image)),
  type = type_object(
    primary_shape = type_string(),
    primary_colour = type_string()
  )
)
#> [working] (0 + 0) -> 1 -> 1 | ■■■■■■■■■■■■■■■■                  50%
#> [working] (0 + 0) -> 0 -> 2 | ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■  100%
#>                            primary_shape  primary_colour
#> 1                      circle and letter   grey and blue
#> 2 two interlocking abstract snake shapes blue and yellow