Я использую приложение Shiny, где у меня есть кнопка для соединения с Google-листами с помощью пакета googlesheets.Затем он автоматически открывает лист с определенным именем и проводит дальнейший анализ.Все отлично работает при запуске приложения в R-Studio: при нажатии на кнопку открывается новая вкладка, где меня просят от Google дать разрешение на googlesheets.
Теперь я хочу поделиться этим приложением вне R-Studioи использовал два решения:
- shinyapps.io
- 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