don't change paper references

Author: cpsievert

R/subplots.R

@@ -215,10 +215,13 @@ subplot <- function(..., nrows = 1, widths = NULL, heights = NULL, margin = 0.02
       newAnchors <- names(axisMap)[match(oldAnchors, axisMap)]
       traces[[i]] <- Map(function(tr, a) { tr[[key]] <- a; tr }, traces[[i]], newAnchors)
       # also map annotation[i].xref/annotation[i].yref
-      annAnchor <- list(xaxis = "xref", yaxis = "yref")[[key]]
-      if (is.null(annAnchor)) next
+      ref <- list(xaxis = "xref", yaxis = "yref")[[key]]
+      if (is.null(ref)) next
       if (is.null(annotations[[i]])) next
-      annotations[[i]] <- Map(function(ann, a) { ann[[annAnchor]] <- a; ann}, annotations[[i]], newAnchors)
+      annotations[[i]] <- Map(function(ann, a) { 
+        if (!identical(ann[[ref]], "paper")) ann[[ref]] <- a
+        ann
+      }, annotations[[i]], newAnchors)
     }
 
     # rescale domains according to the tabular layout