html - pagina - Enlazando a una pestaña o panel de una aplicación brillante

inspeccionar elemento firefox android

Question

¿Cómo logro vincular desde una parte brillante determinada a partes que están ubicadas en otras pestañas / paneles?

Actualizar

La solución que redacté a continuación funciona para el caso explícito de vincular a pestañas / paneles (y eso es lo que pedí).

Sin embargo, me interesaría saber también formas más genéricas de vincular partes de una aplicación brillante.

Ejemplo

Me gustaría vincular desde el panel A al panel B, pero no estoy seguro de qué debo especificar como acción cuando se hace clic en el enlace de acción en el panel A.

El valor #tab-4527-2 proviene de la investigación de la salida HTML de ui , pero acabo de ver que esos valores cambian cada vez que reinicio la aplicación.

library(shiny)
# UI ---------------------------------------------------------------------
ui <- fluidPage(
tabsetPanel(
tabPanel(
"A",
p(),
actionLink("link_to_tabpanel_b", "Link to panel B")
),
tabPanel(
"B",
h3("Some information"),
tags$li("Item 1"),
tags$li("Item 2")
)
)
)
# Server ------------------------------------------------------------------
server <- function(input, output, session) {
observeEvent(input$link_to_tabpanel_b, {
tags$a(href = "#tab-4527-2")
})
}
shinyApp(ui, server)

Answer 1

La siguiente solución se basa en las entradas que recibí de los comentarios.

Tenga en cuenta que updateTabsetPanel() pertenece a shiny mientras que updateTabItems() es una función del paquete shinydashboard . Parecen funcionar indistintamente.

library(shiny)
library(shinydashboard)
# UI ---------------------------------------------------------------------
ui <- fluidPage(
tabsetPanel(
id = "panels",
tabPanel(
"A",
p(),
actionLink("link_to_tabpanel_b", "Link to panel B")
),
tabPanel(
"B",
h3("Some information"),
tags$li("Item 1"),
tags$li("Item 2"),
actionLink("link_to_tabpanel_a", "Link to panel A")
)
)
)
# Server ------------------------------------------------------------------
server <- function(input, output, session) {
# observeEvent(input$link_to_tabpanel_b, {
# tags$a(href = "#tab-4527-2")
# })
observeEvent(input$link_to_tabpanel_b, {
newvalue <- "B"
updateTabItems(session, "panels", newvalue)
})
observeEvent(input$link_to_tabpanel_a, {
newvalue <- "A"
updateTabsetPanel(session, "panels", newvalue)
})
}
shinyApp(ui, server)

Answer 2

Esto es realmente útil y lo que quiero. De acuerdo con el código y la lógica de Rappster. Es posible establecer cualquier tipo de enlaces. Enlace a TabsetPanel puede ser utilizado por updataTabsetPanel . El enlace a Navbar puede usar updateNavbarPage(session, inputId, selected = NULL) . Estos pueden ser encontrados por ?updateTabsetPanel siguiente manera.

updateTabsetPanel(session, inputId, selected = NULL)
updateNavbarPage(session, inputId, selected = NULL)
updateNavlistPanel(session, inputId, selected = NULL)

Tenga en cuenta que selected es la nueva identificación que puede definir para tabsetPanel , Navbar o NavlistPanel .

Answer 3

Acabamos de lanzar una biblioteca de enrutamiento , lo que facilita el enlace en Shiny. Así es como se ve en pocas palabras.

make_router(
route("<your_app_url>/main", main_page_shiny_ui),
route("<your_app_url>/other", other_page_shiny_ui)
)

Se puede encontrar más información en esta publicación de blog .

Answer 4

Puedes darle a tu tabsetPanel una identificación y usar updateTabsetPanel con tu observeEvent

library(shiny)
# UI ---------------------------------------------------------------------
ui <- fluidPage(
tabsetPanel(id = "demo",
tabPanel(
"A",
p(),
actionLink("link_to_tabpanel_b", "Link to panel B")
),
tabPanel(
"B",
h3("Some information"),
tags$li("Item 1"),
tags$li("Item 2")
)
)
)
# Server ------------------------------------------------------------------
server <- function(input, output, session) {
observeEvent(input$link_to_tabpanel_b, {
updateTabsetPanel(session, "demo", "B")
})
}
shinyApp(ui, server)