api_create() doesn't 'src-ify' arrays within objects

[cpsievert]

For example,

plot_ly(x = 1:10, y = 1:10, color = 1:10) %>% api_create()