Basics

Let’s start at the beginning

library(clinify)
library(flextable)
library(officer)

ct <- clintable(mtcars)
print(ct)

In {clinify}, a clintable itself is at it’s root a flextable object with some extra metadata attached to it. A core part of the design philosophy of {clinify} is to build off of {flextable} at its core, extending functionality so that flextable functions are still operable on a clintable object.

The table printed above is the foundation of a clintable object. What we see here is the print method of a clintable being used. Compared to flextable, the primary thing that has is the application of default styling. Organizations generally have specific style preferences for their outputs, such as font and font size, standard conventions for borders, page size and margins, etc. These are configuration in {clinify} using some standard options that will be explained in another vignette. The print() method respects these settings to allow you to interactively explore your table being formatted.

Titles and Footnotes

Let’s expand some features of the table.

ct <- clintable(mtcars) |>
  clin_add_titles(
    list(
      c("Left", "Right"),
      c("Just the middle")
    )
  ) |>
  clin_add_footnotes(
    list(
      c(
        "Here's a footnote.",
        format(Sys.time(), "%H:%M %A, %B %d, %Y")
      )
    )
  )

print(ct)

Here we’ve added some titles and footnotes to the document. The functions clin_add_titles() and clin_add_footnotes() allow you to insert titles and footnotes into the clintable metadata. When the clintable is written to a document or printed, the titles are respected. When you’re printing interactively, the HTML that’s rendered allows you to see the titles and footnotes above and below the table as if you’re viewing an individual page. When writing to a docx file, the titles are placed in the header and the footnotes are placed into the footer.

In this example, by providing a list of character vectors, each element of the list is added as a new line. There are some broad assumptions being made:

• In titles, a single element will align center. In footnotes, the element will align right.
• If two elements are provided, they align left and right.
• If three elements are provided, they align left, right, and center.

Ultimately, the attached tables are converted to flextables. As such, you can create your own flextable and attach it to the header or footer using the ft option in clin_add_titles(). We also have the helper function new_title_footnote() that allows you to supply a list and generate the flextable so you can apply extra formatting as desired.

Pagination and Alternating Pages

Let’s look at a couple more functions.

dat <- mtcars
dat["page"] <- c(
  rep(1, 10),
  rep(2, 10),
  rep(3, 10),
  c(4, 4)
)
dat2 <- rbind(dat, dat)
dat2["groups1"] <- c(
  rep("a", 32),
  rep("b", 32)
)
dat2["groups2"] <- c(
  rep("1", 16),
  rep("2", 16),
  rep("1", 16),
  rep("2", 16)
)

dat2["captions"] <- c(
  rep("Caption 1", 16),
  rep("Caption 2", 16),
  rep("Caption 3", 16),
  rep("Caption 4", 16)
)

# Create a basic table
ct <- clintable(dat2) |>
  clin_page_by("page") |>
  clin_group_by(c("groups1", "groups2")) |>
  clin_alt_pages(
    key_cols = c("mpg", "cyl", "hp"),
    col_groups = list(
      c("disp", "drat", "wt"),
      c("qsec", "vs", "am"),
      c("gear", "carb")
    )
  ) |>
  clin_col_widths(mpg = .2, cyl = .2, disp = .15, vs = .15) |>
  clin_add_titles(
    list(
      c("Left", "Right"),
      c("Just the middle")
    )
  ) |>
  clin_add_footnotes(
    list(
      c(
        "Here's a footnote.",
        format(Sys.time(), "%H:%M %A, %B %d, %Y")
      )
    )
  )

print(ct)

A number of new things have happened here. Let’s go through function by function.

First, we’ve used the function clin_page_by() manually specify how page breaks should be handled. This is a data driven function, so here we’ve specified to use the page variable from the dat2 dataframe. Each time this variable changes, a page break will be inserted. Note that this isn’t used for sorting, just inserting a change break.

Next, we’ve used the function clin_group_by(). This allows us to put by lines above the column headers using data from the input data frame. Similar to clin_page_by() each time this value changes, a new page will start. Just like the table data, these lines above the column headers will always reflect the data from within the variable. You can use as many group variable as you need here.

Next we’ve used clin_alt_pages(). This has been one of the most requested features we’ve seen since we originally developed the package {pharmaRTF}. This feature is designed to handle cases where the number of variables you need to present overflow the width of the page that you have available. The function works with rotating pages, so the same data rows are presented for each overflowing page, necessary, while the columns being presented change. After the first input of the clintable object, you have two parameters:

• key_cols: Columns that should be fixed to each page being presented
• col_groups: The groups of columns that should be presented on each of the alternating pages

If we look at that function specifically:

ct |>
  clin_alt_pages(
    key_cols = c("mpg", "cyl", "hp"),
    col_groups = list(
      c("disp", "drat", "wt"),
      c("qsec", "vs", "am"),
      c("gear", "carb")
    )
  )

In total there will be 3 alternating pages. The columns presented on each page will be:

• mpg, cyl, hp, disp, drat, wt
• mpg, cyl, hp, qsec, vs, am
• mpg, cyl, hp, gear, and carb

To make things easier for the developer, while developing interactively the print method has been updated to print 3 pages as styled HTML into the viewer pane, where you can select the page of choice from a page selector below the table. When printing to a word document, pages are inserted in the proper order. The logic works as follows:

