In CDU-data-science-team/pharmacyReporting: Generate Reports For Pharmacy Inventory Project

library(tidyverse)
library(lubridate)
library(fable)
library(tibbletime)
library(feasts)
library(tsibble)
library(sweep)
library(knitr)
library(fable.prophet)
library(pander)
library(fasster)

knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning = TRUE, 
                      results = "asis")

load(here::here("data", "pharmacy_forecast.rda"))

All sites and drugs {.tabset}

Drug A

drug_code <- "Drug A"

res <- sapply(c("Site A", "Site B", "Site C"), function(x) {
  knitr::knit_child(
    '_child.Rmd', envir = environment(), quiet = TRUE
  )
})

cat(unlist(res), sep = '\n')

Drug B

Drug B is excluded from this analysis because there is only 3 years of data for Drug B. It may be included at a later date.

Drug C

drug_code <- "Drug C"

res <- sapply(c("Site A", "Site B", "Site C"), function(x) {
  knitr::knit_child(
    '_child.Rmd', envir = environment(), quiet = TRUE
  )
})

cat(unlist(res), sep = '\n')

Drug D

drug_code <- "Drug D"

res <- sapply(c("Site A", "Site B", "Site C"), function(x) {
  knitr::knit_child(
    '_child.Rmd', envir = environment(), quiet = TRUE
  )
})

cat(unlist(res), sep = '\n')

CDU-data-science-team/pharmacyReporting documentation built on March 24, 2023, 2:32 p.m.