如何获取Shining应用程序的当前URL？

当我在RStudio上运行闪亮的应用程序时，我的应用程序会运行，URL如下所示：

Listening on http://127.0.0.1:4991

但每次我再次运行应用程序时，端口都会发生变化，我想知道是否有办法获取url作为变量或类似的内容。我的意思是，每次运行应用程序时，我都想获取URL并将其保存在变量中

---

谢谢

您可以使用以下选项指定端口：

#example: https://shiny.rstudio.com/articles/basics.html

options(shiny.host = '0.0.0.0')
options(shiny.port = 8888)

ui <- fluidPage(
  
  # App title ----
  titlePanel("Hello Shiny!"),
  
  # Sidebar layout with input and output definitions ----
  sidebarLayout(
    
    # Sidebar panel for inputs ----
    sidebarPanel(
      
      # Input: Slider for the number of bins ----
      sliderInput(inputId = "bins",
                  label = "Number of bins:",
                  min = 1,
                  max = 50,
                  value = 30)
      
    ),
    
    # Main panel for displaying outputs ----
    mainPanel(
      
      # Output: Histogram ----
      plotOutput(outputId = "distPlot")
      
    )
  )
)

# Define server logic required to draw a histogram ----
server <- function(input, output) {
  
  # Histogram of the Old Faithful Geyser Data ----
  # with requested number of bins
  # This expression that generates a histogram is wrapped in a call
  # to renderPlot to indicate that:
  #
  # 1. It is "reactive" and therefore should be automatically
  #    re-executed when inputs (input$bins) change
  # 2. Its output type is a plot
  output$distPlot <- renderPlot({
    
    x    <- faithful$waiting
    bins <- seq(min(x), max(x), length.out = input$bins + 1)
    
    hist(x, breaks = bins, col = "#75AADB", border = "white",
         xlab = "Waiting time to next eruption (in mins)",
         main = "Histogram of waiting times")
    
  })
  
}

shinyApp(ui, server)

#示例：https://shiny.rstudio.com/articles/basics.html
选项（shinny.host='0.0.0.0'）
选项（shinny.port=8888）
ui您可以使用
会话$clientData
获取url：

library(shiny)

ui <- basicPage()

server <- function(input, output, session){
  
  observe({
    print(reactiveValuesToList(session$clientData))
  })
  
}

shinyApp(ui, server)

库（闪亮）
ui所以使用命令运行它并提供端口作为参数？