conditionalpanel with tabPanel
up vote
0
down vote
favorite
I am using a conditionalPanel option to choose the tabs to show based on a selectInput.
When I select "Four" I should have four tabs including tab2 which should not be visible on the selection of "Three".
The issue is that with the selection of "Four" option the tab2 is not visible in line with others.
Is there a way to use conditionalPanel and make tab2 appear between tab1 and tab3 at the selection of "Four" and not "Three"?
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(
sidebarMenu(
selectInput(
inputId="selectTabs",
label=" Choose Number of TABS", selected = NULL,
choices=c( "Four", "Three" )),
menuItem("TABS Number", tabName = "Tabs", icon = icon("object-ungroup"))
)
),
dashboardBody(
tabItem(tabName = "Tabs",
fluidRow(
column(width=3,
box(
title="Search ",
solidHeader=TRUE,
collapsible=TRUE,
width=NULL,
textInput("textSearch", " Search ", '', placeholder = "Type keyword/statement"),
submitButton("Search")
)
),
column( width=9,
tabBox(
width="100%",
tabPanel("tab1",
htmlOutput("search1")
),
conditionalPanel("input.selectTabs === 'Four'",
tabPanel("tab2",
htmlOutput("search2")
)),
tabPanel("tab3",
htmlOutput("search3")
),
tabPanel("tab4",
htmlOutput("search4")
)
)
)
)
)
)
)
server <- function(input, output) {}
shinyApp(ui, server)
As an update from the suggestion by @annhan concerning the possible duplication, here is my update code which gives me undesirable output in that I have two rows of tabapanels instead of one dynamic one.
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(
sidebarMenu(
selectInput(
inputId="selectTabs",
label=" Choose Number of TABS", selected = NULL,
choices=c( "Four", "Three" )),
menuItem("TABS Number", tabName = "Tabs", icon = icon("object-ungroup"))
)
),
dashboardBody(
tabItem(tabName = "Tabs",
fluidRow(
column(width=3,
box(
title="Search ",
solidHeader=TRUE,
collapsible=TRUE,
width=NULL,
textInput("textSearch", " Search ", '', placeholder = "Type keyword/statement"),
submitButton("Search")
)
),
column( width=9,
conditionalPanel("input.selectTabs == 'Four'",
tabBox(
width="100%",
tabPanel("tab1", value=1,
htmlOutput("search1")
),
tabPanel("tab2", value=2,
htmlOutput("search2")
),
tabPanel("tab3", value=3,
htmlOutput("search3")
),
tabPanel("tab4", value=4,
htmlOutput("search4")
)
)),
conditionalPanel("input.selectTabs == 'Three' && input.selectTabs != 'Four'",
tabBox(
width="100%",
tabPanel("tab1", value=5,
htmlOutput("search1")
),
tabPanel("tab3", value=7,
htmlOutput("search3")
),
tabPanel("tab4", value=8,
htmlOutput("search4")
)
))
)))))
server <- function(input, output) {}
shinyApp(ui, server)
r shiny
add a comment |
up vote
0
down vote
favorite
I am using a conditionalPanel option to choose the tabs to show based on a selectInput.
When I select "Four" I should have four tabs including tab2 which should not be visible on the selection of "Three".
The issue is that with the selection of "Four" option the tab2 is not visible in line with others.
Is there a way to use conditionalPanel and make tab2 appear between tab1 and tab3 at the selection of "Four" and not "Three"?
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(
sidebarMenu(
selectInput(
inputId="selectTabs",
label=" Choose Number of TABS", selected = NULL,
choices=c( "Four", "Three" )),
menuItem("TABS Number", tabName = "Tabs", icon = icon("object-ungroup"))
)
),
dashboardBody(
tabItem(tabName = "Tabs",
fluidRow(
column(width=3,
box(
title="Search ",
solidHeader=TRUE,
collapsible=TRUE,
width=NULL,
textInput("textSearch", " Search ", '', placeholder = "Type keyword/statement"),
submitButton("Search")
)
),
column( width=9,
tabBox(
width="100%",
tabPanel("tab1",
htmlOutput("search1")
),
conditionalPanel("input.selectTabs === 'Four'",
tabPanel("tab2",
htmlOutput("search2")
)),
tabPanel("tab3",
htmlOutput("search3")
),
tabPanel("tab4",
htmlOutput("search4")
)
)
)
)
)
)
)
server <- function(input, output) {}
shinyApp(ui, server)
As an update from the suggestion by @annhan concerning the possible duplication, here is my update code which gives me undesirable output in that I have two rows of tabapanels instead of one dynamic one.
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(
sidebarMenu(
selectInput(
inputId="selectTabs",
label=" Choose Number of TABS", selected = NULL,
choices=c( "Four", "Three" )),
menuItem("TABS Number", tabName = "Tabs", icon = icon("object-ungroup"))
)
),
dashboardBody(
tabItem(tabName = "Tabs",
fluidRow(
column(width=3,
box(
title="Search ",
solidHeader=TRUE,
collapsible=TRUE,
width=NULL,
textInput("textSearch", " Search ", '', placeholder = "Type keyword/statement"),
submitButton("Search")
)
),
column( width=9,
conditionalPanel("input.selectTabs == 'Four'",
tabBox(
width="100%",
tabPanel("tab1", value=1,
htmlOutput("search1")
),
tabPanel("tab2", value=2,
htmlOutput("search2")
),
tabPanel("tab3", value=3,
htmlOutput("search3")
),
tabPanel("tab4", value=4,
htmlOutput("search4")
)
)),
conditionalPanel("input.selectTabs == 'Three' && input.selectTabs != 'Four'",
tabBox(
width="100%",
tabPanel("tab1", value=5,
htmlOutput("search1")
),
tabPanel("tab3", value=7,
htmlOutput("search3")
),
tabPanel("tab4", value=8,
htmlOutput("search4")
)
))
)))))
server <- function(input, output) {}
shinyApp(ui, server)
r shiny
Possible duplicate of Add dynamic tabs in shiny dashboard using conditional panel
– annhak
Nov 9 at 13:15
@annhak possibly it is a duplicate but if you see the update it gives me two columns of tabpanels. Is there something I am doing wrong?
– R noob
Nov 13 at 10:13
add a comment |
up vote
0
down vote
favorite
up vote
0
down vote
favorite
I am using a conditionalPanel option to choose the tabs to show based on a selectInput.
When I select "Four" I should have four tabs including tab2 which should not be visible on the selection of "Three".
The issue is that with the selection of "Four" option the tab2 is not visible in line with others.
Is there a way to use conditionalPanel and make tab2 appear between tab1 and tab3 at the selection of "Four" and not "Three"?
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(
sidebarMenu(
selectInput(
inputId="selectTabs",
label=" Choose Number of TABS", selected = NULL,
choices=c( "Four", "Three" )),
menuItem("TABS Number", tabName = "Tabs", icon = icon("object-ungroup"))
)
),
dashboardBody(
tabItem(tabName = "Tabs",
fluidRow(
column(width=3,
box(
title="Search ",
solidHeader=TRUE,
collapsible=TRUE,
width=NULL,
textInput("textSearch", " Search ", '', placeholder = "Type keyword/statement"),
submitButton("Search")
)
),
column( width=9,
tabBox(
width="100%",
tabPanel("tab1",
htmlOutput("search1")
),
conditionalPanel("input.selectTabs === 'Four'",
tabPanel("tab2",
htmlOutput("search2")
)),
tabPanel("tab3",
htmlOutput("search3")
),
tabPanel("tab4",
htmlOutput("search4")
)
)
)
)
)
)
)
server <- function(input, output) {}
shinyApp(ui, server)
As an update from the suggestion by @annhan concerning the possible duplication, here is my update code which gives me undesirable output in that I have two rows of tabapanels instead of one dynamic one.
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(
sidebarMenu(
selectInput(
inputId="selectTabs",
label=" Choose Number of TABS", selected = NULL,
choices=c( "Four", "Three" )),
menuItem("TABS Number", tabName = "Tabs", icon = icon("object-ungroup"))
)
),
dashboardBody(
tabItem(tabName = "Tabs",
fluidRow(
column(width=3,
box(
title="Search ",
solidHeader=TRUE,
collapsible=TRUE,
width=NULL,
textInput("textSearch", " Search ", '', placeholder = "Type keyword/statement"),
submitButton("Search")
)
),
column( width=9,
conditionalPanel("input.selectTabs == 'Four'",
tabBox(
width="100%",
tabPanel("tab1", value=1,
htmlOutput("search1")
),
tabPanel("tab2", value=2,
htmlOutput("search2")
),
tabPanel("tab3", value=3,
htmlOutput("search3")
),
tabPanel("tab4", value=4,
htmlOutput("search4")
)
)),
conditionalPanel("input.selectTabs == 'Three' && input.selectTabs != 'Four'",
tabBox(
width="100%",
tabPanel("tab1", value=5,
htmlOutput("search1")
),
tabPanel("tab3", value=7,
htmlOutput("search3")
),
tabPanel("tab4", value=8,
htmlOutput("search4")
)
))
)))))
server <- function(input, output) {}
shinyApp(ui, server)
r shiny
I am using a conditionalPanel option to choose the tabs to show based on a selectInput.
When I select "Four" I should have four tabs including tab2 which should not be visible on the selection of "Three".
The issue is that with the selection of "Four" option the tab2 is not visible in line with others.
Is there a way to use conditionalPanel and make tab2 appear between tab1 and tab3 at the selection of "Four" and not "Three"?
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(
sidebarMenu(
selectInput(
inputId="selectTabs",
label=" Choose Number of TABS", selected = NULL,
choices=c( "Four", "Three" )),
menuItem("TABS Number", tabName = "Tabs", icon = icon("object-ungroup"))
)
),
dashboardBody(
tabItem(tabName = "Tabs",
fluidRow(
column(width=3,
box(
title="Search ",
solidHeader=TRUE,
collapsible=TRUE,
width=NULL,
textInput("textSearch", " Search ", '', placeholder = "Type keyword/statement"),
submitButton("Search")
)
),
column( width=9,
tabBox(
width="100%",
tabPanel("tab1",
htmlOutput("search1")
),
conditionalPanel("input.selectTabs === 'Four'",
tabPanel("tab2",
htmlOutput("search2")
)),
tabPanel("tab3",
htmlOutput("search3")
),
tabPanel("tab4",
htmlOutput("search4")
)
)
)
)
)
)
)
server <- function(input, output) {}
shinyApp(ui, server)
As an update from the suggestion by @annhan concerning the possible duplication, here is my update code which gives me undesirable output in that I have two rows of tabapanels instead of one dynamic one.
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(
sidebarMenu(
selectInput(
inputId="selectTabs",
label=" Choose Number of TABS", selected = NULL,
choices=c( "Four", "Three" )),
menuItem("TABS Number", tabName = "Tabs", icon = icon("object-ungroup"))
)
),
dashboardBody(
tabItem(tabName = "Tabs",
fluidRow(
column(width=3,
box(
title="Search ",
solidHeader=TRUE,
collapsible=TRUE,
width=NULL,
textInput("textSearch", " Search ", '', placeholder = "Type keyword/statement"),
submitButton("Search")
)
),
column( width=9,
conditionalPanel("input.selectTabs == 'Four'",
tabBox(
width="100%",
tabPanel("tab1", value=1,
htmlOutput("search1")
),
tabPanel("tab2", value=2,
htmlOutput("search2")
),
tabPanel("tab3", value=3,
htmlOutput("search3")
),
tabPanel("tab4", value=4,
htmlOutput("search4")
)
)),
conditionalPanel("input.selectTabs == 'Three' && input.selectTabs != 'Four'",
tabBox(
width="100%",
tabPanel("tab1", value=5,
htmlOutput("search1")
),
tabPanel("tab3", value=7,
htmlOutput("search3")
),
tabPanel("tab4", value=8,
htmlOutput("search4")
)
))
)))))
server <- function(input, output) {}
shinyApp(ui, server)
r shiny
r shiny
edited Nov 13 at 10:19
asked Nov 9 at 13:02
R noob
597
597
Possible duplicate of Add dynamic tabs in shiny dashboard using conditional panel
– annhak
Nov 9 at 13:15
@annhak possibly it is a duplicate but if you see the update it gives me two columns of tabpanels. Is there something I am doing wrong?
– R noob
Nov 13 at 10:13
add a comment |
Possible duplicate of Add dynamic tabs in shiny dashboard using conditional panel
– annhak
Nov 9 at 13:15
@annhak possibly it is a duplicate but if you see the update it gives me two columns of tabpanels. Is there something I am doing wrong?
– R noob
Nov 13 at 10:13
Possible duplicate of Add dynamic tabs in shiny dashboard using conditional panel
– annhak
Nov 9 at 13:15
Possible duplicate of Add dynamic tabs in shiny dashboard using conditional panel
– annhak
Nov 9 at 13:15
@annhak possibly it is a duplicate but if you see the update it gives me two columns of tabpanels. Is there something I am doing wrong?
– R noob
Nov 13 at 10:13
@annhak possibly it is a duplicate but if you see the update it gives me two columns of tabpanels. Is there something I am doing wrong?
– R noob
Nov 13 at 10:13
add a comment |
active
oldest
votes
Your Answer
StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");
StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "1"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});
function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});
}
});
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53226229%2fconditionalpanel-with-tabpanel%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
active
oldest
votes
active
oldest
votes
active
oldest
votes
active
oldest
votes
Thanks for contributing an answer to Stack Overflow!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
To learn more, see our tips on writing great answers.
Some of your past answers have not been well-received, and you're in danger of being blocked from answering.
Please pay close attention to the following guidance:
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
To learn more, see our tips on writing great answers.
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53226229%2fconditionalpanel-with-tabpanel%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Possible duplicate of Add dynamic tabs in shiny dashboard using conditional panel
– annhak
Nov 9 at 13:15
@annhak possibly it is a duplicate but if you see the update it gives me two columns of tabpanels. Is there something I am doing wrong?
– R noob
Nov 13 at 10:13