LSIDS05

Listing of Overall Study Start and End Dates

Output

Preview

Code

# Program Name:              lsids05.R

# Prep environment

library(envsetup)
library(tern)
library(dplyr)
library(rtables)
library(rlistings)
library(junco)

# Define script level parameters

tblid <- "LSIDS05"
fileid <- tblid
popfl <- "SCRNFL"
key_cols <- c("COL1")
disp_cols <- paste0("COL", 1:3)
tab_titles <- get_titles_from_file(input_path = '../../_data/', tblid)
string_map <- default_str_map

# Process data

adsl <- pharmaverseadamjnj::adsl %>%
  filter(!!rlang::sym(popfl) == "Y") %>%
  summarise(
    rficdt_min = toupper(format(min(RFICDT, na.rm = TRUE), "%d%b%Y")),
    lstsvdt_max = toupper(format(max(LSTSVDT, na.rm = TRUE), "%d%b%Y")),
    rfpendtc_max = toupper(format(
      max(as.Date(RFPENDTC), na.rm = TRUE),
      "%d%b%Y"
    ))
  )

lsting <- adsl %>%
  mutate(
    COL1 = rficdt_min,
    COL2 = lstsvdt_max,
    # Optional Column: COL3/rfpendtc_max
    COL3 = rfpendtc_max
  )

lsting <- var_relabel(
  lsting,
  COL1 = "First Contact in the Study~[super a]",
  COL2 = "Last Visit in the Study~[super b]",
  # Optional Column: COL3/rfpendtc_max
  COL3 = "Last Contact in the Study~[super c]"
)

# Build listing

result <- rlistings::as_listing(
  df = lsting,
  key_cols = key_cols,
  disp_cols = disp_cols
)

# Add titles and footnotes

result <- set_titles(result, tab_titles)

# Output listing

tt_to_tlgrtf(string_map = string_map, tt = head(result, 100), file = fileid, orientation = "landscape")

LSIDS05: Listing of Overall Study Start and End Dates; Screened Analysis Set (Study jjcs - core)
First Contact in the Studya	Last Visit in the Studyb	Last Contact in the Studyc
06JUL2012	05MAR2015	05MAR2015

a Date of earliest signed informed consent in the study.
b Date of last visit of the last subject in the study.
c Date of last contact of the last subject who has completed or discontinued the study.
[lsids05.docx][/usr/lib/rstudio-server/bin/quarto/share/rmd/rmd.R] 12JAN2026, 16:08

Download RTF file

--- title: LSIDS05 subtitle: Listing of Overall Study Start and End Dates --- ------------------------------------------------------------------------ {{< include ../../_utils/envir_hook.qmd >}} ```{r setup, echo = FALSE, warning = FALSE, message = FALSE} options(docx.add_datetime = FALSE, tidytlg.add_datetime = FALSE) envsetup_config_name <- "default" # Path to the combined config file envsetup_file_path <- file.path("../..", "envsetup.yml") Sys.setenv(ENVSETUP_ENVIRON = '') library(envsetup) loaded_config <- config::get(config = envsetup_config_name, file = envsetup_file_path) envsetup::rprofile(loaded_config) dpscomp <- compound dpspdr <- paste(protocol,dbrelease,rpteff,sep="__") aptcomp <- compound aptpdr <- paste(protocol,dbrelease,rpteff,sep="__") ###### Study specific updates (formerly in envre) dpscomp <- "standards" dpspdr <- "jjcs__NULL__jjcs - core" apt <- FALSE library(junco) default_str_map <- rbind(default_str_map, c("&ctcae", "5.0")) ``` ## Output :::: panel-tabset ## {{< fa regular file-lines sm fw >}} Preview ```{r variant1, results='hide', warning = FALSE, message = FALSE} # Program Name: lsids05.R # Prep environment library(envsetup) library(tern) library(dplyr) library(rtables) library(rlistings) library(junco) # Define script level parameters tblid <- "LSIDS05" fileid <- tblid popfl <- "SCRNFL" key_cols <- c("COL1") disp_cols <- paste0("COL", 1:3) tab_titles <- get_titles_from_file(input_path = '../../_data/', tblid) string_map <- default_str_map # Process data adsl <- pharmaverseadamjnj::adsl %>% filter(!!rlang::sym(popfl) == "Y") %>% summarise( rficdt_min = toupper(format(min(RFICDT, na.rm = TRUE), "%d%b%Y")), lstsvdt_max = toupper(format(max(LSTSVDT, na.rm = TRUE), "%d%b%Y")), rfpendtc_max = toupper(format( max(as.Date(RFPENDTC), na.rm = TRUE), "%d%b%Y" )) ) lsting <- adsl %>% mutate( COL1 = rficdt_min, COL2 = lstsvdt_max, # Optional Column: COL3/rfpendtc_max COL3 = rfpendtc_max ) lsting <- var_relabel( lsting, COL1 = "First Contact in the Study~[super a]", COL2 = "Last Visit in the Study~[super b]", # Optional Column: COL3/rfpendtc_max COL3 = "Last Contact in the Study~[super c]" ) # Build listing result <- rlistings::as_listing( df = lsting, key_cols = key_cols, disp_cols = disp_cols ) # Add titles and footnotes result <- set_titles(result, tab_titles) # Output listing tt_to_tlgrtf(string_map = string_map, tt = head(result, 100), file = fileid, orientation = "landscape") ``` ```{r result1, echo=FALSE, message=FALSE, warning=FALSE, test = list(result_v1 = "result")} tt_to_flextable_j(head(result,100), tblid, string_map = string_map) ``` [Download RTF file](`r paste0(tolower(tblid), '.rtf')`) ::::