## Cognitive Index app deployment

require(rsconnect)

# keys <- suppressWarnings(read.csv("/Users/au301842/shinyapp_token.csv", colClasses = "character"))
# 
# keyring::key_get(service = "rsconnect_cognitiveindex_token")
# keyring::key_get(service = "rsconnect_cognitiveindex_secret")

rsconnect::setAccountInfo(
  name = "cognitiveindex",
  token = keyring::key_get(service = "rsconnect_cognitiveindex_token"), 
  secret = keyring::key_get(service = "rsconnect_cognitiveindex_secret")
)

rsconnect::deployApp(appDir = here::here("app"))