Merge branch 'main' into text_key_size

NEWS.md

@@ -2,6 +2,8 @@
 
 * `draw_key_label()` now better reflects the appearance of labels.
 
+* Contour functions will not fail when `options("OutDec")` is not `.` (@eliocamp, #5555).
+
 * The `legend.key` theme element is set to inherit from the `panel.background`
   theme element. The default themes no longer set the `legend.key` element.
   This causes a visual change with the default `theme_gray()` (#5549).

R/stat-contour.R

@@ -107,7 +107,7 @@ StatContour <- ggproto("StatContour", Stat,
 
     breaks <- contour_breaks(z.range, bins, binwidth, breaks)
 
-    isolines <- xyz_to_isolines(data, breaks)
+    isolines <- withr::with_options(list(OutDec = "."), xyz_to_isolines(data, breaks))
     path_df <- iso_to_path(isolines, data$group[1])
 
     path_df$level <- as.numeric(path_df$level)
@@ -140,7 +140,7 @@ StatContourFilled <- ggproto("StatContourFilled", Stat,
   compute_group = function(data, scales, z.range, bins = NULL, binwidth = NULL, breaks = NULL, na.rm = FALSE) {
     breaks <- contour_breaks(z.range, bins, binwidth, breaks)
 
-    isobands <- xyz_to_isobands(data, breaks)
+    isobands <- withr::with_options(list(OutDec = "."), xyz_to_isobands(data, breaks))
     names(isobands) <- pretty_isoband_levels(names(isobands))
     path_df <- iso_to_polygon(isobands, data$group[1])