reposition [x-y]anchor when [x-y]sizemode='pixel', fixes #1493

cpsievert · cpsievert · commit 3b321db813e4 · 2019-03-18T15:36:36.000-05:00
diff --git a/R/subplots.R b/R/subplots.R
@@ -416,7 +416,7 @@ reposition <- function(obj, domains) {
     o <- obj[[i]]
     xs <- if (identical(o$xref, "paper")) {
       if (is.numeric(o$sizex)) obj[[i]]$sizex <- o$sizex * abs(diff(xdom))
-      c("x", "x0", "x1")
+      if (identical(o$xsizemode, "pixel")) "xanchor" else c("x", "x0", "x1")
     }
     for (j in xs) {
       if (is.numeric(o[[j]])) {
@@ -425,7 +425,7 @@ reposition <- function(obj, domains) {
     }
     ys <- if (identical(o$yref, "paper")) {
       if (is.numeric(o$sizey)) obj[[i]]$sizey <- o$sizey * abs(diff(ydom))
-      c("y", "y0", "y1")
+      if (identical(o$ysizemode, "pixel")) "yanchor" else c("y", "y0", "y1")
     }
     for (j in ys) {
       if (is.numeric(o[[j]])) {

Original file line number	Diff line number	Diff line change
`@@ -416,7 +416,7 @@ reposition <- function(obj, domains) {`
`416`	`416`	`o <- obj[[i]]`
`417`	`417`	`xs <- if (identical(o$xref, "paper")) {`
`418`	`418`	`if (is.numeric(o$sizex)) obj[[i]]$sizex <- o$sizex * abs(diff(xdom))`
`419`		`- c("x", "x0", "x1")`
	`419`	`+ if (identical(o$xsizemode, "pixel")) "xanchor" else c("x", "x0", "x1")`
`420`	`420`	`}`
`421`	`421`	`for (j in xs) {`
`422`	`422`	`if (is.numeric(o[[j]])) {`
`@@ -425,7 +425,7 @@ reposition <- function(obj, domains) {`
`425`	`425`	`}`
`426`	`426`	`ys <- if (identical(o$yref, "paper")) {`
`427`	`427`	`if (is.numeric(o$sizey)) obj[[i]]$sizey <- o$sizey * abs(diff(ydom))`
`428`		`- c("y", "y0", "y1")`
	`428`	`+ if (identical(o$ysizemode, "pixel")) "yanchor" else c("y", "y0", "y1")`
`429`	`429`	`}`
`430`	`430`	`for (j in ys) {`
`431`	`431`	`if (is.numeric(o[[j]])) {`