Как получить URL-адрес приложения R Shiny из веб-браузера?

Question

Допустим, есть приложение R Shiny по веб-адресу URL: http://127.0.0.1: 7020 / tests / test_one

library(shiny)

# How detect 'tests/test_one' here

# Running server
server <- function(input, output) { }
ui <- fluidPage(titlePanel("Shiny app"))
shinyApp(ui = ui, server = server)

Как можно получить в URL R Shiny code как строку «127.0.0.1:7020/tests/test_one», а затем извлечь из нее компоненты «tests» и «test_one» ДО запуска кода «server»?

Спасибо за помощь!