A long posting item template

A placeholder blog post that is long and has quite a lot of images including mermaid graphs

Author

Freddy Mercury

Published

June 10, 2024

Code

# Load libraries ----------------------------------------------------------
library(tidyverse)
#> ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
#> ✔ dplyr     1.1.4     ✔ readr     2.1.5
#> ✔ forcats   1.0.0     ✔ stringr   1.5.1
#> ✔ ggplot2   3.5.1     ✔ tibble    3.2.1
#> ✔ lubridate 1.9.3     ✔ tidyr     1.3.1
#> ✔ purrr     1.0.2     
#> ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
#> ✖ dplyr::filter() masks stats::filter()
#> ✖ dplyr::lag()    masks stats::lag()
#> ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
library(kableExtra)
#> 
#> Attaching package: 'kableExtra'
#> 
#> The following object is masked from 'package:dplyr':
#> 
#>     group_rows
library(ggplot2)
library(ggpubr)
library(here)
#> here() starts at /home/fernando/digipols/web
library(conflicted)


# Load helper functions ---------------------------------------------------
comma <- function(x) format(x, digits = 2, big.mark = ",")

mykable <- function(df, caption = NULL) {
    df %>%
        kbl(caption = caption) %>%
        kable_styling(full_width = F,
                      position = "left",
                      bootstrap_options = c("striped"))
}

Incididunt ut labore

Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum. See for additional discussion of literate programming. BBC.

Testing figures

Code

# set parameters
par(mar = c(4, 4, 0.1, 0.1))
plot(pressure, pch = 19, type = "b")

Figure 1: Air Quality lets add a very long explanatory figure that has complicated clauses etc. And we go into a lot of details in the figure description

Et harum quidem rerum facilis est et expedita distinctio. Nam libero tempore, cum soluta nobis est eligendi optio cumque nihil impedit quo minus id quod maxime placeat facere possimus, omnis voluptas assumenda est, omnis dolor repellendus.

Code

data("ToothGrowth")
df <- ToothGrowth

ggboxplot(df, x = "dose", y = "len",
                color = "dose", palette ="jco",
                add = "jitter", shape = "dose")

Figure 2: Nam libero tempore, cum soluta nobis est eligendi optio cumque nihil impedit quo minus id quod maxime placeat facere possimus, omnis voluptas assumenda est, omnis dolor repellendus

Nam libero tempore, cum soluta nobis est eligendi optio cumque nihil impedit quo minus id quod maxime placeat facere possimus, omnis voluptas assumenda est, omnis dolor repellendus.

Testing tables

Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum. See @knuth84 for additional discussion of literate programming.

Code

mtcars |> 
  head() |> 
  kbl() |> 
  kable_styling(full_width = F,position = "left",
                bootstrap_options = c("striped", "hover"))

Table 1: Add a long table caption here
	mpg	cyl	disp	hp	drat	wt	qsec	vs	am	gear	carb
Mazda RX4	21.0	6	160	110	3.90	2.620	16.46	0	1	4	4
Mazda RX4 Wag	21.0	6	160	110	3.90	2.875	17.02	0	1	4	4
Datsun 710	22.8	4	108	93	3.85	2.320	18.61	1	1	4	1
Hornet 4 Drive	21.4	6	258	110	3.08	3.215	19.44	1	0	3	1
Hornet Sportabout	18.7	8	360	175	3.15	3.440	17.02	0	0	3	2
Valiant	18.1	6	225	105	2.76	3.460	20.22	1	0	3	1

Testing a mermaid flow chart

flowchart LR
  A[qmd] --> B(Knitr)
  A[qmd] --> C(Jupyter)
  B(Knitr) --> D[md]
  C(Jupyter) --> D[md]
  D[md] --> E(pandoc)
  E(pandoc) --> F(HTML)
  E(pandoc) --> G(PDF)
  E(pandoc) --> H(Word)
  E(pandoc) --> I{and more}
  I{and more} --> A[qmd]

Figure 3: How Quarto orchestrates rendering of documents: start with a qmd file, use the Knitr or Jupyter engine to perform the computations and convert it to an md file, then use Pandoc to convert to various file formats including HTML, PDF, and Word.

Add another flowchart

graph TD
classDef k1 fill:#f30;
classDef k2 fill:#FFD70f;
classDef k3 fill:#00800f;
    A[Transform each English URL<br> to point to a different language] --> B(Ping each URL)
    B --> |If a valid webpage is<br>returned| C(Extract content)
    B --> |If an error code is returned|D{{Label as missing 998}}:::k2
    C --> |If content can be<br>extracted|E(Apply language detection)
    C --> |If content cannot<br> be extracted|F{{Label as missing 999}}:::k2
    E --> H[Correct<br>language]
    style H fill:#00800f,stroke:#00800f,color:#fff
    E --> I[Incorrect<br>language]
    style I fill:#f20,stroke:#f20,stroke-width:2px,color:#fff

Figure 4: Another long figure explanation. Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat.

At vero eos et accusamus et iusto odio dignissimos ducimus qui blanditiis praesentium voluptatum deleniti atque corrupti quos dolores et quas molestias excepturi sint occaecati cupiditate non provident, similique sunt in culpa qui officia deserunt mollitia animi, id est laborum et dolorum fuga. Et harum quidem rerum facilis est et expedita distinctio. Nam libero tempore, cum soluta nobis est eligendi optio cumque nihil impedit quo minus id quod maxime placeat facere possimus, omnis voluptas assumenda est, omnis dolor repellendus. Temporibus autem quibusdam et aut officiis debitis aut rerum necessitatibus saepe eveniet ut et voluptates repudiandae sint et molestiae non recusandae. Itaque earum rerum hic tenetur a sapiente delectus, ut aut reiciendis voluptatibus maiores alias consequatur aut perferendis doloribus asperiores repellat

Testing two side by side tables

Code

cars |>
  head() |>
  mykable()

pressure |>
  head() |>
  mykable()

Table 2: Example

(a) Cars
speed	dist
4	2
4	10
7	4
7	22
8	16
9	10

(b) Pressure
temperature	pressure
0	0.0002
20	0.0012
40	0.0060
60	0.0300
80	0.0900
100	0.2700

Example of a long grouped table

Code

library(reactable)
d1 <- read_csv(here("data/definitionInstrumentItem.csv"))
#> Rows: 447 Columns: 4
#> ── Column specification ────────────────────────────────────────────────────────
#> Delimiter: ","
#> chr (3): Item, Definition, Instrument
#> dbl (1): ID
#> 
#> ℹ Use `spec()` to retrieve the full column specification for this data.
#> ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
d1 %>% 
  reactable(groupBy = "Instrument",
            #selection = "multiple", 
            onClick = "select",
            pagination = FALSE, 
            searchable = FALSE,
            striped = TRUE,
            columns = list(Definition = colDef(minWidth =250), ID = colDef(maxWidth = 40))
            )