We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
Below, the inserted tab should not be highlighted and the width is wrong (should be 33% instead of 50%):
library(shiny) library(shinyMobile) shinyApp( ui = f7Page( title = "Insert a tab Before the target", f7TabLayout( panels = tagList( f7Panel(title = "Left Panel", side = "left", theme = "light", "Blabla", effect = "cover"), f7Panel(title = "Right Panel", side = "right", theme = "dark", "Blabla", effect = "cover") ), navbar = f7Navbar( title = "Tabs", hairline = FALSE, shadow = TRUE, leftPanel = TRUE, rightPanel = TRUE ), f7Tabs( animated = FALSE, id = "tabs", f7Tab( tabName = "Tab 1", icon = f7Icon("airplane"), active = TRUE, "Tab 1", f7Button(inputId = "go", label = "Go") ), f7Tab( tabName = "Tab 2", icon = f7Icon("today"), active = FALSE, "Tab 2" ) ) ) ), server = function(input, output, session) { observeEvent(input$go, { insertF7Tab( id = "tabs", position = "before", target = "Tab 1", tab = f7Tab( tabName = paste0("Tab ", input$go + 2), f7Slider("obs", "Number of observations:", min = 0, max = 1000, value = 500 ), plotOutput("distPlot"), icon = f7Icon("app_badge_fill") ), select = FALSE ) output$distPlot <- renderPlot({ hist(rnorm(input$obs)) }) }) } )
The text was updated successfully, but these errors were encountered:
b0a08c4
No branches or pull requests
Below, the inserted tab should not be highlighted and the width is wrong (should be 33% instead of 50%):
The text was updated successfully, but these errors were encountered: