top, not bottom

cpsievert · cpsievert · commit 23ccf4a567e5 · 2016-09-29T12:03:33.000-05:00
diff --git a/R/ggplotly.R b/R/ggplotly.R
@@ -453,7 +453,7 @@ gg2list <- function(p, width = NULL, height = NULL, tooltip = "all",
               make_label(
                 faced(axisTitleText, axisTitle$face), x, y, el = axisTitle,
                 xanchor = if (xy == "x") "center" else "right", 
-                yanchor = if (xy == "x") "bottom" else "center", 
+                yanchor = if (xy == "x") "top" else "center", 
                 annotationType = "axis"
               )
             )

Original file line number	Diff line number	Diff line change
`@@ -453,7 +453,7 @@ gg2list <- function(p, width = NULL, height = NULL, tooltip = "all",`
`453`	`453`	`make_label(`
`454`	`454`	`faced(axisTitleText, axisTitle$face), x, y, el = axisTitle,`
`455`	`455`	`xanchor = if (xy == "x") "center" else "right",`
`456`		`- yanchor = if (xy == "x") "bottom" else "center",`
	`456`	`+ yanchor = if (xy == "x") "top" else "center",`
`457`	`457`	`annotationType = "axis"`
`458`	`458`	`)`
`459`	`459`	`)`