Czy zakładki z własnymi paskami bocznymi i panelami głównymi są dostępne w kolorze błyszczącym?

Question

Chciałbym wyświetlić różne dane wejściowe dla różnych kart. Więc próbowałem zbudować stronę z kilkoma tabPanelami. Jednak nie mogę mieć czegoś jak poniżej:

library(shiny) 

shinyUI(pageWithSidebar(
    headerPanel("Header"), 

    tabsetPanel(
    tabPanel(
     headerPanel("Tab 1"), 
     sidebarPanel(
     selectInput("var", "Parametre", choices = c("1", "2", "3")) 
     ), 
     mainPanel(
     textOutput("text1") 
     ) 
    ), 
    tabPanel(
     headerPanel("Tab 2"), 
     sidebarPanel(
     selectInput("var", "Parametre", choices = c("21", "22", "23")) 
    ), 
     mainPanel(
     textOutput("text2") 
    ) 
    ) 
    ) 
)) 

Podejrzewam, że pageWithSidebar jest przyczyną problemu, ale nie mogłem znaleźć alternatywę w grupach google. Czy istnieje sposób wyświetlania kilku kart z ich własnymi pasami bocznymi i mainPanels, czy też powinienem tworzyć różne aplikacje do tego celu?

Answer 1

Jeśli źle zrozumiałem twoje pytanie, myślę, że możesz nawet uniknąć części jQuery (z @ f1r3br4nd odpowiedzi), podając identyfikator dla funkcji tabsetPanel, tutaj id = "conditionedPanels". Parametr value (tj. Która zakładka jest wybrana w panelu głównym) jest następnie dostępny za pośrednictwem zmiennej input.

Przykład z minikondem:: server.R może być pusty, z wyjątkiem szkieletu funkcji shinyServer. Plik ui.R może wyglądać następująco.

shinyUI(pageWithSidebar(
    headerPanel("Conditional Panels"), 
    sidebarPanel(
    conditionalPanel(condition="input.conditionedPanels==1", 
        helpText("Content Panel 1") 
    ), 
    conditionalPanel(condition="input.conditionedPanels==2", 
        helpText("Content Panel 2") 
    ) 
), 
    mainPanel(
    tabsetPanel(
     tabPanel("Panel 1", value=1), 
     tabPanel("Panel 2", value=2) 
     , id = "conditionedPanels" 
    ) 
) 
)) 

Answer 2

mam kopalni pracować mając tylko jeden sidebarPanel jak w błyszczące przykładowych aplikacji, ale następnie owijając rzeczy w sidebarPanel to tylko dla konkretnych kart w oddzielnych conditionalPanel połączeń jak here. Sztuczka polega na tym, aby ciąg znaków, który jest argumentem warunku conditionalPanel, był instrukcją jQuery, która analizuje atrybut html aktualnie wybranej karty i === s to nazwa karty, dla której ta zawartość powinna pojawić się na pasku bocznym :

conditionalPanel(
    "$('li.active a').first().html()==='Foo'", 
    actionButton("bar","Bar")); 

... gdzie Foo to tytuł zakładki.

Krótko mówiąc, jeden pasek boczny, ale jego treść zależy od aktywnej karty.