warn instead of error for -Inf with log scale

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: animint2
 Title: Animated Interactive Grammar of Graphics
-Version: 2024.11.11
+Version: 2024.11.27
 URL: https://animint.github.io/animint2/
 BugReports: https://github.com/animint/animint2/issues
 Authors@R: c(

NEWS.md

@@ -1,3 +1,9 @@
+# Changes in version 2024.11.27 (PR#170)
+
+- When scale_log10 changes -Inf to NA, Inf handling logic now works
+  (previous was error, user should still fix their code to change -Inf
+  to 0).
+
 # Changes in version 2024.11.11 (PR#166)
 
 - if(require(maps)) in test-compiler-animation.R.

R/geom-.r

@@ -605,6 +605,10 @@ Geom <- gganimintproto("Geom",
         extreme.vec <- range.mat[row.i, panel.vec]
         cmp <- cmp.list[[row.i]]
         to.rep <- cmp(xy.col.df, extreme.vec)
+        repNA <- is.na(to.rep)
+        if(any(repNA)){
+          to.rep[repNA] <- FALSE
+        }
         row.vec <- row(to.rep)[to.rep]
         xy.col.df[to.rep] <- extreme.vec[row.vec]
       }

tests/testthat/test-compiler-errors.R

@@ -85,6 +85,27 @@ test_that("no warning for no duration vars", {
   })
 })
 
+test_that("warn for -Inf but not NA input to scale_log10", {
+  get_viz <- function(value){
+    animint(
+      g=ggplot()+
+        geom_segment(aes(
+          x, y, xend=xend, yend=yend),
+          data=data.table(
+            x=c(value, 0, 1, Inf), xend=10,
+            y=10, yend=100))+
+        scale_x_log10())
+  }
+  viz_neg_Inf <- get_viz(-Inf)
+  expect_warning({
+    animint2dir(viz_neg_Inf, open.browser=FALSE)
+  }, "NaNs produced")
+  viz_NA <- get_viz(NA)
+  expect_no_warning({
+    animint2dir(viz_NA, open.browser=FALSE)
+  })
+})
+
 test_that("warn no key for geom_text with showSelected=duration var", {
   viz.duration <- viz.no.duration
   viz.duration$duration <- list(year=2000)