Undo custom functions that overcame DiagrammeR bugs. New DiagrammeR s…

…upports cluster graphs.
flyaflya · Aug 9, 2023 · 8728457 · 8728457
1 parent b933dd6
commit 8728457
Show file tree

Hide file tree

Showing 8 changed files with 2 additions and 941 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -22,7 +22,6 @@ export(dagp_plot)
 export(dirichlet)
 export(exponential)
 export(gamma)
-export(generate_dot2)
 export(install_causact_deps)
 export(inverse_gamma)
 export(laplace)
@@ -82,7 +81,6 @@ importFrom(ggplot2,labs)
 importFrom(ggplot2,scale_alpha_continuous)
 importFrom(ggplot2,theme)
 importFrom(ggplot2,theme_minimal)
-importFrom(htmlwidgets,sizingPolicy)
 importFrom(igraph,graph_from_data_frame)
 importFrom(igraph,topo_sort)
 importFrom(lifecycle,badge)
@@ -113,14 +111,12 @@ importFrom(rlang,parse_expr)
 importFrom(rlang,quo_name)
 importFrom(rlang,set_expr)
 importFrom(rstudioapi,hasFun)
-importFrom(rstudioapi,isAvailable)
 importFrom(rstudioapi,restartSession)
 importFrom(stats,na.omit)
 importFrom(stats,quantile)
 importFrom(stats,rbinom)
 importFrom(stringr,str_detect)
 importFrom(stringr,str_replace)
-importFrom(stringr,str_replace_all)
 importFrom(stringr,str_sort)
 importFrom(tidyr,gather)
 importFrom(tidyr,unite)

diff --git a/R/dag_render.R b/R/dag_render.R
@@ -63,11 +63,11 @@ dag_render <- function(graph,
 
  dot_code = graph %>%
  dag_diagrammer(shortLabel = sLabel, wrapWidth = ww) %>%
- generate_dot2()
+ DiagrammeR::generate_dot()
 
  # Generate a `grViz` object
  grVizObject <-
- grViz2(
+ DiagrammeR::grViz(
  diagram = dot_code,
  width = width,
  height = height)