GSK-Biostatistics · CJR337 · Jan 9, 2026 · Jan 8, 2026 · Jan 8, 2026 · Jan 8, 2026
diff --git a/.github/workflows/R-CMD-check.yaml b/.github/workflows/R-CMD-check.yaml
@@ -21,6 +21,7 @@ jobs:
         config:
           - {os: macos-latest,   r: 'release'}
           - {os: windows-latest, r: 'release'}
+          - {os: windows-latest, r: 'oldrel-1'}
           - {os: ubuntu-latest,   r: 'devel', http-user-agent: 'release'}
           - {os: ubuntu-latest,   r: 'release'}
           - {os: ubuntu-latest,   r: 'oldrel-1'}

diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,15 +1,15 @@
 Package: repfun
-Title: Create TLFs using Functions Styled after SAS™ Macros
+Title: Create Tables, Listings and Figures using Functions Styled after SAS™ Macros
 Version: 0.1.0
 Authors@R: 
     c(person("Chris", "Rook", , "cr883296@gmail.com", role = c("aut", "cre")),
       person("Yongwei", "Wang", , "yongwei.x.wang@viivhealthcare.com", role = c("aut")),
       person("GlaxoSmithKline Research & Development Limited", role = c("cph", "fnd")))
-Description: Mimic the style of traditional reporting macros for clinical trials. The purpose is to generate TLFs (tables, listings and figures) that support clinical research. 
-             This package is well suited for firms or individuals who wish to incorporate R without changing their
-             ways of working as it follows a traditional clinical research workflow. Invoke functions (instead of macros) to 
-             summarize data and produce formatted reports. This package differs from others in that it includes 
-             tools (wrappers) for both analyzing and reporting data.
+Description: Mimic the style of traditional reporting macros for clinical trials. The purpose is to generate tables, listings 
+             and figures that support clinical research. This package is well suited for firms or individuals who wish to 
+             incorporate R without changing their ways of working as it follows a traditional clinical research workflow. 
+             Invoke functions (instead of macros) to summarize data and produce formatted reports. This package differs from 
+             others in that it includes tools (wrappers) for both analyzing and reporting data.
 License: Apache License (== 2.0)
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)

diff --git a/NAMESPACE b/NAMESPACE
@@ -27,7 +27,6 @@ export(ru_setdata)
 export(ru_stackvar)
 export(ru_sumstats)
 export(ru_width_rtf)
-export(setpath)
 import(dplyr)
 import(haven)
 import(r2rtf)

diff --git a/R/ru_list.R b/R/ru_list.R
@@ -37,8 +37,8 @@
 #' @param flowvars Variables with flow option
 #' @param widths Column widths
 #' @param defaultwidths List of default column widths
-#' @param skipvars similar to SAS statement skipvars Break after <var> / skip
-#' @param pagevars similar to SAS statement pagevars Break after <var> / page
+#' @param skipvars similar to SAS statement skipvars Break after skip
+#' @param pagevars similar to SAS statement pagevars Break after page
 #' @param idvars ID variables
 #' @param linevars Order variable printed with line statements.
 #' @param centrevars Centre justify variables

diff --git a/R/setpath.R b/R/setpath.R
diff --git a/README.md b/README.md
@@ -11,7 +11,7 @@
 
 ## R Reporting Functions Repository
 
-This repository contains an R package of reporting functions that mimic (HARP) traditional macros for clinical reporting.  The package can be used to generate TLFs (Tables, Listings, Figures).  See several examples in the <a href="https://gsk-biostatistics.github.io/repfun/">Vignettes/Articles</a>.
+This repository contains an R package of reporting functions that mimic (HARP) traditional macros for clinical reporting.  The package can be used to generate Tables, Listings and Figures.  See several examples in the <a href="https://gsk-biostatistics.github.io/repfun/">Vignettes/Articles</a>.
 
 <p align="right">(<a href="#readme-top">back to top</a>)</p>
 
