shiny - 将 IBM App Id 与 R Shiny CF 应用程序集成

Question

我有一个 R Shiny 应用程序在 IBM Cloud 中作为 Cloud Foundry 应用程序运行。然而，目前没有安全措施，并且公开暴露。我一直在研究 IBM Cloud App Id 服务，我相信它可以以某种方式使用。

我一直在查看 App Id ( https://cloud.ibm.com/catalog/services/app-id )，这似乎很有意义。我可以使用示例创建一个节点应用程序，并且一切正常。不过，我不知道如何使用它来保护我的 R Shiny 应用程序。

似乎有一个应用程序部分，您可以在其中为新应用程序生成凭据，但不确定如何使用它。

非常感谢您的帮助

Answer 1

我正在一个包中工作，以在 Shiny Apps 中使用 App ID IBM 服务进行身份验证。存储库在这里。

例子

require(shiny)
require(shinydashboard)
require(appId)

ui <- dashboardPage(
  dashboardHeader(user_info(), # show user info
                  title = "My dashboard"),
  dashboardSidebar(),
  dashboardBody()
)

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

  # if you want get user info in app
  userinfo <- callModule(get_user_info, "userinfo")
  output$user <- renderText({userinfo()})

}

# modified shinyApp
shinyAppId(ui, server)