• Identify chunk of rows for a given page. This can be based on the page_by method to manually insert page breaks or you can select maximum rows to print to a single page
• Identify the separate columns necessary for the individual pages
• Write out the chunk of rows for each set of col_groups in order before jumping to the next set of rows.

Column Headers and Widths

From the previous example, another {clinify} function we used was clin_col_width(). The goal of this function is simply to make setting your column widths for a table straightforward. By default, in {flextable} your column widths are based on a unit such as inches or centimeters. In clin_col_width() we allow you to use the proportion of the page that you’d like that column to fill. From the syntax above:

ct |>
  clin_col_widths(mpg = .2, cyl = .2, disp = .15, vs = .15)

In this case, we’re saying that:

• mpg will fill 20% of the page
• cyl will fill 20% of the page
• disp will fill 15% of the page
• vs will fill 15% of the page

The rest of the columns will be spaced evenly based on the remaining space. The space that’s filled is based on default configurations for page width, which are configurable within your session. Furthermore, clin_col_width() adapts to alternating pages. The ratios given to key columns apply for each alternating page, and the proportions applied to the additional col_group variables adapt any remaining space to ensure a page fits the total page width.

One last tedious part of structuring any table is getting the table headers formatted correctly. There are a couple specific features, such as spanning headers, which can also be tricky to get right, especially in a semi-automated way. For this reason, we’ve added the function clin_column_headers() to make this process a bit easier. Let’s use iris as an example of a table to which we want to apply some spanning headers.

clintable(iris) |>
  clin_column_headers(
    Sepal.Length = c("Flowers", "Sepal", "Length"),
    Sepal.Width = c("Flowers", "Sepal", "Width"),
    Petal.Length = c("Petal", "Length"),
    Petal.Width = c("Petal", "Width")
  )

The first parameter of clin_column_headers() will be the clintable object for which you want headers to apply. From there, use the column name to which you’re applying a header. The way this function works is to use a character element for row of headers you want to apply. So for example, if you need three rows of headers, you can use 3 elements for a single column. The elements go to their respective rows.

When using spanning headers, you’re also typically using cell merging so that a single string of text spans over multiple columns. To accomplish this, repeat the text that you want to merge and ensure that those elements are placed in the same row. Consider the example above. For the Sepal variable, we have two spanning headers. One for “flowers”, and one for “Sepal”. These cells will be merged, and the bottom row contains “Length” and “Width” separately.

Another common way you may want to apply headers is by using your variable labels. By default, clintable will respect this. Furthermore, the same spanning can be achieved as well. Let’s consider another example:

iris2 <- iris
attr(iris2$Sepal.Length, "label") <- "Flower||Sepal||Length"
attr(iris2$Sepal.Width, "label") <- "Flower||Sepal||Width"
attr(iris2$Petal.Length, "label") <- "Flower||Petal||Length"
attr(iris2$Petal.Width, "label") <- "Flower||Petal||Width"

clintable(iris2) |>
  align(align = "center", part = "header") |>
  align(align = "center", part = "body")

The underlying logic of this example is exactly the same as using clin_column_headers(), and in fact clin_column_headers() is actually called by default. The difference is that here, to separate levels we use the delimiter ||. Note in this example how the spanning variable have also changed so that Flower stretches over all four Petal and Sepal columns.

Note that after headers are applied, additional styling can be done. In this case, we use the flextable::align() function to change the alignment on both the table body and column headers to center. Note that default styles are applied when the table is written out or printed, so these might potentially override some settings depending on how those functions are applied.

# Create a basic table
ct <- clintable(dat2) |>
  clin_page_by("page") |>
  clin_group_by(c("groups1", "groups2"), caption_by = "captions") |>
  clin_alt_pages(
    key_cols = c("mpg", "cyl", "hp"),
    col_groups = list(
      c("disp", "drat", "wt"),
      c("qsec", "vs", "am"),
      c("gear", "carb")
    )
  ) |>
  clin_column_headers(
    mpg = "Miles/(US) gallon",
    cyl = c("Number of cylinders"),
    disp = c("Displacement\n(cu.in.)"),
    hp = c("Gross horsepower"),
    drat = c("Span multiple pages", "Rear axle ratio"),
    wt = c("Span multiple pages", "Weight (1000 lbs)"),
    qsec = c("Span multiple pages", "1/4 mile time"),
    vs = c("Span multiple pages", "Engine\n(0 = V-shaped, 1 = straight)"),
    am = c("Span multiple pages", "Transmission\n(0 = automatic, 1 = manual)"),
    gear = c("Some Spanner", "Number of forward gears"),
    carb = c("Some Spanner", "Number of carburetors")
  ) |>
  clin_col_widths(mpg = .2, cyl = .2, disp = .15, vs = .15) |>
  clin_add_titles(
    list(
      c("Left", "Right"),
      c("Just the middle")
    )
  ) |>
  clin_add_footnotes(
    list(
      c(
        "Here's a footnote.",
        format(Sys.time(), "%H:%M %A, %B %d, %Y")
      )
    )
  ) |>
  clin_add_footnote_page(
    list(
      c("One very long footnote full of text"),
      c("Two very long footnote full of text"),
      c("Three very long footnote full of text"),
      c("Four very long footnote full of text"),
      c("Five very long footnote full of text")
    )
  )

# Catch the officer::rdocx object itself
doc <- clindoc(ct)

# Write the clindoc
write_clindoc(doc, file = "example_table.docx")

# Alternately just write the clintable directly
write_clindoc(ct, file = "example_table.docx")