Pass digits from `prepare_graph`?

library(tidySEM)
library(lavaan)
library(magrittr)

fit <- sem("mpg ~ am", data = mtcars)

get_edges(fit, digits = 1)
#>   from  to arrow   label lhs op rhs  est  se pval      confint est_sig est_std se_std pval_std confint_std est_sig_std
#> 1   am mpg  last  7.2*** mpg  ~  am  7.2 1.7  0.0  [3.9, 10.6]  7.2***     0.6    0.1      0.0  [0.4, 0.8]      0.6***
#> 2  mpg mpg  both 22.5*** mpg ~~ mpg 22.5 5.6  0.0 [11.5, 33.6] 22.5***     0.6    0.1      0.0  [0.4, 0.9]      0.6***
#> 3   am  am  both     0.2  am ~~  am  0.2 0.0 <NA>   [0.2, 0.2]     0.2     1.0    0.0     <NA>  [1.0, 1.0]         1.0

prepare_graph(fit, digits = 5) %>%
  edges()
#>   from  to    label arrow curvature connect_from connect_to lhs op rhs   est   se pval        confint  est_sig est_std se_std pval_std
#> 1   am mpg  7.24***  last        NA        right       left mpg  ~  am  7.24 1.71 0.00  [3.90, 10.59]  7.24***    0.60   0.10     0.00
#> 2  mpg mpg 22.53***  both        NA        right      right mpg ~~ mpg 22.53 5.63 0.00 [11.49, 33.57] 22.53***    0.64   0.12     0.00
#> 3   am  am     0.24  both        NA         left       left  am ~~  am  0.24 0.00 <NA>   [0.24, 0.24]     0.24    1.00   0.00     <NA>
#>    confint_std est_sig_std show
#> 1 [0.40, 0.80]     0.60*** TRUE
#> 2 [0.40, 0.88]     0.64*** TRUE
#> 3 [1.00, 1.00]        1.00 TRUE
cjvanlissa / tidySEM

Pass digits from `prepare_graph`? #17
