Merge pull request #119 from ropensci/revert-117-pedro-ggplot-fix-marker-default

Revert "ggplot: themes: fix marker default shape"

Author: chriddyp

R/ggplotly.R

@@ -6,7 +6,7 @@ default.marker.sizeref <- 1
 marker.size.mult <- 10
 
 marker.defaults <- list(alpha=1,
-                        shape="16",
+                        shape="o",
                         size=marker.size.mult,
                         sizeref=default.marker.sizeref,
                         sizemode="area",

tests/testthat/test-ggplot-theme.R

@@ -38,20 +38,6 @@ test_that("dotted/dashed grid translated as line with alpha=0.1",{
     save_outputs(ggiris, "theme-dashed-grid-lines")
 })
 
-countrypop <- data.frame(country=c("Paraguay", "Peru", "Philippines"),
-                         population=c(7, 31, 101),
-                         edu=c(4.2, 1.75, 1.33),
-                         illn=c(0.38, 1.67, 0.43))
-gg <- ggplot(countrypop) +
-  geom_point(aes(edu, illn, colour=country, size=population))
-
-test_that("marker default shape is a circle", {
-  info <- gg2list(gg)
-  for (i in c(1:3)) {
-    expect_identical(info[[i]]$marker$symbol, "circle")
-  }
-})
-
 test_that("plot panel border is translated correctly", {
   ggiris <- iris.base + theme_grey() # has no panel.border
   info <- gg2list(ggiris)