R/guiRemove.R

In HH: Statistical Analysis and Data Display: Heiberger and Holland

### remove graph sheet pages, equivalent to right-click delete on the tab.
###  GSremove(c(3,4,5,6,8,9,12,13))

GSremove <- function(pages, sheet="GSD2$Page") {
  if.R(r={
    guiRemove <- NA ## placeholder to make R-2.6.0dev happy
    warning("No-op function in R.")
  }
       ,s=
       for (i in paste(sheet, pages, sep=""))
       guiRemove( "GraphSheetPage", Name = i, ShiftLeft = FALSE)
       )
}