transfer from old repo

apps/Group assignment app.R

@@ -0,0 +1,39 @@
+## -----------------------------------------------------------------------------
+## 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...