demo/fitbitTest/api_keys.R

In jhudsl/shinyauth: Allows easy and fast access to arbitrary OAUTH 2.0 apis from shinyapps.

# Personal App info
api_keys <- list( appname = "data_access",
                  key = "2287QM",
                  secret = "6a99b80ecf85cbe33d59c174e9c74748",
                  auth_url = "https://www.fitbit.com/oauth2/authorize",
                  token_url = "https://api.fitbit.com/oauth2/token",
                  scope = c("heartrate", "activity", "sleep"),
                  redirect_uri = "http://127.0.0.1:1410/"
                )

#Jeff's app info. These values aren't truly secret so they can be exposed.
# api_keys <- list( appname = "data_access",
#                   key = "228RXV",
#                   secret = "ff4ae11f55374f9688f319320c3cb4e1")