fix: pkgdown no like : ; chore: hardcoded paths to data

RConsortium · May 18, 2024 · bb64e57 · bb64e57
1 parent 5fcf17b
commit bb64e57
Show file tree

Hide file tree

Showing 5 changed files with 10 additions and 10 deletions.
diff --git a/_pkgdown.yml b/_pkgdown.yml
@@ -59,14 +59,14 @@ navbar:
         href: articles/adam-adtte.html
       - text: ADADAS - ADS-COG Analysis
         href: articles/adam-adadas.html
-      - text: ADRG - Analysis Data Reviewer's Guide
+      - text: ADRG - Analysis Data Reviewers Guide
         href: articles/adrg_website.html
     conferences:
       text: Conferences
       menu:
       - text: PHUSE SDE London
         href: articles/conf_phuse_sde_london.html
-      - text: PHARMA SUG Baltimore - Paper Index: SS-344
+      - text: PHARMA SUG Baltimore Paper Index SS 344
         href: https://www.pharmasug.org/us/2024/papers.html
     feedback:
       text: WG Minutes and Regulatory Feedback

diff --git a/vignettes/tlf-demographic.Rmd b/vignettes/tlf-demographic.Rmd
@@ -37,7 +37,7 @@ library(rtables)
 
 
 ```{r, echo = FALSE}
-adsl <- read_xpt(file.path(path$adam, "adsl.xpt"))
+adsl <- read_xpt("../adam/adsl.xpt")
 adsl_labels <- var_labels(adsl)
 ```
 

diff --git a/vignettes/tlf-efficacy.Rmd b/vignettes/tlf-efficacy.Rmd
@@ -36,8 +36,8 @@ library(emmeans)
 ```
 
 ```{r, message = FALSE, echo = FALSE}
-adsl <- read_xpt(file.path(path$adam, "adsl.xpt"))
-adlb <- read_xpt(file.path(path$adam, "adlbc.xpt"))
+adsl <- read_xpt("../adam/adsl.xpt")
+adlb <- read_xpt("../adam/adlbc.xpt")
 ```
 
 ```{r, message = FALSE, echo = FALSE}

diff --git a/vignettes/tlf-kmplot.Rmd b/vignettes/tlf-kmplot.Rmd
@@ -39,8 +39,8 @@ library(visR)
 
 
 ```{r, echo = FALSE, message = FALSE}
-adsl <- read_xpt(file.path(path$adam, "adsl.xpt"))
-adtte <- read_xpt(file.path(path$adam, "adtte.xpt"))
+adsl <- read_xpt("../adam/adsl.xpt")
+adtte <- read_xpt("../adam/adtte.xpt")
 ```
 
 ```{r, echo = FALSE, message = FALSE}

diff --git a/vignettes/tlf-primary.Rmd b/vignettes/tlf-primary.Rmd
@@ -37,8 +37,8 @@ options(huxtable.add_colnames = FALSE)
 ```
 
 ```{r, echo = FALSE, message = FALSE}
-adas <- haven::read_xpt(file.path(path$adam, "adadas.xpt"))
-adsl <- haven::read_xpt(file.path(path$adam, "adsl.xpt"))
+adas <- haven::read_xpt("../adam/adadas.xpt")
+adsl <- haven::read_xpt("../adam/adsl.xpt")
 ```
 
 ```{r, echo = FALSE, message = FALSE}
@@ -92,7 +92,7 @@ sum_data <- t %>%
 ```
 
 ```{r, echo = FALSE, message = FALSE}
-model_portion <- efficacy_models(adas, "CHG", 24)
+model_portion <- pilot3utils::efficacy_models(adas, "CHG", 24)
 ```
 
 ```{r, echo = FALSE, message = FALSE}