Better OutDEc

eliocamp · Dec 23, 2023 · 1dd5d39 · 1dd5d39
1 parent 12ded1b
commit 1dd5d39
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/stat_contour_fill.R b/R/stat_contour_fill.R
@@ -142,8 +142,8 @@ StatContourFill <- ggplot2::ggproto("StatContourFill", ggplot2::Stat,
         # Make contours
         dec <- getOption("OutDec")
         options(OutDec = ".")
+        on.exit(options(OutDec = dec))
         cont <- data.table::setDT(.contour_bands(data, breaks, complete = complete, clip = clip, proj = proj))
-        options(OutDec = dec)
 
         cont[, int.level := (level_high + level_low)/2]
         cont[, level_mid := int.level]