uiOutput does not work in the f7Panel

[agronomofiorentini]

Dear Creator,
First of all thanks for the effort to develop this package, it is amazing.

I'm trying to get f7Select to display f7Panels using uiOutput but I can't do it

How can I solve this problem?

The following is the app.R code

library(shiny)
library(shinyMobile)

ui <- f7Page(title = "shinyMobile Github Issue",
             f7TabLayout(navbar=f7Navbar(title = "shinyMobile Github Issue",
                                         hairline = FALSE,
                                         shadow = TRUE,
                                         transparent = T,
                                         leftPanel = TRUE,
                                         rightPanel = TRUE),

                         panels = tagList(f7Panel(title = "Left Panel",
                                                  side = "left",
                                                  theme = "dark",
                                                  resizable = T,
                                                  effect = "cover",
                                                  uiOutput("tryuiOutput_1"),
                                                  f7PanelMenu("Try 1",
                                                              id = "try_1",
                                                              f7PanelItem(title="Try 1 - A",
                                                                          tabName="try_1_a")),
                                                  f7PanelMenu("Try 2",
                                                              id = "try_2",
                                                              f7PanelItem(title="Try 2 - A",
                                                                          tabName="try_2_a"))),

                                          f7Panel(title = "Right Panel",
                                                  side = "right",
                                                  theme = "dark",

                                                  uiOutput("tryuiOutput_2"),

                                                  effect = "cover")),

                         f7Items(f7Item(tabName = "try_1_a",
                                        textOutput("select_try_uiOutput_1_a"),
                                        textOutput("select_try_uiOutput_2_a"),))
             )
)

server <- function(input, output) {

  output$tryuiOutput_1<-renderUI({
    f7Select("tryuiOutput_1_a",
             label = "Select",
             choices = c("A",
                         "B"),
             selected = "A")
  })

  output$tryuiOutput_2<-renderUI({
    selectInput("tryuiOutput_2_a",
             label = "Select",
             choices = c("A",
                         "B"),
             selected = "B")
  })

  output$select_try_uiOutput_1_a<-renderText({
    req(input$tryuiOutput_1_a)
    input$tryuiOutput_1_a
  })

  output$select_try_uiOutput_2_a<-renderText({
    req(input$tryuiOutput_2_a)
    input$tryuiOutput_2_a
  })

}

shinyApp(ui = ui, server = server)

And this are the session information

R version 4.2.0 (2022-04-22 ucrt)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 10 x64 (build 22000)

Matrix products: default

locale:
[1] LC_COLLATE=Italian_Italy.utf8  LC_CTYPE=Italian_Italy.utf8    LC_MONETARY=Italian_Italy.utf8
[4] LC_NUMERIC=C                   LC_TIME=Italian_Italy.utf8    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] shinyMobile_1.0.0 shiny_1.7.4      

loaded via a namespace (and not attached):
 [1] fs_1.5.2              usethis_2.1.6         lubridate_1.9.0       fontawesome_0.4.0    
 [5] devtools_2.4.5        bit64_4.0.5           httr_1.4.4            rprojroot_2.0.3      
 [9] tools_4.2.0           profvis_0.3.7         backports_1.4.1       bslib_0.4.2          
[13] utf8_1.2.2            R6_2.5.1              DT_0.26               automagic_0.5.1      
[17] DBI_1.1.3             urlchecker_1.0.1      withr_2.5.0           tidyselect_1.2.0     
[21] prettyunits_1.1.1     processx_3.8.0        bit_4.0.5             compiler_4.2.0       
[25] cli_3.4.1             shiny.i18n_0.2.1      xml2_1.3.3            shinyjs_2.1.0        
[29] desc_1.4.2            otp_0.1.0             sass_0.4.4            callr_3.7.3          
[33] stringr_1.5.0         digest_0.6.31         shinyFeedback_0.4.0   rmarkdown_2.19       
[37] pkgconfig_2.0.3       htmltools_0.5.4.9000  sessioninfo_1.2.2     attempt_0.3.1        
[41] fastmap_1.1.0         htmlwidgets_1.6.0     rlang_1.0.6           rstudioapi_0.14      
[45] jquerylib_0.1.4       generics_0.1.3        jsonlite_1.8.4        dplyr_1.0.10         
[49] config_0.3.1          magrittr_2.0.3        Rcpp_1.0.9            fansi_1.0.3          
[53] RPostgreSQL_0.7-4     shinycssloaders_1.0.0 lifecycle_1.0.3       stringi_1.7.8        
[57] yaml_2.3.6            pkgbuild_1.4.0        blob_1.2.3            promises_1.2.0.1     
[61] shinydashboard_0.7.2  crayon_1.5.2          miniUI_0.1.1.1        hms_1.1.2            
[65] knitr_1.41            ps_1.7.2              pillar_1.8.1          uuid_1.1-0           
[69] base64url_1.4         pkgload_1.3.2         glue_1.6.2            evaluate_0.19        
[73] golem_0.3.5           RPostgres_1.4.4       remotes_2.4.2         vctrs_0.5.1          
[77] attachment_0.3.0      httpuv_1.6.6          purrr_0.3.5           tidyr_1.2.1          
[81] assertthat_0.2.1      cachem_1.0.6          xfun_0.35             mime_0.12            
[85] xtable_1.8-4          roxygen2_7.2.3        later_1.3.0           tibble_3.1.8         
[89] polished_0.7.0        memoise_2.0.1         shinyWidgets_0.7.5    timechange_0.1.1     
[93] ellipsis_0.3.2   

I hope that i have provided all the needed information.