IRscope代碼中ui相關的代碼是這樣的

這期內(nèi)容當中小編將會給大家?guī)碛嘘PIRscope代碼中ui相關的代碼是這樣的，文章內(nèi)容豐富且以專業(yè)的角度為大家分析和敘述，閱讀完這篇文章希望大家可以有所收獲。

江州網(wǎng)站建設公司創(chuàng)新互聯(lián),江州網(wǎng)站設計制作，有大型網(wǎng)站制作公司豐富經(jīng)驗。已為江州1000多家提供企業(yè)網(wǎng)站建設服務。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站建設公司要多少錢，請找那個售后服務好的江州做網(wǎng)站的公司定做！

IRscope是用來可視化葉綠體基因組邊界收縮擴張的一個shiny應用。最想學習的是其中鑒定反向重復區(qū)的代碼和畫圖用到的代碼。

但是這兩個函數(shù)實在是太長了，看起來還有些吃力。

今天記錄一下ui相關的代碼

他的ui代碼主要用到的就是tabPanel，里面沒有太復雜的知識點。

以下是自己手動敲的代碼

library(shiny)

ui <- fluidPage(
 tags$br(),
 HTML('<!DOCTYPE html>
      <html>
      <head>
      <style type="text/css">
      h2 {color:#267A43}
      </style>
      </head>
      <body>
      <div>
      <h2>IRScope</h2>
      </div>
      </body>
      </html>'),
 tags$br(),
 fluidRow(column(width = 1,""),
          column(width=11,offset = 1,tabsetPanel(
            tabPanel(strong("Home"),br(),
                     column(width = 6,h5(tags$em("Welcome to IRscope...")),
                            br(),p(tags$strong("IRscope"),"is a tool for "))),
            tabPanel("Files upload",br(),
                     fluidRow(column(width=11,br(),p("You need .."))),
                     br(),br(),br(),
                     tabsetPanel(tabPanel("GB file",br(),br(),p("In this section you can")),
                                 fluidRow(column(width=2,textInput(inputId = "acc1",label = "Accession No.",placeholder = "1st Accession..")),
                                          column(width = 3,fileInput(inputId = "data1",label="GenBank File",placeholder = "Or GB file")),
                                          column(width = 5,br(),verbatimTextOutput("sp1",placeholder = TRUE)),
                                          column(width = 1,strong("SSC"),br(),checkboxInput("S1",label=icon("transfer",lib="glyphicon"),value=FALSE)),
                                          column(width=1,br())),
                                 fluidRow(column(width=2,textInput(inputId = "acc1",label = "Accession No.",placeholder = "1st Accession..")),
                                          column(width = 3,fileInput(inputId = "data1",label="GenBank File",placeholder = "Or GB file")),
                                          column(width = 5,br(),verbatimTextOutput("sp1",placeholder = TRUE)),
                                          column(width = 1,strong("SSC"),br(),checkboxInput("S1",label=icon("transfer",lib="glyphicon"),value=FALSE)),
                                          column(width=1,br())),
                                 fluidRow(column(width=2,textInput(inputId = "acc1",label = "Accession No.",placeholder = "1st Accession..")),
                                          column(width = 3,fileInput(inputId = "data1",label="GenBank File",placeholder = "Or GB file")),
                                          column(width = 5,br(),verbatimTextOutput("sp1",placeholder = TRUE)),
                                          column(width = 1,strong("SSC"),br(),checkboxInput("S1",label=icon("transfer",lib="glyphicon"),value=FALSE)),
                                          column(width=1,br())),
                                 fluidRow(column(width=2,textInput(inputId = "acc1",label = "Accession No.",placeholder = "1st Accession..")),
                                          column(width = 3,fileInput(inputId = "data1",label="GenBank File",placeholder = "Or GB file")),
                                          column(width = 5,br(),verbatimTextOutput("sp1",placeholder = TRUE)),
                                          column(width = 1,strong("SSC"),br(),checkboxInput("S1",label=icon("transfer",lib="glyphicon"),value=FALSE)),
                                          column(width=1,br())),
                                 column(width=10,verbatimTextOutput("stat"),actionButton("Gbsub",label = "Submit"),
                                        br(),br(),p("After submission the section below will turn innactive")),
                                 downloadButton("downloadData",label="Download"))),
            tabPanel("Manual Files",br(),p("In case your GB files are of low quality or otherwise"),
                     fluidRow(br(),
                              column(width=3,fileInput(inputId="dogma1",label = "Annotations",placeholder = "And Fasta file")),
                              column(width = 6,textInput(inputId = "IR1",label = "IR info (optional)",placeholder = "IR end, IRb start, IRa end")),
                              column(width = 2,br())),
                     fluidRow(column(width=3,fileInput(inputId = "fas1",label = "Genome Fasta",placeholder = "And Fasta file"))),
                     column(width = 10,actionButton("Go","Submit"),br(),br(),p("After submission"))),
            tabPanel("FAQ",br(),column(width=1,""),br(),
                     column(width = 6,h5(strong("Q:"),tags$em(strong("Why the gene names are not displayed properly?"))),
                            p(strong("A:"),"Check your input file(s)"),br(),
                            h5(strong("Q:")))),
            tabPanel("About",br(),column(width=6,p("IRscope and its all dependencies"))),
            tabPanel("Contact",br(),column(width = 6,p("The paper describing this")))
          )))
)

server <- function(input,output){
 
}


shinyApp(ui,server)

最終的效果就是這個樣子

上述就是小編為大家分享的IRscope代碼中ui相關的代碼是這樣的了，如果剛好有類似的疑惑，不妨參照上述分析進行理解。如果想知道更多相關知識，歡迎關注創(chuàng)新互聯(lián)行業(yè)資訊頻道。

網(wǎng)站標題：IRscope代碼中ui相關的代碼是這樣的
標題URL：http://bm7419.com/article40/pcgseo.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供自適應網(wǎng)站、外貿(mào)建站、域名注冊、網(wǎng)站營銷、網(wǎng)站改版、手機網(wǎng)站建設

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉載內(nèi)容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉載，或轉載時需注明來源：創(chuàng)新互聯(lián)

猜你還喜歡下面的內(nèi)容