diff --git a/R/plotly_build.R b/R/plotly_build.R
index a187704234..729aaa4a99 100644
--- a/R/plotly_build.R
+++ b/R/plotly_build.R
@@ -425,7 +425,10 @@ registerFrames <- function(p, frameMapping = NULL) {
   # remove frames from the trace names
   for (i in seq_along(p$x$data)) {
     tr <- p$x$data[[i]]
-    if (length(tr[["name"]]) != 1) next
+    if (length(tr[["name"]]) != 1) {
+      p$x$data[[i]]$frameOrder <- NULL
+      next
+    } 
     nms <- strsplit(as.character(tr[["name"]]), br())[[1]]
     idx <- setdiff(seq_along(nms), tr$frameOrder %||% 0)
     p$x$data[[i]]$name <- if (length(idx)) paste(nms[idx], collapse = br()) else NULL
diff --git a/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/001.json b/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/001.json
index b937c0c91c..c1718cf02b 100644
--- a/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/001.json
+++ b/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/001.json
@@ -413,9 +413,9 @@
         },
         {
           "name": "jquery",
-          "version": "1.11.3",
+          "version": "3.5.1",
           "src": {
-            "href": "jquery-1.11.3"
+            "href": "jquery-3.5.1"
           },
           "meta": null,
           "script": "jquery.min.js",
@@ -426,9 +426,9 @@
         },
         {
           "name": "crosstalk",
-          "version": "1.1.0.1",
+          "version": "1.1.1",
           "src": {
-            "href": "crosstalk-1.1.0.1"
+            "href": "crosstalk-1.1.1"
           },
           "meta": null,
           "script": "js/crosstalk.min.js",
diff --git a/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/001.png b/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/001.png
index c5d5b32e60..e28ed87cee 100644
Binary files a/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/001.png and b/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/001.png differ
diff --git a/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/002.json b/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/002.json
index 5c71230963..3f901a1cb0 100644
--- a/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/002.json
+++ b/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/002.json
@@ -430,9 +430,9 @@
         },
         {
           "name": "jquery",
-          "version": "1.11.3",
+          "version": "3.5.1",
           "src": {
-            "href": "jquery-1.11.3"
+            "href": "jquery-3.5.1"
           },
           "meta": null,
           "script": "jquery.min.js",
@@ -443,9 +443,9 @@
         },
         {
           "name": "crosstalk",
-          "version": "1.1.0.1",
+          "version": "1.1.1",
           "src": {
-            "href": "crosstalk-1.1.0.1"
+            "href": "crosstalk-1.1.1"
           },
           "meta": null,
           "script": "js/crosstalk.min.js",
diff --git a/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/002.png b/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/002.png
index 0acf076b4e..86338af81a 100644
Binary files a/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/002.png and b/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/002.png differ
diff --git a/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/003.json b/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/003.json
index f6c2f943ea..8006a4efa8 100644
--- a/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/003.json
+++ b/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/003.json
@@ -434,9 +434,9 @@
         },
         {
           "name": "jquery",
-          "version": "1.11.3",
+          "version": "3.5.1",
           "src": {
-            "href": "jquery-1.11.3"
+            "href": "jquery-3.5.1"
           },
           "meta": null,
           "script": "jquery.min.js",
@@ -447,9 +447,9 @@
         },
         {
           "name": "crosstalk",
-          "version": "1.1.0.1",
+          "version": "1.1.1",
           "src": {
-            "href": "crosstalk-1.1.0.1"
+            "href": "crosstalk-1.1.1"
           },
           "meta": null,
           "script": "js/crosstalk.min.js",
diff --git a/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/003.png b/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/003.png
index c9cfbf44fe..4d87c65d39 100644
Binary files a/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/003.png and b/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/003.png differ
diff --git a/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/004.json b/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/004.json
index 6f713e626c..3f05af7279 100644
--- a/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/004.json
+++ b/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/004.json
@@ -435,9 +435,9 @@
         },
         {
           "name": "jquery",
-          "version": "1.11.3",
+          "version": "3.5.1",
           "src": {
-            "href": "jquery-1.11.3"
+            "href": "jquery-3.5.1"
           },
           "meta": null,
           "script": "jquery.min.js",
@@ -448,9 +448,9 @@
         },
         {
           "name": "crosstalk",
-          "version": "1.1.0.1",
+          "version": "1.1.1",
           "src": {
-            "href": "crosstalk-1.1.0.1"
+            "href": "crosstalk-1.1.1"
           },
           "meta": null,
           "script": "js/crosstalk.min.js",
diff --git a/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/004.png b/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/004.png
index c5d5b32e60..e28ed87cee 100644
Binary files a/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/004.png and b/inst/examples/shiny/event_data/tests/shinytest/mytest-expected/004.png differ
diff --git a/tests/testthat/test-animate-highlight.R b/tests/testthat/test-animate-highlight.R
index 1e3b85eda5..0f5227b055 100644
--- a/tests/testthat/test-animate-highlight.R
+++ b/tests/testthat/test-animate-highlight.R
@@ -359,8 +359,8 @@ test_that("simple animation targeting works", {
 
 test_that("animation frames are boxed up correctly", {
   dallas <- subset(txhousing, city == "Dallas" & month == 1)
-  p <- ggplot(dallas) +
-    geom_point(aes(x = volume, y = sales, frame = year))
+  p <- ggplot(dallas, aes(x = volume, y = sales, frame = year)) +
+    geom_point()
   l <- plotly_build(p)$x
   
   for (i in seq_along(l$frames)) {
diff --git a/tests/testthat/test-cookbook-axes.R b/tests/testthat/test-cookbook-axes.R
index 77dea29d28..a06c201c3b 100644
--- a/tests/testthat/test-cookbook-axes.R
+++ b/tests/testthat/test-cookbook-axes.R
@@ -33,12 +33,14 @@ test_that("factor levels determine tick order", {
 ## range are dropped, resulting in a misleading box plot.
 bp.ylim.hide <- bp + ylim(5, 7.5)
 test_that("ylim hides points", {
-  info <- expect_traces(bp.ylim.hide, 1, "ylim.hide")
+  info <- expect_warning(expect_traces(bp.ylim.hide, 1, "ylim.hide"), 
+                         regexp = "non-finite values")
 })
 
 bp.scale.hide <- bp + scale_y_continuous(limits = c(5, 7.5))
 test_that("scale_y(limits) hides points", {
-  info <- expect_traces(bp.scale.hide, 1, "scale.hide")
+  info <- expect_warning(expect_traces(bp.scale.hide, 1, "scale.hide"), 
+                         regexp = "non-finite values")
   expect_equivalent(range(info$layout$yaxis$tickvals), c(5, 7.5))
   y <- unlist(lapply(info$data, "[[", "y"))
   expect_true(all(5 <= y & y <= 7.5, na.rm = TRUE))
diff --git a/tests/testthat/test-ggplot-date.R b/tests/testthat/test-ggplot-date.R
index 84a95c1991..09561b4f7c 100644
--- a/tests/testthat/test-ggplot-date.R
+++ b/tests/testthat/test-ggplot-date.R
@@ -33,5 +33,7 @@ test_that("scale_x_date and irregular time series work", {
   )
   df <- df[order(df$date), ]
   dt <- qplot(date, price, data = df, geom = "line") + theme(aspect.ratio = 1/4)
-  info <- expect_doppelganger_built(dt, "date-irregular-time-series")
+  
+  info <- expect_warning(expect_doppelganger_built(dt, "date-irregular-time-series"), 
+                         regexp = "Aspect ratios aren't yet implemented")
 })
diff --git a/tests/testthat/test-ggplot-dynamicTicks.R b/tests/testthat/test-ggplot-dynamicTicks.R
index c1bf910915..2181d2d8bd 100644
--- a/tests/testthat/test-ggplot-dynamicTicks.R
+++ b/tests/testthat/test-ggplot-dynamicTicks.R
@@ -33,7 +33,9 @@ test_that("Categorical axis reflects custom scale mapping", {
   g <- ggplot(mpg, aes(class, color = class)) + 
     geom_bar() +
     scale_x_discrete(limits = lims)
-  p <- ggplotly(g, dynamicTicks = "x")
+  
+  expect_warning(p <- ggplotly(g, dynamicTicks = "x"), 
+                 regexp = "non-finite values")
   
   axisActual <- with(
     p$x$layout$xaxis, list(type, tickmode, categoryorder, categoryarray)
@@ -48,7 +50,8 @@ test_that("Categorical axis reflects custom scale mapping", {
   g <- ggplot(mpg, aes(class, color = class)) + 
     geom_bar() +
     scale_x_discrete(limits = lims, labels = labs)
-  p <- ggplotly(g, dynamicTicks = "x")
+  expect_warning(p <- ggplotly(g, dynamicTicks = "x"), 
+                 regexp = "non-finite values")
   
   axisActual <- with(
     p$x$layout$xaxis, list(type, tickmode, categoryorder, categoryarray)
@@ -103,4 +106,3 @@ test_that("Inverse maps colorbar data", {
   expect_true(l$data[[2]]$y %in% unique(mpg$manufacturer))
   
 })
-
diff --git a/tests/testthat/test-ggplot-ticks.R b/tests/testthat/test-ggplot-ticks.R
index 99a5ef5672..b0849d7f7a 100644
--- a/tests/testthat/test-ggplot-ticks.R
+++ b/tests/testthat/test-ggplot-ticks.R
@@ -56,7 +56,8 @@ test_that('boxes with coord_flip()+facet_grid(scales="free")', {
 
 test_that("limits can hide data", {
   boxes.limits <- boxes + scale_x_discrete(limits = c("trt1", "ctrl"))
-  info <- expect_traces(boxes.limits, 1, "limits-hide")
+  info <- expect_warning(expect_traces(boxes.limits, 1, "limits-hide"), 
+                         regexp = "missing values")
   expect_equivalent(info$layout$xaxis$ticktext, c("trt1", "ctrl"))
 })
 
diff --git a/tests/testthat/test-plotly-color.R b/tests/testthat/test-plotly-color.R
index 37ad06c37f..5bb38b66b1 100644
--- a/tests/testthat/test-plotly-color.R
+++ b/tests/testthat/test-plotly-color.R
@@ -12,7 +12,9 @@ test_that("plot_ly() handles a simple scatterplot", {
 })
 
 test_that("Mapping a factor variable to color works", {
-  p <- plot_ly(palmerpenguins::penguins, x = ~bill_length_mm, y = ~flipper_length_mm, color = ~species)
+  d <- palmerpenguins::penguins %>% 
+    filter(!is.na(bill_length_mm))
+  p <- plot_ly(d, x = ~bill_length_mm, y = ~flipper_length_mm, color = ~species)
   l <- expect_traces(p, 3, "scatterplot-color-factor")
   markers <- lapply(l$data, "[[", "marker")
   cols <- unlist(lapply(markers, "[[", "color"))
@@ -20,11 +22,13 @@ test_that("Mapping a factor variable to color works", {
 })
 
 test_that("Custom RColorBrewer pallette works for factor variable", {
+  d <- palmerpenguins::penguins %>% 
+    filter(!is.na(bill_length_mm))
   cols <- RColorBrewer::brewer.pal(9, "Set1")
   # convert hex to rgba spec for comparison's sake
   colsToCompare <- toRGB(cols)
   # specifying a pallette set should "span the gamut" 
-  p <- plot_ly(palmerpenguins::penguins, x = ~bill_length_mm, y = ~flipper_length_mm, color = ~species, 
+  p <- plot_ly(d, x = ~bill_length_mm, y = ~flipper_length_mm, color = ~species, 
                colors = "Set1")
   l <- expect_traces(p, 3, "scatterplot-color-factor-custom")
   markers <- lapply(l$data, "[[", "marker")
@@ -32,7 +36,7 @@ test_that("Custom RColorBrewer pallette works for factor variable", {
   idx <- if (packageVersion("scales") > '1.0.0') c(1, 2, 3) else c(1, 5, 9)
   expect_identical(sort(colsToCompare[idx]), sort(colz))
   # providing vector of RGB codes should also work
-  p <- plot_ly(palmerpenguins::penguins, x = ~bill_length_mm, y = ~flipper_length_mm, color = ~species, 
+  p <- plot_ly(d, x = ~bill_length_mm, y = ~flipper_length_mm, color = ~species, 
                colors = cols[1:3])
   l <- expect_traces(p, 3, "scatterplot-color-factor-custom2")
   markers <- lapply(l$data, "[[", "marker")
@@ -51,7 +55,9 @@ test_that("Passing hex codes to colors argument works", {
 })
 
 test_that("Mapping a numeric variable to color works", {
-  p <- plot_ly(palmerpenguins::penguins, x = ~bill_length_mm, y = ~flipper_length_mm, color = ~bill_depth_mm)
+  d <- palmerpenguins::penguins %>% 
+    filter(!is.na(bill_length_mm))
+  p <- plot_ly(d, x = ~bill_length_mm, y = ~flipper_length_mm, color = ~bill_depth_mm)
   # one trace is for the colorbar
   l <- expect_traces(p, 2, "scatterplot-color-numeric")
   idx <- vapply(l$data, is.colorbar, logical(1))
@@ -76,14 +82,18 @@ test_that("color/stroke mapping with box translates correctly", {
 })
 
 test_that("Custom RColorBrewer pallette works for numeric variable", {
-  p <- plot_ly(palmerpenguins::penguins, x = ~bill_length_mm, y = ~flipper_length_mm, 
+  d <- palmerpenguins::penguins %>% 
+    filter(!is.na(bill_length_mm))
+  p <- plot_ly(d, x = ~bill_length_mm, y = ~flipper_length_mm, 
                color = ~bill_depth_mm, colors = "Greens")
   # one trace is for the colorbar
   l <- expect_traces(p, 2, "scatterplot-color-numeric-custom")
 })
 
 test_that("axis titles get attached to scene object for 3D plots", {
-  p <- plot_ly(palmerpenguins::penguins, x = ~bill_length_mm, y = ~bill_depth_mm, z = ~flipper_length_mm)
+  d <- palmerpenguins::penguins %>% 
+    filter(!is.na(bill_length_mm))
+  p <- plot_ly(d, x = ~bill_length_mm, y = ~bill_depth_mm, z = ~flipper_length_mm)
   l <- expect_traces(p, 1, "scatterplot-scatter3d-axes")
   expect_identical(l$data[[1]]$type, "scatter3d")
   scene <- l$layout$scene
diff --git a/tests/testthat/test-plotly-colorbar.R b/tests/testthat/test-plotly-colorbar.R
index 07be2cd903..a2ed828d76 100644
--- a/tests/testthat/test-plotly-colorbar.R
+++ b/tests/testthat/test-plotly-colorbar.R
@@ -121,12 +121,12 @@ test_that("positioning with multiple colorbars and legends", {
   
   s <- subplot(
     plot_ly(z = ~volcano),
-    plot_ly(x = 1:10, y = 1:10, color = factor(1:10))
+    plot_ly(x = 1:8, y = 1:8, color = factor(1:8))
   )
   
   b <- plotly_build(s)
   d <- b$x$data
-  expect_length(d, 11)
+  expect_length(d, 9)
   
   expect_true(d[[1]]$colorbar$len == 0.5)
   expect_true(d[[1]]$colorbar$lenmode == "fraction")
diff --git a/tests/testthat/test-plotly-linetype.R b/tests/testthat/test-plotly-linetype.R
index 8796598a79..a8e02ba92c 100644
--- a/tests/testthat/test-plotly-linetype.R
+++ b/tests/testthat/test-plotly-linetype.R
@@ -57,8 +57,11 @@ test_that("Trace ordering matches factor levels", {
 })
 
 test_that("Trace ordering is alphabetical", {
-  lvls <- sort(unique(mpg$class))
-  p <- plot_ly(mpg, x = ~cty, y = ~hwy, linetype = ~class) %>% add_lines()
+  #keep only 6 categories (to avoid warning)
+  mpg2 <- mpg %>% dplyr::filter(class %in% c("compact", "midsize", "suv", "2seater", "pickup", "subcompact"))
+  
+  lvls <- sort(unique(mpg2$class))
+  p <- plot_ly(mpg2, x = ~cty, y = ~hwy, linetype = ~class) %>% add_lines()
   l <- expect_traces(p, length(lvls), "alphabetical")
   expect_equivalent(sapply(l$data, "[[", "name"), lvls)
 })
diff --git a/tests/testthat/test-plotly-name.R b/tests/testthat/test-plotly-name.R
index aa687903a9..460c55fad3 100644
--- a/tests/testthat/test-plotly-name.R
+++ b/tests/testthat/test-plotly-name.R
@@ -48,3 +48,34 @@ test_that("doesn't break old behavior", {
   expect_equal(l$x$data[[1]]$name, "Fair cut")
   expect_equal(l$x$data[[2]]$name, "Ideal cut")
 })
+
+
+test_that("adding trace name with frame does not throw frameOrder warning", {
+  
+  dt <- data.frame(source = rep(c(rep("TEL", 2) , rep("WEB", 2), rep("OTH",2)),2), 
+                   period = rep(c("AM", "PM"), 6), 
+                   y_val = runif(12), 
+                   year = c(rep(2020,6), rep(2021,6)))
+  
+  
+  p1 <- plot_ly()
+  
+  for (yr in unique(dt$year)){
+    
+    which_lines <- which(dt$year==yr)
+    
+    p1 <- add_trace(p1, 
+                    x = dt$period[which_lines], 
+                    y = dt$y_val[which_lines], 
+                    frame = dt$source[which_lines],
+                    type = "scatter", mode = "lines+markers", 
+                    name = yr)
+  }
+  
+  expect_warning(l <- plotly_build(p1), NA) 
+  
+  expect_equal(l$x$data[[1]]$name, 2020)
+  expect_equal(l$x$data[[2]]$name, 2021)
+  
+  
+})
diff --git a/tests/testthat/test-plotly-sf.R b/tests/testthat/test-plotly-sf.R
index 8732382ef7..9640f497e9 100644
--- a/tests/testthat/test-plotly-sf.R
+++ b/tests/testthat/test-plotly-sf.R
@@ -34,7 +34,8 @@ test_that("plot_geo() lat/lon range is set", {
   skip_if_not_installed("sf")
   
   nc <- sf::st_read(system.file("shape/nc.shp", package = "sf"), quiet = TRUE)
-  p <- plotly_build(plot_geo(nc))
+  expect_warning(p <- plotly_build(plot_geo(nc)), 
+                 regexp = "Attempting transformation to the target coordinate system")
   expect_equal(
     p$x$layout$geo$lataxis$range, 
     c(33.85492, 36.61673), 
@@ -86,7 +87,8 @@ test_that("Can plot sfc with a missing crs", {
   skip_if_not_installed("sf")
   
   storms <- sf::st_read(system.file("shape/storms_xyz.shp", package = "sf"), quiet = TRUE)
-  p <- plotly_build(plot_geo(storms, name = "Storms"))
+  expect_warning(p <- plotly_build(plot_geo(storms, name = "Storms")), 
+                 regexp = "Missing coordinate reference system")
   expect_true(p$x$data[[1]]$type == "scattergeo")
   expect_true(p$x$data[[1]]$mode == "lines")
 })
diff --git a/tests/testthat/test-plotly-subplot.R b/tests/testthat/test-plotly-subplot.R
index 7c8e5bdb4e..dfb2ddea19 100644
--- a/tests/testthat/test-plotly-subplot.R
+++ b/tests/testthat/test-plotly-subplot.R
@@ -141,9 +141,9 @@ test_that("ggplotly understands ggmatrix", {
 })
 
 test_that("annotation paper repositioning", {
-  p1 <- plot_ly() %>%
+  p1 <- plot_ly(type = "scatter") %>%
     add_annotations(text = "foo", x = 0.5, y = 0.5, xref = "paper", yref = "paper")
-  p2 <- plot_ly(mtcars) %>%
+  p2 <- plot_ly(mtcars, type = "scatter") %>%
     add_annotations(text = "bar", x = 0.5, y = 0.5, xref = "paper", yref = "paper")
   
   s <- subplot(p1, p2, margin = 0)
@@ -164,7 +164,7 @@ test_that("annotation paper repositioning", {
 
 test_that("shape paper repositioning", {
   
-  p1 <- plot_ly(mtcars) %>%
+  p1 <- plot_ly(mtcars, type = "scatter") %>%
     layout(
       shapes = ~list(
         type = "rect",
@@ -177,7 +177,7 @@ test_that("shape paper repositioning", {
         fillcolor = "red"
       )
     )
-  p2 <- plot_ly(mtcars) %>%
+  p2 <- plot_ly(mtcars, type = "scatter") %>%
     layout(
       shapes = ~list(
         type = "line",
@@ -211,7 +211,7 @@ test_that("shape paper repositioning", {
   expect_equal(yref, rep("paper", 2))
   
   # now with a fixed height/width
-  p1 <- plot_ly() %>%
+  p1 <- plot_ly(type = "scatter") %>%
     layout(
       shapes = list(
         type = "rect",
@@ -226,7 +226,7 @@ test_that("shape paper repositioning", {
         fillcolor = "red"
       )
     )
-  p2 <- plot_ly() %>%
+  p2 <- plot_ly(type = "scatter") %>%
     layout(
       shapes = list(
         type = "rect",
@@ -302,9 +302,9 @@ test_that("image paper repositioning", {
 
 test_that("annotation xref/yref bumping", {
   
-  p1 <- plot_ly(mtcars) %>%
+  p1 <- plot_ly(mtcars, type = "scatter") %>%
     add_annotations(text = ~cyl, x = ~wt, y = ~mpg)
-  p2 <- plot_ly(mtcars) %>%
+  p2 <- plot_ly(mtcars, type = "scatter") %>%
     add_annotations(text = ~am, x = ~wt, y = ~mpg)
   s <- subplot(p1, p2)
   ann <- expect_doppelganger_built(s, "subplot-bump-axis-annotation")$layout$annotations
@@ -328,11 +328,11 @@ test_that("annotation xref/yref bumping", {
   
   # now, with more traces than annotations
   # https://github.com/ropensci/plotly/issues/1444
-  p1 <- plot_ly() %>%
+  p1 <- plot_ly(type = "scatter") %>%
     add_markers(x = 1, y = 1) %>%
     add_markers(x = 2, y = 2) %>%
     add_annotations(text = "foo", x = 1.5, y = 1.5)
-  p2 <- plot_ly() %>%
+  p2 <- plot_ly(type = "scatter") %>%
     add_markers(x = 1, y = 1) %>%
     add_markers(x = 2, y = 2) %>%
     add_annotations(text = "bar", x = 1.5, y = 1.5)
@@ -359,7 +359,7 @@ test_that("annotation xref/yref bumping", {
 
 test_that("shape xref/yref bumping", {
   
-  p1 <- plot_ly(mtcars) %>%
+  p1 <- plot_ly(mtcars, type = "scatter") %>%
     layout(
       shapes = ~list(
         type = "rect",
@@ -370,7 +370,7 @@ test_that("shape xref/yref bumping", {
         fillcolor = "red"
       )
     )
-  p2 <- plot_ly(mtcars) %>%
+  p2 <- plot_ly(mtcars, type = "scatter") %>%
     layout(
       shapes = ~list(
         type = "line",
@@ -496,20 +496,24 @@ test_that("May specify legendgroup with through a vector of values", {
   )
   
   base <- plot_ly(
-    df, 
+    df,
     marker = m, 
     color = ~factor(Name), 
     legendgroup = ~factor(Name)
   ) 
   
-  s <- subplot(
-    add_histogram(base, x = ~x, showlegend = FALSE),
-    plotly_empty(), 
-    add_markers(base, x = ~x, y = ~y),
-    add_histogram(base, y = ~y, showlegend = FALSE),
-    nrows = 2, heights = c(0.2, 0.8), widths = c(0.8, 0.2), 
-    shareX = TRUE, shareY = TRUE, titleX = FALSE, titleY = FALSE
-  ) %>% layout(barmode = "stack")
+  expect_warning(
+    s <- subplot(
+      add_histogram(base, x = ~x, showlegend = FALSE),
+      plotly_empty(), 
+      add_markers(base, x = ~x, y = ~y),
+      add_histogram(base, y = ~y, showlegend = FALSE),
+      nrows = 2, heights = c(0.2, 0.8), widths = c(0.8, 0.2), 
+      shareX = TRUE, shareY = TRUE, titleX = FALSE, titleY = FALSE) %>% 
+        layout(barmode = "stack"), 
+    regexp = "No trace type|No scatter mode"
+  )
+  
   
   # one trace for the empty plot
   l <- expect_traces(s, 10, "subplot-legendgroup")
diff --git a/tests/testthat/test-plotly-symbol.R b/tests/testthat/test-plotly-symbol.R
index b13b89eb5a..3944aac149 100644
--- a/tests/testthat/test-plotly-symbol.R
+++ b/tests/testthat/test-plotly-symbol.R
@@ -8,7 +8,9 @@ expect_traces <- function(p, n.traces, name){
 }
 
 test_that("Mapping a variable to symbol works", {
-  p <- plot_ly(palmerpenguins::penguins, x = ~bill_length_mm, 
+  d <- palmerpenguins::penguins %>% 
+    filter(!is.na(bill_length_mm))
+  p <- plot_ly(d, x = ~bill_length_mm, 
                y = ~bill_depth_mm, symbol = ~species)
   l <- expect_traces(p, 3, "scatterplot-symbol")
   markers <- lapply(l$data, "[[", "marker")
@@ -17,7 +19,9 @@ test_that("Mapping a variable to symbol works", {
 })
 
 test_that("Can set the symbol range.", {
-  p <- plot_ly(palmerpenguins::penguins, x = ~bill_length_mm, 
+  d <- palmerpenguins::penguins %>% 
+    filter(!is.na(bill_length_mm))
+  p <- plot_ly(d, x = ~bill_length_mm, 
                y = ~bill_depth_mm, symbol = ~species, symbols = 1:3)
   l <- expect_traces(p, 3, "scatterplot-symbol2")
   markers <- lapply(l$data, "[[", "marker")
@@ -27,11 +31,12 @@ test_that("Can set the symbol range.", {
 
 
 test_that("Setting a constant symbol works", {
-  p <- plot_ly(palmerpenguins::penguins, x = 1:25, y = 1:25, symbol = I(0:24))
+  #keep only 6 observations (to avoid warning of max 6 symbol)
+  p <- plot_ly(palmerpenguins::penguins[1:6], x = 1:6, y = 1:6, symbol = I(0:5))
   l <- expect_traces(p, 1, "pch")
   markers <- lapply(l$data, "[[", "marker")
   syms <- unlist(lapply(markers, "[[", "symbol"))
-  expect_identical(syms, plotly:::pch2symbol(0:24))
+  expect_identical(syms, plotly:::pch2symbol(0:5))
 })
 
 test_that("Warn about invalid symbol codes", {
@@ -64,8 +69,11 @@ test_that("Trace ordering matches factor levels", {
 })
 
 test_that("Trace ordering is alphabetical", {
-  lvls <- sort(unique(mpg$class))
-  p <- plot_ly(mpg, x = ~cty, y = ~hwy, symbol = ~class)
+  #keep only 6 categories (to avoid warning)
+  mpg2 <- mpg %>% dplyr::filter(class %in% c("compact", "midsize", "suv", "2seater", "pickup", "subcompact"))
+  
+  lvls <- sort(unique(mpg2$class))
+  p <- plot_ly(mpg2, x = ~cty, y = ~hwy, symbol = ~class)
   l <- expect_traces(p, length(lvls), "alphabetical")
   expect_equivalent(sapply(l$data, "[[", "name"), lvls)
 })
diff --git a/tests/testthat/test-plotly.R b/tests/testthat/test-plotly.R
index 98d6bf7207..f2f4d8cbab 100644
--- a/tests/testthat/test-plotly.R
+++ b/tests/testthat/test-plotly.R
@@ -55,7 +55,9 @@ test_that("Variable mappings return same result regardless of where they appear"
 
 
 test_that("plot_ly() handles a simple scatterplot", {
-  p <- plot_ly(data = palmerpenguins::penguins, 
+  d <- palmerpenguins::penguins %>% 
+    filter(!is.na(bill_length_mm))
+  p <- plot_ly(data = d, 
                x = ~bill_length_mm, y = ~bill_depth_mm, mode = "markers")
   l <- expect_traces(p, 1, "scatterplot")
   expect_equivalent(l$data[[1]]$mode, "markers")
@@ -141,7 +143,8 @@ test_that("Character strings correctly mapped to a positional axis", {
   letters <- LETTERS[as.numeric(sort(as.character(1:26)))]
   p <- plot_ly(x = letters, y = seq_along(letters)) %>% 
     add_bars(color = rep(c("a1", "a2"), length.out = 26))
-  l <- expect_traces(p, 2, "character-axis")
+  l <- expect_warning(expect_traces(p, 2, "character-axis"), 
+                      regexp = "minimal value for n is 3")
   expect_equivalent(l$layout$xaxis$type, "category")
   expect_equivalent(l$layout$xaxis$categoryorder, "array")
   expect_equivalent(l$layout$xaxis$categoryarray, LETTERS)
@@ -323,7 +326,10 @@ test_that("Line breaks are properly translated (R -> HTML)", {
   # create target labels
   suffix <- "\n\n(third line)\n(fourth line)"
   
-  target_labels <- palmerpenguins::penguins$species %>%
+  d <- palmerpenguins::penguins %>% 
+    filter(!is.na(bill_length_mm))
+  
+  target_labels <- d$species %>%
     unique() %>%
     sort() %>%
     paste0(suffix) %>%
@@ -333,7 +339,6 @@ test_that("Line breaks are properly translated (R -> HTML)", {
          fixed = TRUE)
   
   # test factor column
-  d <- palmerpenguins::penguins
   levels(d$species) <- paste0(levels(d$species), suffix)
   p1 <- d %>% plot_ly(x = ~bill_length_mm,
                       y = ~species)