remove dates of birth and death from inpatient_episodes mock dataset

NEWS.md

@@ -11,8 +11,8 @@ and `diagnosis_end` and take advantage of clinical systems such as problem lists
 variables if present
 - Changed the `inpatient_diagnoses` mock dataset to removed episode start and end fields [#103](https://github.com/ramses-antibiotics/ramses-package/issues/103) which 
 duplicated information in `inpatient_episodes`
-- Changed bridge table functions to include a field `antiinfective_type`  [#76](https://github.com/ramses-antibiotics/ramses-package/issues/76) and 
-prevent some issues [#104](https://github.com/ramses-antibiotics/ramses-package/issues/104)
+- Changed `bridge_*()` functions to add a field `antiinfective_type` to bridge tables [#76](https://github.com/ramses-antibiotics/ramses-package/issues/76) and prevent 
+unrelated generation issues [#104](https://github.com/ramses-antibiotics/ramses-package/issues/104)
 - General code maintenance and adaptation to ongoing changes to the `dplyr` data masking
 approach [#105](https://github.com/ramses-antibiotics/ramses-package/issues/105).
 

R/validate_data.R

@@ -648,7 +648,7 @@ validate_inpatient_episodes <- function(patients,
 #'   \item{\code{category_description}}{full text descriptions of three-character heading codes}
 #' }
 #' 
-#' *Note*: \code{\link[Ramses]{import_icd}()} can produce this lookup data frame from
+#' \strong{Note}: \code{\link[Ramses]{import_icd}()} can produce this lookup data frame from
 #' a standard ICD release archive file.
 #' 
 #' @return A logical value indicating success

data-raw/inpatient_episodes.R

@@ -48,7 +48,9 @@ inpatient_episodes <- dplyr::select(
   -surname,
   -sex,
   -ethnic_group,
-  -age_on_admission
+  -age_on_admission,
+  -date_of_birth,
+  -date_of_death
 )
 
 for (i in which(vapply(inpatient_episodes, is, class2 = "POSIXct", FUN.VALUE = logical(1)))) {