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

我有一个R Shining应用程序作为IBM Cloud中的Cloud Foundry应用程序运行。然而，目前还没有关于这一点的安全措施，它已经被公开。我一直在关注IBM云应用程序Id服务，我相信它可以以某种方式使用

我一直在看应用程序Id（），它似乎有道理。我可以使用这个示例创建一个节点应用程序，所有这些都可以正常工作。我不知道如何使用它来保护我的R闪亮应用程序

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

---

非常感谢您的帮助

我正在一个软件包中工作，以便在闪亮的应用程序中使用App ID IBM服务进行身份验证。存储库是

例子

require（闪亮）
要求（仪表板）
require（appId）
ui请向“似乎有一个应用程序部分”添加链接或代码。这是在IBM cloud dashboard中。基本上可以生成一个新的应用程序凭据，其中包含一个新的秘密等。这可能与某种程度上被保护的应用程序代码相关联。
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)