diff --git a/so.ii/DESCRIPTION b/so.ii/DESCRIPTION index d645a8ec98ae044ed3dc8844d5542701e21d813c..2a093be21b6fc7b8c487bd19d248d71165293d6e 100644 --- a/so.ii/DESCRIPTION +++ b/so.ii/DESCRIPTION @@ -1,6 +1,6 @@ Package: so.ii Title: Utilities very useful to share within so_ii team -Version: 1.0.16.0 +Version: 1.0.17.0 Authors@R: c( person(given = "Frédéric", diff --git a/so.ii/R/map_so_ii.r b/so.ii/R/map_so_ii.r index 56fbf1f718e34d089aa92f54b3b6733335f261ae..865b1732b153ecd419ee320a74a61f7535ab96d4 100644 --- a/so.ii/R/map_so_ii.r +++ b/so.ii/R/map_so_ii.r @@ -160,12 +160,10 @@ map_so_ii = function( ## Plotdataset_legend if any if (!is.null(dataset_legend)) { - dataset_legend = c( - x = "bottomright", - cex = .8, - bg = "white", - inset = 0.01, - dataset_legend) + if (is.null(dataset_legend[["x"]])) dataset_legend[["x"]] = "bottomright" + if (is.null(dataset_legend[["cex"]])) dataset_legend[["cex"]] = 0.8 + if (is.null(dataset_legend[["bg"]])) dataset_legend[["bg"]] = "white" + if (is.null(dataset_legend[["inset"]])) dataset_legend[["inset"]] = 0.01 do.call(graphics::legend, dataset_legend) }