bug in ggobi_display_save_picture() for scatterplot matrix

[stla]

Hello,

ggobi_display_save_picture(..., plot.only=TRUE) does not work for a scatterplot matrix.

There's a programming error here:

  if (inherits(display, "GGobiScatmatDisplay")) 
    display_widget1 <- display_widget[[2]][[1]]
  display_widget2 <- display_widget[[2]][[3]][["widget"]]

It should be replaced with:

  if (inherits(display, "GGobiScatmatDisplay")) 
    display_widget1 <- display_widget[[2]][[1]]
  else display_widget2 <- display_widget[[2]][[3]][["widget"]]