shinyFeedbackTest/codeLists.R at master · PuzzledFace/shinyFeedbackTest · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
library(tidyverse)

routeList <- c("oral"="PO",
               "rectal"="PR",
               "intramuscular"="IM",
               "intravenous"="IV",
               "intradermal"="ID",
               "intranasal"="IN",
               "topical"="TP",
               "sublingual"="SL",
               "buccal"="BUCC",
               "intraperitoneal"="IP")
saveRDS(routeList %>% enframe(), "./codeFiles/routes.Rds")

freqList <- c("daily"="daily",
              "every other day"="every other day",
              "twice a day"="BID",
              "twice a day"="TID",
              "four times a day"="QID",
              "at bed time"="QHS",
              "every four hours"="Q4H",
              "every four to six hours"="Q4-6H",
              "every week"="QWK",
              "as required"="PRN"
             )
saveRDS(freqList %>% enframe(), "./codeFiles/frequencies.Rds")


unitList <- c("milligrams"="mg",
              "millilitres"="mL",
              "capsules"="caps",
              "tablets"="tabs",
              "international units"="IU"
)
saveRDS(unitList %>% enframe(), "./codeFiles/units.Rds")