make it dot instead

emitanaka · Nov 23, 2023 · f2dd0e3 · f2dd0e3
1 parent 1fd3863
commit f2dd0e3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/plot.R b/R/plot.R
@@ -46,8 +46,8 @@ plot.edbl_design <- function(x, which = c("factors", "levels"),
                         "factors" = gsub("edbl_", "", nodes$role),
                         "levels" = nodes$fct_var)
   nodes$label <- nodes$name
-  class2shape <- c("edbl_unit" = "circle",
-                   "edbl_trt" = ifelse(which=="factors", "diamond", "circle"),
+  class2shape <- c("edbl_unit" = "dot",
+                   "edbl_trt" = ifelse(which=="factors", "diamond", "dot"),
                    "edbl_rcrd" = "database")
   nodes$shape <- class2shape[nodes$role]