39 lines
1.2 KiB
R
39 lines
1.2 KiB
R
|
## -----------------------------------------------------------------------------
|
||
|
|
## 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...
|