Блог

Главная - Вопросы по программированию - анализ URL-адреса и получение того же самого при вставке URL-адреса

анализ URL-адреса и получение того же самого при вставке URL-адреса

#r #shiny

Вопрос:

Я могу проанализировать URL-адрес при создании определенной строки в таблице. Здесь происходят 2 вещи, одна из которых-создается новая вкладка, а затем URL-адрес изменяется в соответствии с ней.

Например, при нажатии на строку 3 открывается вкладка 3 и URL-адрес меняется на «http://127.0.0.1:XXXX/?tab=3»

Но когда вышесказанное копируется и вставляется в другую вкладку, то же самое не получается. Вместо этого открывается блестящее приложение по умолчанию. Есть ли способ получить ту же страницу, когда этот URL вставлен в другую вкладку?

 library(shiny)
library(readxl)
library(dplyr)
library(xtable)
library(shinyWidgets) ## for picker input
library(shinydashboard) 
library(DT)
library(tidyverse)
library(shinycssloaders)
library(plotly)
library(htmlwidgets)
library(sparkline)
library(data.table)
require(reshape2)
library(glue)


ui <- shinyUI(navbarPage(

  "PaperCut",id = "inTabset",selected = "Summary",
  tabsetPanel(id = "tabs",
          #     tabPanel(
          # "Read me",tags$head(tags$link(rel = "stylesheet", type="text/css", href="style.css"))
          #              ),
              tabPanel(
          "Summary",
    DT::dataTableOutput("tab")))
)
)

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

  output$tab <- DT::renderDataTable({
    datatable(iris,selection = 'single')
  })
  
  observeEvent(input$tab_rows_selected, {
    print(input$tab_rows_selected)
  })
 
  
  observeEvent(input$tab_rows_selected, {
    insertTab(inputId = "tabs",
              tabPanel(paste0("tab",input$tab_rows_selected), paste0(input$tab_rows_selected,
                                                                     "This a dynamically-added tab")),select = TRUE
                
    )
  })
  
  observeEvent(input$tab_rows_selected, {
    updateQueryString(
      queryString = sprintf("?tab=%s", input$tab_rows_selected),
      mode = c("replace")
    )
  })
  
}

shinyApp(ui, server)
Метки: