Googlesheets пакета R в Shiny не открывают вкладку Google Authentification при использовании вне R-Studio - PullRequest
0 голосов
/ 07 декабря 2018

Я использую приложение Shiny, где у меня есть кнопка для соединения с Google-листами с помощью пакета googlesheets.Затем он автоматически открывает лист с определенным именем и проводит дальнейший анализ.Все отлично работает при запуске приложения в R-Studio: при нажатии на кнопку открывается новая вкладка, где меня просят от Google дать разрешение на googlesheets.

Теперь я хочу поделиться этим приложением вне R-Studioи использовал два решения:

  1. shinyapps.io
  2. inyShortcut: Это создает ярлык в каталоге приложения, который в основном просто выполняет блестящий :: runApp ('/ path / to / my /app / ', launch.browser = TRUE).

С этими решениями у меня возникает простая проблема: новая вкладка, которая запрашивает разрешение, больше не отображается, но все остальное приложение все еще работает.К сожалению, это делает мое приложение бесполезным.

Может быть, кто-то еще имел такую ​​же проблему в прошлом и может помочь.Или, может быть, я просто наблюдаю за чем-то простым здесь ... Любая помощь высоко ценится.

Вот минимальный репродуктивный пример важной части моего приложения:

ui.R:

shinyUI(
  fluidPage(
    titlePanel("Example"),
    sidebarLayout(
      sidebarPanel(
        actionButton('button', 'Button')
      ),
      mainPanel()
    )
  )
)

server.R:

library(googlesheets)
library(shiny)

shinyServer(function(session, input, output) {
  observeEvent(input$button, {
    gs_auth(new_user = TRUE) # opens new tab
    table <- gs_ls()$sheet_title
  })
})

И наконец:

library(shinyShortcut)
# the following line makes an executable shortcut
# in your working directory for your OS 
shinyShortcut() 

Информация о моем сеансе:

R version 3.4.4 (2018-03-15)
Platform: x86_64-pc-linux-gnu (64-bit)
Running under: Linux Mint 18.2

Matrix products: default
BLAS: /usr/lib/libblas/libblas.so.3.6.0
LAPACK: /usr/lib/lapack/liblapack.so.3.6.0

locale:
LC_CTYPE=es_ES.UTF-8  LC_NUMERIC=C            
LC_TIME=es_ES.UTF-8   LC_COLLATE=es_ES.UTF-8     
LC_MONETARY=es_ES.UTF-8  LC_MESSAGES=es_ES.UTF-8   
LC_PAPER=es_ES.UTF-8  LC_NAME=C               
LC_ADDRESS=C   LC_TELEPHONE=C             
LC_MEASUREMENT=es_ES.UTF-8 LC_IDENTIFICATION=C       

attached base packages:
stats  graphics  grDevices  utils     
datasets  methods   base     

other attached packages:
shinyShortcut_0.1.0 googlesheets_0.3.0  
shiny_1.1.0        

loaded via a namespace (and not attached):
Rcpp_0.12.19   rstudioapi_0.7   bindr_0.1.1       
magrittr_1.5   tidyselect_0.2.4   xtable_1.8-3      
R6_2.3.0   rlang_0.3.0.1   httr_1.3.1       
dplyr_0.7.6   tools_3.4.4   htmltools_0.3.6   
openssl_1.1   yaml_2.2.0   digest_0.6.18    
assertthat_0.2.0  tibble_1.4.2   crayon_1.3.4      
bindrcpp_0.2.2   purrr_0.2.5   later_0.7.4       
promises_1.0.1   curl_3.2    glue_1.3.0        
mime_0.6   compiler_3.4.4   pillar_1.3.0      
cellranger_1.1.0  jsonlite_1.5   httpuv_1.4.5.9000
pkgconfig_2.0.2  
...