diff --git a/R/create_bulk_synthetic_data.R b/R/create_bulk_synthetic_data.R deleted file mode 100755 index 9943e91..0000000 --- a/R/create_bulk_synthetic_data.R +++ /dev/null @@ -1,24 +0,0 @@ - -#' @title Create Bulk Synthetic Data -#' -#' @description -#' Creates a series of waiting lists, one for each row in the dataframe -#' parameter and joins them together into one dataframe with relevant creation -#' criteria -#' -#' @param bulk_data A dataframe object, each row being a waiting list with -#' parameters to generate the synthetic data. A sample data.frame is available -#' as demo-data -#' -#' @return Dataframe of waiting lists for each specified site and specialty, -#' opcs etc -#' @export -#' -#' @examples create_bulk_synthetic_data(demographic_data) - -create_bulk_synthetic_data <- function(bulk_data) { - result <- bulk_data |> - purrr::pmap(create_waiting_list) |> - dplyr::bind_rows() - return(result) -}