plotly
diff --git a/‎NEWS.md
Copy file name to clipboardExpand all lines: NEWS.md
+2Lines changed: 2 additions & 0 deletions b/‎NEWS.md
Copy file name to clipboardExpand all lines: NEWS.md
+2Lines changed: 2 additions & 0 deletions
diff --git a/‎R/layers2traces.R
Copy file name to clipboardExpand all lines: R/layers2traces.R
+1Lines changed: 1 addition & 0 deletions b/‎R/layers2traces.R
Copy file name to clipboardExpand all lines: R/layers2traces.R
+1Lines changed: 1 addition & 0 deletions
diff --git a/‎tests/testthat/test-ggplot-area.R
Copy file name to clipboardExpand all lines: tests/testthat/test-ggplot-area.R
+15Lines changed: 15 additions & 0 deletions b/‎tests/testthat/test-ggplot-area.R
Copy file name to clipboardExpand all lines: tests/testthat/test-ggplot-area.R
+15Lines changed: 15 additions & 0 deletions
@@ -1,6 +1,8 @@
 # 4.10.1.9000
 
+## Bug fixes
 
+* `ggplotly()` no longer errors given a `geom_area()` with 1 or less data points (error introduced by new behavior in ggplot2 v3.4.0). (#2209)
 
 
 # 4.10.1
 
@@ -1061,6 +1061,7 @@ make_error <- function(data, params, xy = "x") {
 # (note this function is also used for geom_smooth)
 ribbon_dat <- function(dat) {
   n <- nrow(dat)
+  if (n == 0) return(dat)
   o <- order(dat[["x"]])
   o2 <- order(dat[["x"]], decreasing = TRUE)
   used <- c("x", "ymin", "ymax", "y")
 
@@ -68,3 +68,18 @@ test_that("traces are ordered correctly in geom_area", {
   }
 })
 
+
+test_that("Can handle an 'empty' geom_area()", {
+  p <- ggplot(data.frame(x = 1, y = 1), aes(x, y)) +
+    geom_area() +
+    geom_point()
+  
+  l <- ggplotly(p)$x
+  
+  expect_length(l$data, 2)
+  
+  expect_false(l$data[[1]]$visible)
+  expect_true(l$data[[2]]$x == 1)
+  expect_true(l$data[[2]]$y == 1)
+  expect_true(l$data[[2]]$mode == "markers")
+})