## -----------------------------------------------------------------------------
## Cognitive Index app
## -----------------------------------------------------------------------------
## 
## This app is created to demonstrate the index-lookup of a certain cognitive test.
## The results a provided with no responsibility of validity.
## Do not upload sensitive data when using the app.
## 
## /AG Damsbo 
## 


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

setwd(paste0(old_wd,"/apps/Index app"))
shiny::runApp()

source(paste0(old_wd,"/apps/app_deploy.R"))

setwd(old_wd)

## Poor mans changelog

## 18aug2022 Its alive!!
## https://cognitiveindex.shinyapps.io/index_app/
## 
## 19aug2022 - 1
## Now live with a choice between single entry or file upload, and download option for results in both cases.
## Wishlist:
## - Still missing is a better labelling, however this works for now.
##
## Sources: 
## - How about uploading dataset? https://shiny.rstudio.com/articles/upload.html
## - And then download: https://shiny.rstudio.com/articles/download.html
## 
## Now moved to my PhysicalActivityandStrokeOutcome-repository.
## 
## 19aug2022 - 2
## Now table headers are updated. Done for now!
## 
##