Simplifying Clinical Data Dashboards with {teal} and {pharmaverseadam}

[This article was first published on Tag: r - Appsilon | Enterprise R Shiny Dashboards, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Every developer must solve two difficult problems when creating a Shiny application (in fact, any application) from the ground up: software architecture and data design. In the world of clinical data analysis, however, much development has been aimed at providing a jump-start approach to creating R/Shiny applications that would take away most of the pain caused by these two problems.

This blog should help you get an idea of how easy it is to get started with the pharmaverse ecosystem. We will create an interactive clinical data dashboard using {teal} and will use {pharmaverseadam} as the data source.

First, you would need to install the two packages. It is recommended to use {pak} to take advantage of parallel downloads and builds (note that you can use it together with {renv} for locking dependencies).

pak::pkg_install(c("teal", "pharmaverseadam"))

Building a Simple Teal App

Next, we would create a simple app – basically following the official teal guide, but we will use datasets from the {pharmaverseadam} package.

# Step 1: import packages
library(teal)
library(pharmaverseadam)

# Step 2: create a teal data object
data <- cdisc_data(
  ADAE = pharmaverseadam::adae,
  ADSL = pharmaverseadam::adsl
)

# Step 3: initialize teal app
app <- init(
  data = data,
  modules = example_module()
)

# Step 4: run shiny app
shinyApp(app$ui, app$server)

Let’s Take a Closer Look at Each Step:

  • In step 1, we import libraries to use functions and datasets exported by those.
  • In step 2, we create a {teal} data object that can be used in a {teal} app. There are a couple of subtle details here: instead of the default teal_data() function, we use a special wrapper around it, designed specifically for clinical trial data – cdisc_data(). Its advantage is that it will automatically generate join_keys() for the datasets that we pass in. Please note, that the dataset names should be all caps. The resulting data object is an s4 class instance, and we can verify that the output is correct by checking data names and join_keys slots:
r$> data@datanames
[1] "ADAE" "ADSL"

r$> data@join_keys
A join_keys object containing foreign keys between 2 datasets:
ADSL: [STUDYID, USUBJID]
  <-- ADAE: [STUDYID, USUBJID]
ADAE: [STUDYID, USUBJID, ASTDTM, AETERM, AESEQ]
  --> ADSL: [STUDYID, USUBJID]
  • In step 3, we initialize the {teal} app by passing it a data object and adding an example module—it’s not much, but it will let us verify that the app works. The output app object is just a list with UI and server functions.
  • Finally step 4 should be familiar to all Shiny users – we need to pass the UI and server function from the app object generated at step 3.

When we run the app, this is what we will see in the web browser:

As you can see, with just a few lines of code, we were able to create a working app with some interesting capabilities. We have two datasets that we can switch between. For each dataset, we have keys defined (marked with a special key icon in the variable drop-down). When we filter one dataset, the other one gets filtered as well because they are connected with a key.

This is truly impressive, but there is just one problem… If we click the “Show R code” button, we will notice that the data used in the app is not “reproducible.” This simply means that the app currently does not have information about where the data comes from, so it cannot instruct users on how to obtain the same data.

Let’s fix this. We will have to make the code slightly more verbose:

data <- within(teal_data(), {
  ADAE <- pharmaverseadam::adae
  ADSL <- pharmaverseadam::adsl
})
datanames(data) <- c("ADAE", "ADSL")
join_keys(data) <- default_cdisc_join_keys[datanames(data)]

The recommended method is to generate the data using a within function. However, this method requires manually providing databases using a helper function. We also need to provide join_keys ourselves, but given that the data names are standard ADaM names, we can take advantage of a special default_cdisc_join_keys object.

It is also worth noting that {teal} has its implementation of within generic.

This is what we will see now when running the application:

Now we have reproducible data. But what about the app itself? Surely, {teal} features don’t end here. There is a collection of pre-built shiny modules that can be used in teal applications. We can install them with pak:

pak::pkg_install(
  c("sparkline", "teal.modules.general", "teal.modules.clinical")
)

First, we suggest exploring the “general” modules that are applicable to any kind of data. The only (!) thing we need to do, is to add two more modules to the app initializer:

app <- init(
  data = data,
  modules = modules(
    example_module(),
    tm_data_table("Table View"),
    tm_variable_browser("Variables")
  )
)

This is possible thanks to the magic that {teal} is doing under the hood – passing the data object to each module. And now we will have access to a nice tabular view of the data, and a tool to explore each variable in greater detail.

This is great on its own, but as a bonus, we even get the ability to build a report based on some of the modules that we have. For example, we can generate some plots in the variable browser, add them to the report and preview it. Some modules would also add a block of R code showing how to get the exact same data that was used to generate a report card.

Finally, let’s add a simple barchart module that comes from the clinical modules package. We will use an example from the {teal.modules.clinical} documentation:

barchart_module <- tm_g_barchart_simple(
  label = "ADAE Analysis",
  x = data_extract_spec(
    dataname = "ADAE",
    select = select_spec(
      choices = variable_choices(
        pharmaverseadam::adae,
        c("ARM", "ACTARM", "SEX")
      ),
      selected = "ACTARM",
      multiple = FALSE
    )
  )
)

The best part about this module is that when a card is added to the report, it has R code that will reproduce exactly the same output that we see in the app.

Here is the entire code for the application. In just 40 lines of code we were able to create a feature-rich application with the ability to interact with ADaM data, create visualizations and generate reproducible reports.

library(sparkline)
library(teal)
library(teal.data)
library(teal.modules.clinical)
library(teal.modules.general)

data <- within(teal_data(), {
  ADAE <- pharmaverseadam::adae
  ADSL <- pharmaverseadam::adsl
  # nolint end
})
datanames(data) <- c("ADAE", "ADSL")
join_keys(data) <- default_cdisc_join_keys[datanames(data)]

barchart_module <- tm_g_barchart_simple(
  label = "ADAE Analysis",
  x = data_extract_spec(
    dataname = "ADAE",
    select = select_spec(
      choices = variable_choices(
        pharmaverseadam::adae,
        c("ARM", "ACTARM", "SEX")
      ),
      selected = "ACTARM",
      multiple = FALSE
    )
  )
)

app <- init(
  data = data,
  modules = modules(
    example_module(),
    tm_data_table("Table View"),
    tm_variable_browser("Variables"),
    barchart_module
  )
)

shinyApp(app$ui, app$server)

Conclusion

In conclusion, {teal} and {pharmaverseadam} make it much easier to create interactive and reproducible clinical data dashboards. By following this guide, you can quickly build a Shiny app that not only visualizes your data but also maintains reproducibility and customization options.

Get the latest updates from the pharmaverse delivered to your inbox. Subscribe to the newsletter today.


Originally published at https://pharmaverse.github.io on July 22, 2024.

The post appeared first on appsilon.com/blog/.

To leave a comment for the author, please follow the link and comment on their blog: Tag: r - Appsilon | Enterprise R Shiny Dashboards.

R-bloggers.com offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Never miss an update!
Subscribe to R-bloggers to receive
e-mails with the latest R posts.
(You will not see this message again.)

Click here to close (This popup will not appear again)