how to see second tabitem after clicking action button??

[sgr308]

Hello !
I am learning Shiny to develop an app.

I want to see the second tabitem contents (which is table from uploaded file) after I click on Submit button.

I ran the below code but it is not working, even after click on actionbutton, it is still showing me the first tabitem contents or it is not changing !

Thanks

My Code:

# Upload library ----
library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "Simple tabs"),
  dashboardSidebar(
    sidebarMenu(
      id = "tabs",
      menuItem("About", tabName = "first",icon = icon("home")),
      menuItem("Upload Data", tabName = "second", icon = icon("home"),
               fileInput("file1", "Upload a .txt file ",
                         accept = c("text/csv", "text/comma-separated-values,text/plain",".csv",
                                    options(shiny.maxRequestSize=900*1024^2))),
               actionButton('subm', 'Submit'))
    )
  ),
  dashboardBody(
    
    tabItems(
    tabItem(tabName = "first",
            h3("App Ver 0.1.0")
    ),
    tabItem(tabName = "second",
            h2("Results Table"),
            tableOutput("contents")
    )
  )
  )
)

server <- function(input, output, session) {
  observeEvent(input$subm, {
    output$contents <- renderTable(rownames = TRUE,{
      if (is.null(input$file1)) return(NULL)
      head(read.csv(input$file1$datapath))
    })
    updateTabItems(session, "tabs", selected = "second" )
  })
}

shinyApp(ui, server)

[nirgrahamuk]

at first it struck me that you hadn't formatted your code as code; so I have edited your post please read

FAQ: How to format your code

Formatting Code: the Basics All code or console output you include in your posts should be formatted properly. Luckily, this is very easy to do! Just use the code formatting button at the top of the post editing box: [image] Select some code Click the </> button! The code formatting button automatically adds special Markdown formatting symbols to whatever you selected. If you check the preview pane to the right of your post, you'll see that the forum software now outputs nicely formatted code . [04] The code formatting button is pretty smart! It can tell the difference between snippets of code that are part of a sentence and blocks of code that stand alone. …

with that out of the way, the colourising code formatting, makes it clear an obvious problem in your code
notice how the colour at the bottom is not the colour at the start...

@sgr308

actionButton('subm, 'Submit'))

there is no ' ending to 'subm

[sgr308]

Thanks for formatting my code! even after putting ' after subm and correcting to actionButton('subm', 'Submit'), the code is not working,

[ismirsehregal]

The problem here is that childfull menuItems by default don't link to a tabItem - they are used only to present their children after being expanded:

“Childfull” menuItem() s cannot have a tabName or a selected argument (or rather, they can, but this will be completely ignored by Shiny).

Source: Shiny Dashboard Behavior

Childfull means having child tags like your fileInput, the actionButton or another menuItem / menuSubItem.

Please see my answer here:

Show content for menuItem when menuSubItems exist in Shiny Dashboard

for a workaround.

Here is a working version of your code:

# Upload library ----
library(shiny)
library(shinyjs)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "Simple tabs"),
  dashboardSidebar(
    useShinyjs(),
    sidebarMenu(
      id = "tabs",
      menuItem("About", tabName = "first",icon = icon("home")),
      menuItem("Upload Data", expandedName = "second", icon = icon("home"),
               fileInput("file1", "Upload a .txt file ",
                         accept = c("text/csv", "text/comma-separated-values,text/plain",".csv",
                                    options(shiny.maxRequestSize=900*1024^2))),
               actionButton('subm', 'Submit')),
      hidden(menuItem("childlessSecond", tabName = "childlessSecond"))
    )
  ),
  dashboardBody(
    tabItems(
      tabItem(tabName = "first",
              h3("App Ver 0.1.0")
      ),
      tabItem(tabName = "childlessSecond",
              h2("Results Table"),
              tableOutput("contents")
      )
    )
  )
)

server <- function(input, output, session) {
  observeEvent(input$subm, {
    output$contents <- renderTable(rownames = TRUE,{
      if (is.null(input$file1)) return(NULL)
      head(read.csv(input$file1$datapath))
    })
    updateTabItems(session, "tabs", selected = "childlessSecond" )
  })
}

shinyApp(ui, server)

[sgr308]

Thank you so much @ismirsehregal for your help.

The code is working now and will add some more features to complete my app.

Appreciated !!

• Sagar Patel