PROSAGA码农传奇-html/HTML5-最初不要在下拉列表中显示值

最初不要在下拉列表中显示值

作者: 糖果
发布时间: 2024-12-12 10:17:45 (1月前)

我们可以通过一些javascript来做到这一点：

library(shiny)
    library(shinyWidgets)
    
    my_autocomplete_list <- c("ICICI Prudential aaaa","ICICI Prudential bbbb","ICICI Prudential ccccc", "Tata dddd","eeee")
    
    ui <- fluidPage(
        sidebarLayout(
            sidebarPanel(
                pickerInput(
                    inputId = "fundname",
                    label = "Search Fund", 
                    choices = my_autocomplete_list,
                    options = list(title = "Search Fund", showContent = FALSE,
                                   `live-search` = TRUE)
                ),
                tags$script(HTML(
                    "
                    $('#fundname').on('show.bs.select', function(){
                        var input = $('.bootstrap-select:has(select[id=\"fundname\"]) .bs-searchbox > input');
                        var opts = $(this).parent().find('div[role=\"listbox\"] ul li');
                        opts.hide();
                        
                        input.on('input', function(e){
                            if ($(this).val() !== \"\") {opts.show();}
                            else {opts.hide();}
                        });
                    });
                    "
                )),
                actionButton("submit", "Submit")
            ),
            mainPanel(
            )
        )
    )
    
    server <- function(input, output, session) { }
    
    # Run App
    shinyApp(ui = ui, server = server)