1 pièce(s) jointe(s)
Utilisation d'un compte de service Google pour s'authentifier dans une application Shiny
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:
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) |
Pièce jointe 617309
