How to reduce loading time on selectInput

Posit Professional & Hosted Products shinyapps.io
1

Hi all I was using the widget selectInput for more than 60000 values. but it is taking more than 4-5 mins to load. How to reduce this loading time on selectInput. My code is here

library(shiny)
library(ggplot2)
library(ggcorrplot)
data<-read.delim("Analysis.txt",sep = ",",header = T)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
conditionalPanel(
'input.dataset === "Analysis"',
helpText("Kindly enter the product name"),
selectInput("show_vars3", 'Options', choices=data$Proc_Name, multiple=TRUE, selectize=TRUE),
helpText("Kindly enter the price name"),
selectInput("show_vars4", 'Options', names(data), multiple=TRUE, selectize=TRUE),
)
),
mainPanel(
tabsetPanel(
tabPanel("Analysis",plotOutput("plot7", width = 1000, height = 600),plotOutput("plot8", width = 1000, height = 600), brush = "user_brush"),
))

Thanks for the help

2

You may be interested to use a server-side approach.
https://shiny.rstudio.com/articles/selectize.html#server-side-selectize

By default, it will use client side approach and all the values are sent into JS to be selected on each client. By keep the value on the servers, you may gain performance.

Look at the documentation of shiny functions, and also of selectize.js

Hope it helps.