## -----------------------------------------------------------------------------
## Group assignment app
## -----------------------------------------------------------------------------
## 
## Special cases to consider
## - duplicate scores - DON'T CARE
## - missing scores - DONE
## - Pre-assignment of special cases - SOLVED
## - Make sure to remove assigned subjects from all subjects when pre-assigning - DONE
## - Set class to output list and have plot function only accept correct class (not necessary for Shiny)
## - Use knitr::kable() to show sample data, alternatively use gt() - DONE
## - Handle [NA, 0, ""] - DONE
##
## I believe we are ready for a shiny app!


## -- START WITH THIS -- ##
old_wd<-getwd()

setwd(paste0(old_wd,"/apps/Assignment"))

setwd(old_wd)

## Run app

shiny::runApp(appDir = here::here("apps/Assignment"),launch.browser = TRUE)

## App deployment

require(rsconnect)

keys<-suppressWarnings(read.csv("/Users/au301842/shinyapp_token.csv",colClasses = "character"))

rsconnect::setAccountInfo(name='cognitiveindex', 
                          token=keys$key[1], secret=keys$key[2])

deployApp(appDir = "/Users/au301842/PAaSO/apps/Assignment")

## Raw sketch, doesn't load correctly...