Shiny/ui.R

In ToshihiroIguchi/calcor: Calculate correlation

#http://www.randpy.tokyo/entry/shiny_16

library(shiny)


shinyUI(
  fluidPage(
    sidebarLayout(
      sidebarPanel(
        fileInput("file", "CSVファイルを選択",
                  accept = c(
                    "text/csv",
                    "text/comma-separated-values,text/plain",
                    ".csv")
        ),
        htmlOutput("colname"),
        actionButton("submit", "解析"),
        h1(" "),h1(" "),
        htmlOutput("plotname")

      ),


      mainPanel(
        tabsetPanel(type = "tabs",
                    tabPanel("data", tableOutput("table")),
                    tabPanel("p-value", tableOutput("plist")),
                    tabPanel("Plot", plotOutput("plot"))

        )
      )
    )
  )
)