f7InsertTab: Reactive elements created inside are losing reactiviy

[ppagnone]

Hi, thanks for your great job with this package!

In the example below, I am creating a reactive input inside of a tab created with f7InsertTab and this is losing the reactivity.
Also I saw that icon of f7tab is not rendering when is created with f7InsertTab (in all browsers).

Thanks in advance

library(shinyMobile)
ui = function(){
    f7Page(
    title = "Test", 
    manifest = "manifest.json",
    init = f7Init(
      skin = "aurora",
      theme = "light",
      filled = FALSE,
      color = "red",
      hideTabsOnPageScroll = FALSE,
      serviceWorker = "service-worker.js",
      iosTranslucentBars = FALSE,
      pullToRefresh = FALSE
    ),
    f7TabLayout(
      navbar = f7Navbar(
        title = "Test",
        hairline = FALSE,
        shadow = TRUE,
        left_panel = TRUE,
        right_panel = FALSE
      ),
      f7Tabs(
        animated = FALSE,
        swipeable = TRUE,
        id="tabs",
        f7Tab(
          tabName = "Home",
          icon = f7Icon("house"),
          active = TRUE
        )
      )
    )
  ) 
}

server = function(input, output, session) {
  
  observe({
  
    f7InsertTab(
      inputId = "tabs",
      position = "after",
      target = "Home",
      tab =       f7Tab(
        tabName = "Settings",
        icon = f7Icon("gear"),
        active = FALSE,
        f7Card(title = "Language",
               f7Select(
                 inputId = session$ns("language"),
                 label = "Language",
                 choices = c("en_us","es_ar"),
                 selected = "es_ar")
        )
      ),
      select = FALSE
      
    )
  })
  
  observeEvent(input$language,{
    print("on select language")
    browser()
  })
  
}

shiny::shinyApp(ui = ui, server = server)

[DivadNojnarg]

Fixed in latest devel version:

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 = TRUE,
        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), 
          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))
      })
    })
  }
)

[ppagnone]

Thanks @DivadNojnarg !!