Change data description in YAML and pbc_database to pbc_data"

Big-Life-Lab · Dec 11, 2024 · f358bd3 · f358bd3
1 parent 9e7c1ef
commit f358bd3
Show file tree

Hide file tree

Showing 4 changed files with 10 additions and 10 deletions.
diff --git a/R/data.R b/R/data.R
@@ -19,9 +19,9 @@
 #'   \item{references}{references}
 #' }
 #' @source \url{https://cran.r-project.org/web/packages/survival/survival.pdf}
-"pbc_database"
+"pbc_data"
 
-#' @rdname pbc_database
+#' @rdname pbc_data
 #' @format A data frame with 24 rows and 11 columns:
 #' \describe{
 #'   \item{variable}{variable name}
@@ -38,7 +38,7 @@
 #' }
 "pbc_variables"
 
-#' @rdname pbc_database
+#' @rdname pbc_data
 #' @format A data frame with 69 rows and 16 columns:
 #' \describe{
 #'   \item{variable}{variable name}

diff --git a/R/pbc_worksheets.R b/R/pbc_worksheets.R
@@ -2,9 +2,9 @@ library(yaml)
 library(readr)
 library(usethis)
 
-# import the pbc_database.yaml file.
-pbc_database <- read_yaml("inst/extdata/pbc_database.yaml")
-usethis::use_data(pbc_database, overwrite = TRUE)
+# import the pbc_data.yaml file.
+pbc_data <- read_yaml("inst/extdata/pbc_data.yaml")
+usethis::use_data(pbc_data, overwrite = TRUE)
 
 # import the pbc_variables.csv file.
 pbc_variables <- read_csv("inst/extdata/pbc_variables.csv")

diff --git a/data-raw/prep_pbc_data.R b/data-raw/prep_pbc_data.R
@@ -3,9 +3,9 @@ library(yaml)
 library(readr)
 library(usethis)
 
-# import the pbc_database.yaml file.
-pbc_database <- read_yaml("inst/extdata/pbc_database.yaml")
-usethis::use_data(pbc_database, overwrite = TRUE)
+# import the pbc_data.yaml file.
+pbc_data <- read_yaml("inst/extdata/pbc_data.yaml")
+usethis::use_data(pbc_data, overwrite = TRUE)
 
 # import the pbc_variables.csv file
 pbc_variables <- read_csv("inst/extdata/pbc_variables.csv",

diff --git a/vignettes/derived_variables.Rmd b/vignettes/derived_variables.Rmd
@@ -79,7 +79,7 @@ data(tester1, variable_details, package = "recodeflow")
 
   2) Recode the underlying variables (`chol` and `bili`) and the derived variable (`example_der`).
   ```{r, warning=FALSE}
-  derived1 <- rec_with_table(data = pbc_database,
+  derived1 <- rec_with_table(data = pbc_data,
                             variables = c("chol", "bili","example_der"),
                             variable_details = variable_details,
                             log = TRUE)