gsub

cpsievert · cpsievert · commit b6de3556b936 · 2019-07-16T10:31:16.000-05:00
diff --git a/R/ggplotly.R b/R/ggplotly.R
@@ -617,7 +617,7 @@ gg2list <- function(p, width = NULL, height = NULL,
         # TODO: how to convert a language object to unicode character string?
         rng[[paste0(xy, ".labels")]] <- sub(
           "\\*\\s+degree[ ]?[\\*]?", "&#176;", 
-          sub("\"", "", tickData[["degree_label"]])
+          gsub("\"", "", tickData[["degree_label"]])
         )
         rng[[paste0(xy, ".major")]] <- tickData[[paste0(xy, "_start")]]
         

Original file line number	Diff line number	Diff line change
`@@ -617,7 +617,7 @@ gg2list <- function(p, width = NULL, height = NULL,`
`617`	`617`	`# TODO: how to convert a language object to unicode character string?`
`618`	`618`	`rng[[paste0(xy, ".labels")]] <- sub(`
`619`	`619`	`"\\\\s+degree[ ]?[\\]?", "°",`
`620`		`- sub("\"", "", tickData[["degree_label"]])`
	`620`	`+ gsub("\"", "", tickData[["degree_label"]])`
`621`	`621`	`)`
`622`	`622`	`rng[[paste0(xy, ".major")]] <- tickData[[paste0(xy, "_start")]]`
`623`	`623`