#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"))
)
)
)
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.