Subplot doesn't accumulate and reposition images

[cpsievert]

For example

library(plotly)

r <- as.raster(matrix(hcl(0, 80, seq(50, 80, 10)), nrow = 4, ncol = 5))

# embed the raster as an image
p <- plot_ly(x = 1, y = 1) %>% 
  layout(
    images = list(list(
      source = raster2uri(r),
      xref = "paper", 
      yref = "paper", 
      x = 0, y = 0, 
      sizex = 0.5, sizey = 0.5, 
      xanchor = "left", yanchor = "bottom"
    ))
  ) 


subplot(p, p)

[cpsievert]

TODO:

• Accumulate images
• Re-position paper coords
• Re-anchor axis refs