溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
這期內容當中小編將會給大家帶來有關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相關的代碼是這樣的了，如果剛好有類似的疑惑，不妨參照上述分析進行理解。如果想知道更多相關知識，歡迎關注億速云行業資訊頻道。
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
