Discussion :

[comme de bien entendu]

Bonjour, je cherche à utiliser des données Google Sheets dans une application Shiny.
Mais je n'arrive pas à trouver une documentation correcte pour réussir la connection au compte de service Google.
J'ai bien récupéré le fichier JSON du compte de service, mais pour l'intégration dans le code, je tâtonne entre les différentes façon d'utiliser les librairies de connection.

Mon fichier JSON du compte de service est à la racine de mon projet

Je n'accède qu'à un bouton de connexion Google dans l'interface qui ne me permet pas d'aller plus loin.

Merci d'avance de vos idées.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
library(googleAuthR)
library(ggplot2)
library(rsconnect)
library(googleAuthR)
library(googlesheets4)
gar_auth_service("306515-08e39bec4019.json",scope ="https://www.googleapis.com/auth/cloud-platform")
 
# code de connection Shiny
rsconnect::setAccountInfo(name='testcrossjoin', token='', secret='')  
 
 
# Connection à la feuille Google
BDD<-as.data.frame(read_sheet("https://docs.google.com/spreadsheets/d/10LN6anjrPNvaXZt9aCiq0zGMmNI6R2ngsdkf0SeIYyU/edit#gid=594536827",sheet="test"))
BDD
ui <- fluidPage(
  titlePanel(title=h4("Races", align="center")),
  mainPanel(
    plotOutput("plot1")
 
  )
)
server <- function(input,output){
 
 
  output$plot1<-renderPlot({
    ggplot(BDD,aes(BDD[,1],BDD[,2]))+geom_point(color='blue')
 
  })
 
}
 
shinyApp(gar_shiny_ui(ui, login_ui = gar_shiny_login_ui), server)