inst/QuickPlot/ui.R

In ziqiangc/AutoAntigen: Analysis AutoAntigen Data

library(shiny)

shinyUI(fluidPage(
    # headerPanel("Plot for GenePix"),
    titlePanel(h1("Plot for GenePix")),

    fluidRow(
        column(
            4,

            wellPanel(
                uiOutput("choose_dataset"),

                fileInput('uploadfile', 'Or choose your own file',
                          accept="gpr"),


                uiOutput("choose_columns"),

                numericInput("block",
                             label = h4("Block:"),
                             value = 1)


            ),
            # br(),
            tabsetPanel(

                tabPanel("Simple plot",
                    uiOutput("choose_coltype")
                ),

                tabPanel("Heatmap",
                    selectInput("useRank",
                                label = "Use rank matrix or not",
                                choices = list("No rank, use original" = "n",
                                               "Rank whole matrix" = "a",
                                               "Rank with sample" = "s"),
                                selected = "n")
                )

            )
        ),
        column(8,
               tabsetPanel(

                   tabPanel("Simple plot",
                            fluidRow(
                                column(12,
                                       h2("Main plot"), plotOutput("plot1", height = "640px")
                                ),
                                column(12,
                                       h2("Block plot"), plotOutput("plot2",height = "480px")
                                )
                            )
                   ),

                   tabPanel("Heatmap",
                            fluidRow(
                                column(12,
                                       h2("Main plot"), plotOutput("heat1", height = "640px")
                                ),
                                column(12,
                                       h2("Block plot"), plotOutput("heat2",height = "480px")
                                )
                            )

                   )

               )

        )
    )

))

# option 2
# shinyUI(fluidPage(
#     fluidRow(
#         titlePanel(h1("Plot for GenePix")),
#         column(12,
#                fluidRow(
#                    column(4,
#                        fluidRow(
#                            column(12,
#                                   wellPanel(
#                                       uiOutput("choose_dataset"),
#
#                                       uiOutput("choose_columns"),
#
#                                       uiOutput("choose_coltype")
#                                   )
#
#                            ),
#                            column(12,
#                                   wellPanel(
#                                       numericInput("block",
#                                                    label = h4("Block:"),
#                                                    value = 1),
#
#                                       plotOutput("plot2")
#                                   )
#                            )
#                        )
#                    ),
#                    column(8,
#                           h2("Main plot"), plotOutput("plot1", height = "780px")
#                    )
#                ))
#              )
# ))


# option 3 (sidebar + mainpage)
# shinyUI(fluidPage(
#     # headerPanel("Plot for GenePix"),
#     titlePanel(h1("Plot for GenePix")),
#
#     sidebarPanel(
#
#         uiOutput("choose_dataset"),
#
#         uiOutput("choose_columns"),
#
#         uiOutput("choose_coltype"),
#
#         numericInput("block",
#                      label = h4("Block:"),
#                      value = 1),
#
#         plotOutput("plot2")
#
#     ),
#
#     mainPanel(
#         fluidRow(
#             column(12,
#                    fluidRow(
#                        column(12, h2("Main plot"), plotOutput("plot1", height = "600px"))
#
#                    )
#             )
#         )
#
#     )
#
# ))