R语言shiny中导航栏和侧边栏的示例分析

withProgress(message = "Steps:",value = 0,{incProgress(1/7,detail = paste0("Waitting","1")),incProgress(2/7,detail = paste0("Waitting","2"))}

library(shiny)ui<-navbarPage('Pomegranate',inverse = T,collapsible = T,               tabPanel("Gene Ontology",                        sidebarLayout(                          sidebarPanel(width = 2,textAreaInput("text_area_list",                                                               label = "Please input protein id, one per line",                                                               height = "200px",                                                               width="180px",                                                               value="Pg00001"),                                       selectInput('id_type',label="Input gene-id Type:",                                                   selected = "A",choices = c("A","B","C")),                                       helpText("You are!"),                                       numericInput("pval_cutoff",label = "pvalue-Cutoff",                                                    value=1,min = 0.001,max=1,step = 0.001),                                       numericInput("qval_cutoff",label="qvalue-CutOff",value=1,                                                    min = 0.001,max=1,step=0.001),                                       hr(),                                       helpText("After submit it may take 1-2 minutes. Check Progress bar in right side cornor"),                                       actionButton("submit",label = "Submit",icon=icon('angle-double-right')),                                       tags$hr()),                          mainPanel(                            helpText("Note: After submit it may take 1-2 minutes. Check Progress bar in right side cornor."),                            tags$hr(),                            textOutput("gene_number_info"),                            tags$hr(),                            DT::dataTableOutput(outputId = "gene_number_info_table")                          )                        )))

server<-function(input,output){  observeEvent(input$submit,{    withProgress(message = "Steps:",value = 0,{      incProgress(1/7,detail = paste0("Waitting","1"))      text_area_input <- input$text_area_list      df<-as.data.frame(matrix(unlist(stringr::str_split(text_area_input,"\n")),ncol=1))      print(class(text_area_input))      print(text_area_input)      incProgress(2/7,detail = paste0("Waitting","2"))      output$gene_number_info<-renderText({        paste0("A","B")      })      output$gene_number_info_table<-DT::renderDataTable({        DT::datatable(df)      })    })  })}shinyApp(ui=ui,server=server)