shiny案例-搭建一个简易框架

探序基因计算中心  整理

新建一个文件夹，然后再新建两个文件，ui.R和server.R

ui.R:

library(shiny)

ui <- fluidPage(

  titlePanel("testtest"),

  navbarPage(title = "scdata",

            #Tag1

            tabPanel("function1",

                      h3("Note for input:"),

                      br(),

                      h5("1. testtest;"),

                      br(),

                      fluidRow(

                        #part1

                        column(4,

                              h4("Data input:"),

                        ),

                        #part2

                        column(3,

                              h4("Parameters:"),

                        ),

                        #part3

                        column(2,

                              h4("Running:"),

                              br(),

                              actionButton("Tag0GoBut1", "plot all",width = '200px'),

                              actionButton("Tag0GoBut2", "plot gene dis",width = '200px'),

                        ),

                        plotOutput(outputId = "scPlot1"),

                        plotOutput(outputId = "scPlot2")

                    )

            ),

            #Tag1

            #Tag2

            tabPanel("function2")

            #Tag2

  )

)

server.R:

server <- function(input, output)

{

}