demo/fitbitTest/app.R

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

library(shiny)
library(shinyauth)
library(tidyverse)

# Define UI for application that draws a histogram
ui <- fluidPage(
   # Application title
   titlePanel("Let's query fitbit"),
   shinyauthUI("fitbit_login")
)

server <- function(input, output) {
  source("demo/fitbitTest/api_keys.R")

  authButton <- callModule(shinyauth,
                          "fitbit_login",
                          api_info = api_keys)

  # logic for what happens after a user has drawn their values. Note this will fire on editing again too.
  observeEvent(authButton(), {
    userToken = authButton()

    print(userToken)
  })

}

# Run the application
shinyApp(ui = ui, server = server, options = c("port" = 1410))