update data loading command

rdboyes · Oct 30, 2021 · 26ab7cf · 26ab7cf
1 parent a0c1d6c
commit 26ab7cf
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/README.Rmd b/README.Rmd
@@ -39,7 +39,7 @@ Forester simply requires the left side of the table (in this case, three columns
 ```{r example}
 library(forester)
 
-table <- readxl::read_excel(here::here("inst/extdata/example_figure_data.xlsx"))
+table <- readxl::read_excel(system.file("extdata", "example_figure_data.xlsx", package = "forester"))
 
 # indent the subgroup if there is a number in the placebo column
 table$Subgroup <- ifelse(is.na(table$Placebo), 

diff --git a/README.md b/README.md
@@ -33,7 +33,7 @@ which contain the point estimates and confidence intervals.
 ``` r
 library(forester)
 
-table <- readxl::read_excel(here::here("inst/extdata/example_figure_data.xlsx"))
+table <- readxl::read_excel(system.file("extdata", "example_figure_data.xlsx", package = "forester"))
 
 # indent the subgroup if there is a number in the placebo column
 table$Subgroup <- ifelse(is.na(table$Placebo),