knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE)

library(magrittr)
library(extraDistr)
library(feasts)
library(urca)

files.sources = list.files(here::here("R/"), full.names = TRUE)
purrr::walk(files.sources, ~ source(., local = knitr::knit_global()))

source(here::here("secret", "source_shiny_live.R"))

Site 100, Supplier AAH

product = initial_product_list
w_order = w_order_log_df1
requis = w_requis_df1

DT::datatable(
  inventory_reorder(site = 100, 
                    supplier = "AAH", 
                    product,
                    w_order, 
                    requis,
                    holidays = get_holidays(),
                    updateProgress),
                    rownames = FALSE, 
                    extensions = 'Buttons', 
                    options = list(dom = 'Blfrtip',
                                   buttons = c('copy', 'csv', 'excel', 
                                               'pdf', 'print'))
)


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