diff --git a/R/facet_geo.R b/R/facet_geo.R index 6d312b7..2d83d07 100644 --- a/R/facet_geo.R +++ b/R/facet_geo.R @@ -70,7 +70,7 @@ ggplot_add.facet_geo_spec <- function(object, plot, object_name) { } #' Perform post-processing on a facet_geo ggplot object -#' +#' #' @param x object of class 'facet_geo' #' @export get_geofacet_grob <- function(x) { @@ -253,6 +253,8 @@ grid_design <- function(data = NULL, img = NULL, label = "code", auto_img = TRUE rows <- c(paste(names(data), collapse = ","), apply(data, 1, function(x) paste(x, collapse = ","))) data_csv <- paste(rows, collapse = "\n") + data_csv <- gsub("&", "%26", data_csv) + } else { data_csv <- "" }