reshape.data.panel <- function(data.set) {
if (is.null(data.set)) {
sidebarLayout(
sidebarPanel(help.display(
"Reshape dataset",
"reshape_data",
"panels/E7_ReshapeDataset/3_reshape.data.help.md"
)),
mainPanel(h1("Please select or import a data set."))
)
} else {
sidebarLayout(
sidebarPanel(
actionButton("reshape.data.submit", label = "reshape"), br(), br(),
help.display(
"Reshape dataset",
"reshape_data",
"panels/E7_ReshapeDataset/3_reshape.data.help.md"
)
),
mainPanel(
helpText("The table below shows the reshapd dataset. If the
reshape button is pressed on the right, the
selected dataset is reshaped and the reshaped version
of the reshaped dataset is displyed."),
DTOutput("reshape.data.table")
)
)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.