-
Notifications
You must be signed in to change notification settings - Fork 3
/
architecture.Rmd
113 lines (87 loc) · 3.54 KB
/
architecture.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
# Architecture {#architecture}
## Overall `bdvers`architecture {-}
## Packages: {-}
## `bddwc`
#### Overview Design {#help-needed}
```{r, echo = FALSE, fig.cap="bddwc overview"}
knitr::include_graphics("images/arc/Arc_bddwc_overview.svg")
```
#### R functions dependency & information
```{r pkgnet-R-functions, message=FALSE, warning=FALSE, echo=FALSE}
library(pkgnet)
pkgnet:::silence_logger()
funcReporter2 <- pkgnet::FunctionReporter$new()
funcReporter2$layout_type <- "layout_as_tree"
funcReporter2$set_package(
pkg_name = "bdDwC",
)
funcReporter2$calculate_default_measures()
g <- visNetwork::visHierarchicalLayout(
graph = funcReporter2$graph_viz
, direction = "BU"
, sortMethod = "hubsize"
, edgeMinimization = FALSE
)
g <- visNetwork::visInteraction(graph = g
, dragNodes = TRUE
, dragView = TRUE
, zoomView = FALSE)
g
```
```{r create_tbl, include=FALSE}
library(tools)
library(tidyverse)
tbl <-
tibble::tibble(
FunctionName = funcReporter2$graph_viz$x$nodes$node,
Title = unlist(lapply(funcReporter2$graph_viz$x$nodes$node, function(x) {
rd_gh_path <- paste0("https://raw.githubusercontent.com/bd-R/bdDwC/master/man/",x,".Rd")
rd_file <- parse_Rd(rd_gh_path)
tags <- tools:::RdTags(rd_file)
title_text <- rd_file[[which(tags == "\\title")]][1][[1]][1]
})),
Description = unlist(lapply(funcReporter2$graph_viz$x$nodes$node, function(x) {
rd_gh_path <- paste0("https://raw.githubusercontent.com/bd-R/bdDwC/master/man/",x,".Rd")
rd_file <- parse_Rd(rd_gh_path)
tags <- tools:::RdTags(rd_file)
des_text <- rd_file[[which(tags == "\\description")]][2][[1]][1]
})),
isExported = funcReporter2$graph_viz$x$nodes$isExported,
GithubURL = c('<a href="https://github.com/bd-R/bdDwC/blob/master/R/dictionary.R#L86">Link</a>',
'<a href="https://github.com/bd-R/bdDwC/blob/master/R/darwinizer.R#L23">Link</a>',
'<a href="https://github.com/bd-R/bdDwC/blob/master/R/dictionary.R#L27">Link</a>',
'<a href="https://github.com/bd-R/bdDwC/blob/master/R/dictionary.R#L130">Link</a>',
'<a href="https://github.com/bd-R/bdDwC/blob/master/R/darwinizer.R#L203">Link</a>',
'<a href="https://github.com/bd-R/bdDwC/blob/master/R/darwinizer.R#L152">Link</a>',
'<a href="https://github.com/bd-R/bdDwC/blob/master/R/test.R#L96">Link</a>',
'<a href="https://github.com/bd-R/bdDwC/blob/master/R/test.R#L116">Link</a>',
'<a href="https://github.com/bd-R/bdDwC/blob/master/R/test.R#L39">Link</a>',
'<a href="https://github.com/bd-R/bdDwC/blob/master/R/test.R#L68">Link</a>',
'<a href="https://github.com/bd-R/bdDwC/blob/master/R/test.R#L11">Link</a>'
))
```
```{r use_dt, echo=FALSE}
tbl %>% DT::datatable(escape = FALSE, options = list("pageLength" = 11))
```
## `bddwc.app` {#help-needed}
```{r, echo = FALSE, fig.cap="Shiny App overview"}
knitr::include_graphics("images/arc/Arc_bddwc_app.svg")
```
## `bdchecks`
#### Overview Design
```{r, echo = FALSE, fig.cap="bdchecks overview"}
knitr::include_graphics("images/arc/Arc_bdchecks_overview.svg")
```
## `bdchecks.app`
```{r, echo = FALSE, fig.cap="bdchecks Shiny App"}
knitr::include_graphics("images/arc/Arc_bdchecks_app.svg")
```
## `bdclean`
```{r, echo = FALSE, fig.cap="bdclean Shiny App"}
knitr::include_graphics("images/arc/Arc_bdclean_app.svg")
```
## `bdutilities`
## `bdutilities.app`
## Packages in the making {-}
### `bdvis`
### `bdtools`