如何防止用户直接通过URL访问R Shiny应用程序？

Question

我有一个父网站，该网站有数百个用户，他们的密码和帐户已经注册。

我在网站上有很多R闪亮的应用程序，我不希望用户直接通过URL访问应用程序。我该如何实现（也许将父站点的URL绑定到闪亮的应用程序）？最小的闪亮应用示例如下，在此先感谢：

n <- 200
# Define the UI
ui <- bootstrapPage(
  numericInput('n', 'Number of obs', n),
  plotOutput('plot')
)

# Define the server code
server <- function(input, output) {
  output$plot <- renderPlot({
    hist(runif(input$n))
  })
}

# Return a Shiny app object
shinyApp(ui = ui, server = server)