gsub

cpsievert · cpsievert · commit a476d787ae2a · 2019-07-13T12:47:45.000-05:00
diff --git a/R/ggplotly.R b/R/ggplotly.R
@@ -603,7 +603,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
`@@ -603,7 +603,7 @@ gg2list <- function(p, width = NULL, height = NULL,`
`603`	`603`	`# TODO: how to convert a language object to unicode character string?`
`604`	`604`	`rng[[paste0(xy, ".labels")]] <- sub(`
`605`	`605`	`"\\\\s+degree[ ]?[\\]?", "°",`
`606`		`- sub("\"", "", tickData[["degree_label"]])`
	`606`	`+ gsub("\"", "", tickData[["degree_label"]])`
`607`	`607`	`)`
`608`	`608`	`rng[[paste0(xy, ".major")]] <- tickData[[paste0(xy, "_start")]]`
`609`	`609`