R блестящий - googleSignIn sign_ins () ничего не возвращает - начал работать через несколько часов ожидания - PullRequest
Новая
       1

R блестящий - googleSignIn sign_ins () ничего не возвращает - начал работать через несколько часов ожидания

0 голосов
/ 13 марта 2020

Это работает сейчас. Я предполагаю, что что-то необходимо для распространения через системы Google.

Я пытаюсь использовать googleSignIn в блестящем. Если я использую пример кода (ниже), все работает как надо. Однако, если я заменим googleAuthR.webapp.client_id из примера своим собственным идентификатором, логин google будет отображаться как надо, и я все равно смогу войти в систему, указывая, что авторизация по идентификаторам клиентов Google OAuth 2.0 Google работает, но я работаю не вижу имя или адрес электронной почты в выводе.

Я пропустил авторизацию чего-либо с Google? Я поместил URI (например, http://localhost: 1221 ) как для "Авторизованных JavaScript происхождений", так и для "Авторизованных URI перенаправления" 

library(shiny)
library(googleAuthR)

options(googleAuthR.webapp.client_id = "1080525199262-qecndq7frddi66vr35brgckc1md5rgcl.apps.googleusercontent.com")

ui <- fluidPage(

    titlePanel("Sample Google Sign-In"),

    sidebarLayout(
      sidebarPanel(
        googleSignInUI("demo")
      ),

      mainPanel(
        with(tags, dl(dt("Name"), dd(textOutput("g_name")),
                      dt("Email"), dd(textOutput("g_email")),
                      dt("Image"), dd(uiOutput("g_image")) ))
      )
    )
  )

server <- function(input, output, session) {

  sign_ins <- shiny::callModule(googleSignIn, "demo")

  output$g_name = renderText({ sign_ins()$name })
  output$g_email = renderText({ sign_ins()$email })
  output$g_image = renderUI({ img(src=sign_ins()$image) })

}

# Run the application 
shinyApp(ui = ui, server = server)
...