Fix offset on setStyle

cmcaine · cmcaine · commit 9841cde51a84 · 2018-07-12T22:56:40.000+01:00
diff --git a/R/methods.R b/R/methods.R
@@ -49,7 +49,7 @@ setView <- function(map, lng, lat, zoom, options = list()) {
 #' }
 #' @export
 setStyle = function(map, group, styles, label = NULL, offset = 0) {
-    invokeMethod(map, NULL, "setStyle", group, styles, label, offset)
+    invokeMethod(map, NULL, "setStyle", group, styles, label, offset - 1)
 }
 
 #' @export

Original file line number	Diff line number	Diff line change
`@@ -49,7 +49,7 @@ setView <- function(map, lng, lat, zoom, options = list()) {`
`49`	`49`	`#' }`
`50`	`50`	`#' @export`
`51`	`51`	`setStyle = function(map, group, styles, label = NULL, offset = 0) {`
`52`		`- invokeMethod(map, NULL, "setStyle", group, styles, label, offset)`
	`52`	`+ invokeMethod(map, NULL, "setStyle", group, styles, label, offset - 1)`
`53`	`53`	`}`
`54`	`54`
`55`	`55`	`#' @export`