这期内容当中小编将会给大家带来有关IRscope代码中ui相关的代码是这样的，文章内容丰富且以专业的角度为大家分析和叙述，阅读完这篇文章希望大家可以有所收获。
IRscope是用来可视化叶绿体基因组边界收缩扩张的一个shiny应用。最想学习的是其中鉴定反向重复区的代码和画图用到的代码。
但是这两个函数实在是太长了，看起来还有些吃力。
今天记录一下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相关的代码是这样的了，如果刚好有类似的疑惑，不妨参照上述分析进行理解。如果想知道更多相关知识，欢迎关注亿速云行业资讯频道。
亿速云「云服务器」，即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘，价格低至29元/月。点击查看>>
免责声明：本站发布的内容（图片、视频和文字）以原创、转载和分享为主，文章观点不代表本网站立场，如果涉及侵权请联系站长邮箱：is@yisu.com进行举报，并提供相关证据，一经查实，将立刻删除涉嫌侵权内容。
原文链接：https://my.oschina.net/u/4579431/blog/4347435
