Skip to content

Commit bbf723e

Browse files
committed
explain first quarto plot
1 parent a324393 commit bbf723e

File tree

3 files changed

+31
-3
lines changed

3 files changed

+31
-3
lines changed

DESCRIPTION

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
Package: githist
22
Title: Code analyses traced along the 'git' history of a package
3-
Version: 0.1.0.018
3+
Version: 0.1.0.019
44
Authors@R:
55
person("Mark", "Padgham", , "mark.padgham@email.com", role = c("aut", "cre"),
66
comment = c(ORCID = "0000-0003-2172-5265"))

codemeta.json

+1-1
Original file line numberDiff line numberDiff line change
@@ -8,7 +8,7 @@
88
"codeRepository": "https://github.com/ropensci-review-tools/githist",
99
"issueTracker": "https://github.com/ropensci-review-tools/githist/issues",
1010
"license": "https://spdx.org/licenses/GPL-3.0",
11-
"version": "0.1.0.018",
11+
"version": "0.1.0.019",
1212
"programmingLanguage": {
1313
"@type": "ComputerLanguage",
1414
"name": "R",

inst/extdata/quarto/fn-stats.qmd

+29-1
Original file line numberDiff line numberDiff line change
@@ -14,7 +14,22 @@ library (githist)
1414
library (lubridate)
1515
```
1616
This page includes several graphs providing insight into the historical
17-
development of ...
17+
development of the package.
18+
19+
### Data on individual functions
20+
21+
This plot shows time series for the development of the following measures for each function in the package:
22+
23+
- `doclines` = Numbers of lines of documentation per function.
24+
- `npars` = Numbers of parameters per function.
25+
- `loc` = Numbers of lines of code per function.
26+
- `ext_calls` = Numbers calls made to external functions.
27+
28+
The selector below allows any one of these variables to be selected and
29+
plotted. Results in each case are displayed as both median and median values
30+
per function, along with the sum over all functions within the package. These
31+
"sum" values are arbitrarily rescaled for visual display on similar scales to
32+
the other measures.
1833

1934
```{r load-data}
2035
dat <- readRDS ("results.Rds")
@@ -27,6 +42,7 @@ index <- which (stats$measure == "sum")
2742
stats$npars [index] <- stats$npars [index] / 100
2843
stats$loc [index] <- stats$loc [index] / 100
2944
stats$ext_calls [index] <- stats$ext_calls [index] / 20
45+
stats$doclines [index] <- stats$doclines [index] / 20
3046
3147
stats <- tidyr::pivot_longer (stats, c ("doclines", "npars", "loc", "ext_calls"))
3248
```
@@ -73,6 +89,18 @@ Plot.plot({
7389
fontSize: 18
7490
}
7591
),
92+
Plot.text(
93+
statsFiltered,
94+
Plot.selectLast({
95+
x: "date",
96+
y: "value",
97+
z: "measure",
98+
text: "measure",
99+
textAnchor: "start",
100+
dx: 3,
101+
fontSize: 18
102+
})
103+
),
76104
Plot.axisX(
77105
{
78106
fontSize: 14,

0 commit comments

Comments
 (0)