Modérateur : Groupe des modérateurs
Code : Tout sélectionner
library(shiny)
ui <- fluidPage(navbarPage(title = "Mon appli shiny", id = "tabsetId",
tabPanel("Accueil",value = "accueil",
actionButton("goto_tab1","Tab1"),
actionButton("goto_tab2","Tab2")),
tabPanel("Tab1",value = "tab1"),
tabPanel("Tab2",value = "tab2")
)
)
server <- function(input, output, session) {
observeEvent(input$goto_tab1,{
updateNavbarPage(session, "tabsetId", selected = "tab1")
})
observeEvent(input$goto_tab2,{
updateNavbarPage(session, "tabsetId", selected = "tab2")
})
}
shinyApp(ui, server)
Code : Tout sélectionner
library(shiny)
ui <- fluidPage(sidebarLayout(
sidebarPanel(
lapply(1:3, function(i) {
list(actionLink(inputId = paste0("topanel", i), label = paste("Go to Panel ", i)), br())
})
),
mainPanel(
tabsetPanel(id = "inTabset",
tabPanel(title = "Panel 1", value = "panel1", "Panel 1 content"),
tabPanel(title = "Panel 2", value = "panel2", "Panel 2 content"),
tabPanel(title = "Panel 3", value = "panel3", "Panel 3 content")
)
)
))
server <- function(input, output, session) {
lapply(1:3, function(i) {
observeEvent(input[[paste0("topanel", i)]], {
updateTabsetPanel(session, "inTabset", selected = paste0("panel", i))
})
})
}
shinyApp(ui, server)
Code : Tout sélectionner
library(shiny)
shinyServer <- function(input, output, session) {
observeEvent(input$goto_tab1,{
updateTabsetPanel(session, "onglet", selected = "Tab1")
})
}
shinyUI(fluidPage(
tabsetPanel(id ="onglet",
#onglet1----
tabPanel( "Accueil",
value="accueil",
actionLink("Tab1", "goto_tab1"),
actionLink("goto_tab2", "Tab2"),
actionButton("goto_tab3", "Tab3")),
#onglet2----
tabPanel( "Comprendre",
value= "Tab1"),
#onglet3----
tabPanel("Se comparer",
value= "Tab2" ),
#onglet4----
tabPanel("Faire mieux",
value= "Tab3"),
)
))
Code : Tout sélectionner
server <- shinyServer <- function(input, output, session) {
observeEvent(input$goto_tab1, {
updateTabsetPanel(session, "onglet", selected = "Tab1")
})
observeEvent(input$goto_tab2, {
updateTabsetPanel(session, "onglet", selected = "Tab2")
})
observeEvent(input$goto_tab3, {
updateTabsetPanel(session, "onglet", selected = "Tab3")
})
}
Code : Tout sélectionner
ui <- shinyUI(fluidPage(
tabsetPanel(
id = "onglet",
# onglet1----
tabPanel("Accueil",
value = "accueil",
actionLink("goto_tab1", "Tab1"),
actionLink("goto_tab2", "Tab2"),
actionButton("goto_tab3", "Tab3")
),
# onglet2----
tabPanel("Comprendre",
value = "Tab1"
),
# onglet3----
tabPanel("Se comparer",
value = "Tab2"
),
# onglet4----
tabPanel("Faire mieux",
value = "Tab3"
)
)
))
Code : Tout sélectionner
ui <- shinyUI(fluidPage(sidebarLayout(
sidebarPanel = sidebarPanel(
titlePanel("Accueil"),
actionLink("goto_tab1", "Tab1"),
br(),
actionLink("goto_tab2", "Tab2"),
br(),
actionButton("goto_tab3", "Tab3")
),
mainPanel = mainPanel(
tabsetPanel(
id = "onglet",
tabPanel("Comprendre",
value = "Tab1"
),
tabPanel("Se comparer",
value = "Tab2"
),
tabPanel("Faire mieux",
value = "Tab3"
)
)
)
)))
Retourner vers « Questions en cours »
Utilisateurs parcourant ce forum : Google [Bot] et 1 invité