@@ -72,7 +72,7 @@ install.packages(c("tidyr","dplyr","ggplot2","magrittr","Hmisc","haven","stringr
 
 ## License
 
-This project is released under the Apache-2.0 license. See the **[LICENSE](LICENSE.md)** file for details.
+This project is released under the Apache-2.0 license. 
 
 <p align="right">(<a href="#readme-top">back to top</a>)</p>
 

diff --git a/_pkgdown.yml b/_pkgdown.yml
@@ -68,7 +68,6 @@ reference:
   - ru_setdata
   - ru_stackvar
   - ru_width_rtf
-  - setpath
   - rem_pg_nums
   - copydata
 - title: Data

diff --git a/man/repfun-package.Rd b/man/repfun-package.Rd
diff --git a/man/ru_list.Rd b/man/ru_list.Rd
diff --git a/man/setpath.Rd b/man/setpath.Rd
diff --git a/tests/testthat/test-rs_setup.R b/tests/testthat/test-rs_setup.R
@@ -5,17 +5,6 @@ test_that("environment setup works", {
   suppressMessages(library(tibble))
   suppressMessages(library(testthat))
 
-  #globs <- paste0(tempdir(),'/GLOBALS2.txt')
-  #write(getwd(),file=globs,append=TRUE)
-  #write(testthat::test_path(),file=globs,append=TRUE)
-  #write(paste0(getwd(),'/',testthat::test_path()),file=globs,append=TRUE)
-  #Sys.sleep(300)
-
-  #repfun::setpath(paste0(rfenv$PATH,'/tests/testthat'))
-  repfun::setpath(paste0(rfenv$PATH,'/tests/testthat'))
-  #print(getwd())
-  #Sys.sleep(20)
-
   #======================
   # Invoke setup macro.
   #======================
@@ -51,13 +40,9 @@ test_that("environment setup works", {
       D_DEBUG=0)
   )
 
-  #print(getwd())
-  #print(adamdata)
-
   #=========================================================
   # Read ADSL directly, subset and compare with G_POPDATA.
   #=========================================================
-  #indata <- adamdata$adsl.rda()
   indata <- do.call(rfenv$adamdata$adsl.rda,list())
   indata <- tibble::as_tibble(indata)
   indata %>% dplyr::filter(SAFFL=='Y') -> C_POPDATA

diff --git a/tests/testthat/test-ru_addbignvar.R b/tests/testthat/test-ru_addbignvar.R
@@ -5,8 +5,6 @@ test_that("adding big N works", {
   suppressMessages(library(testthat))
   suppressMessages(library(tibble))
 
-  repfun::setpath(paste0(rfenv$PATH,'/tests/testthat'))
-
   #=======
   # SETUP
   #=======

diff --git a/tests/testthat/test-ru_addpage.R b/tests/testthat/test-ru_addpage.R
@@ -4,8 +4,6 @@ test_that("adding page numbers works", {
   suppressMessages(library(dplyr))
   suppressMessages(library(testthat))
 
-  repfun::setpath(paste0(rfenv$PATH,'/tests/testthat'))
-
   #==================================================
   # Setup reporting environment and read in AE data.
   #==================================================

diff --git a/tests/testthat/test-ru_addsupp.R b/tests/testthat/test-ru_addsupp.R
@@ -5,8 +5,6 @@ test_that("combining SDTM with its supplemental data works", {
   suppressMessages(library(tidyr))
   suppressMessages(library(testthat))
 
-  repfun::setpath(paste0(rfenv$PATH,'/tests/testthat'))
-
   ######
   # DM #
   ######

diff --git a/tests/testthat/test-ru_align.R b/tests/testthat/test-ru_align.R
@@ -5,8 +5,6 @@ test_that("aligning columns works", {
   suppressMessages(library(tidyr))
   suppressMessages(library(testthat))
 
-  repfun::setpath(paste0(rfenv$PATH,'/tests/testthat'))
-
   #=================
   # Adverse Events
   #=================

diff --git a/tests/testthat/test-ru_contents.R b/tests/testthat/test-ru_contents.R
@@ -3,8 +3,6 @@ test_that("proc contents works", {
   suppressMessages(library(repfun))
   suppressMessages(library(testthat))
 
-  repfun::setpath(paste0(rfenv$PATH,'/tests/testthat'))
-
   #=============================================
   # Put contents of mtcars into temporary file.
   #=============================================

diff --git a/tests/testthat/test-ru_data2codelist.R b/tests/testthat/test-ru_data2codelist.R
@@ -3,8 +3,6 @@ test_that("converting data to codelist works", {
   suppressMessages(library(repfun))
   suppressMessages(library(testthat))
 
-  repfun::setpath(paste0(rfenv$PATH,'/tests/testthat'))
-
   #==============================================================================
   # Build a codelist style format off of a SAS data set containing a SAS format.
   #==============================================================================

diff --git a/tests/testthat/test-ru_datacompare.R b/tests/testthat/test-ru_datacompare.R
@@ -4,8 +4,6 @@ test_that("proc compare works", {
   suppressMessages(library(dplyr))
   suppressMessages(library(testthat))
 
-  repfun::setpath(paste0(rfenv$PATH,'/tests/testthat'))
-
   iris1 <- iris %>% dplyr::mutate(ID=dplyr::row_number())
   iris2 <- iris %>% dplyr::mutate(ID=dplyr::row_number()) %>% dplyr::mutate(Petal.Length=Petal.Length+1)
   irisdiffs <- repfun::ru_datacompare(iris1, iris2, idvars=c('Species','ID'))

diff --git a/tests/testthat/test-ru_datetime.R b/tests/testthat/test-ru_datetime.R
@@ -4,8 +4,6 @@ test_that("adding formatted datetimes works", {
   suppressMessages(library(dplyr))
   suppressMessages(library(testthat))
 
-  repfun::setpath(paste0(rfenv$PATH,'/tests/testthat'))
-
   #=================================================
   # Read SDTM.AE and add time values to the dates.
   #=================================================

diff --git a/tests/testthat/test-ru_denorm.R b/tests/testthat/test-ru_denorm.R
@@ -5,8 +5,6 @@ test_that("transposing a dataframe works", {
   suppressMessages(library(tidyr))
   suppressMessages(library(testthat))
 
-  repfun::setpath(paste0(rfenv$PATH,'/tests/testthat'))
-
   #======================
   #======================
   # Adverse Events Test

diff --git a/tests/testthat/test-ru_expvarlist.R b/tests/testthat/test-ru_expvarlist.R
@@ -3,8 +3,6 @@ test_that("expanding variable list works", {
   suppressMessages(library(repfun))
   suppressMessages(library(testthat))
 
-  repfun::setpath(paste0(rfenv$PATH,'/tests/testthat'))
-
   #========
   # Test 1
   #========

diff --git a/tests/testthat/test-ru_fillcodedcode.R b/tests/testthat/test-ru_fillcodedcode.R
@@ -4,9 +4,6 @@ test_that("populating a decode variable works", {
   suppressMessages(library(dplyr))
   suppressMessages(library(testthat))
 
-  repfun::setpath(paste0(rfenv$PATH,'/tests/testthat'))
-  #rfenv$G_DEBUG <<- 0
-
   #========================================
   # Create decode for SEX using function.
   #========================================

diff --git a/tests/testthat/test-ru_freq.R b/tests/testthat/test-ru_freq.R
@@ -5,8 +5,6 @@ test_that("generating counts and percents works", {
   suppressMessages(library(tidyr))
   suppressMessages(library(testthat))
 
-  repfun::setpath(paste0(rfenv$PATH,'/tests/testthat'))
-
   #===============================
   # Set up reporting environment.
   #===============================

diff --git a/tests/testthat/test-ru_getdata.R b/tests/testthat/test-ru_getdata.R
@@ -4,8 +4,6 @@ test_that("get data function works", {
   suppressMessages(library(dplyr))
   suppressMessages(library(testthat))
 
-  repfun::setpath(paste0(rfenv$PATH,'/tests/testthat'))
-
   #=========================
   # Set up the environment.
   #=========================

diff --git a/tests/testthat/test-ru_groupbyvars.R b/tests/testthat/test-ru_groupbyvars.R
@@ -3,8 +3,6 @@ test_that("multiplication works", {
   suppressMessages(library(repfun))
   suppressMessages(library(testthat))
 
-  repfun::setpath(paste0(rfenv$PATH,'/tests/testthat'))
-
   #===================================
   # Add decode variables to the list.
   #===================================

diff --git a/tests/testthat/test-ru_libname.R b/tests/testthat/test-ru_libname.R
@@ -4,8 +4,6 @@ test_that("ru_libname works for rds and rda files", {
   suppressMessages(library(dplyr))
   suppressMessages(library(testthat))
 
-  repfun::setpath(paste0(rfenv$PATH,'/tests/testthat'))
-
   #==================================================
   # Read ADSL RDA file, restrict to SAFETY subjects.
   #==================================================
-Original file line number
+Diff line change
@@ Expand Up / @@ -5,8 +5,6 @@ test_that("combining SDTM with its supplemental data works", { @@
       suppressMessages(library(tidyr))
       suppressMessages(library(testthat))
-      repfun::setpath(paste0(rfenv$PATH,'/tests/testthat'))
       ######
       # DM #
       ######
@@ Expand Down @@