exploreSIS_node/run_app.R at master · TBDSolutions/exploreSIS_node · 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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61

## TRANSFORM DATA ##

  ## Define local source of SIS data
  sis_src <- "Paste/path/to/SIS/data/here"

  # sis_full gets passed to the readSIS.R script
  sis_full <- read.csv(sis_src,
                       colClasses = c("sis_cl_medicaidNum" = "character"),
                       na.strings = c(""," ","NA"))

  ## Transform using standard script
  source("https://raw.githubusercontent.com/j-hagedorn/exploreSIS/master/prep/readSIS.R")

  ## Map Medicaid IDs to current CMHSPs (and other vars)
  ## Attribution file should be a pipe "|" delimited file containing 'mcaid_id',
  ## 'cmhsd_id' and 'as_of_dt' as the first 3 variables.
    attribution <- "Paste/path/to/attribution/file/here"

  ## Transform using standard script
  source("https://raw.githubusercontent.com/j-hagedorn/exploreSIS/master/prep/read_attribution.R")

  ## Apply any local transformations saved in PIHP-level script
  source("prep/housekeeping.R")

  ## Create SIS to service mappings and save in local data file for use in global.R
  source("https://raw.githubusercontent.com/j-hagedorn/exploreSIS/master/prep/sis_mappings.R")

  ## Encrypt IDs and create scrubbed file for app!!!
  source("https://raw.githubusercontent.com/j-hagedorn/exploreSIS/master/prep/scrub.R")

  # Import total # needing assessment per CMHSP from local script
  source("prep/totals.R")

  # Apply transformations to get "long" data for analysis of TOS
  source("https://raw.githubusercontent.com/j-hagedorn/exploreSIS/master/prep/transform.R")

#####################################################################

## BUILD APP FROM CENTRAL REPO ##

  ## Download most recent global.R file and save in node repo
  download.file(url = "https://raw.githubusercontent.com/j-hagedorn/exploreSIS/master/global.R",
                destfile = "global.R")

  ## Download most recent ui.R file and save in node repo
  download.file(url = "https://raw.githubusercontent.com/j-hagedorn/exploreSIS/master/ui.R",
                destfile = "ui.R")

  ## Download most recent server.R file and save in node repo
    download.file(url = "https://raw.githubusercontent.com/j-hagedorn/exploreSIS/master/server.R",
                destfile = "server.R")

#####################################################################

## RUN APP

library(shiny)

# Change path to your local repo
runApp("../exploreSIS_node")