library(shiny)
library(ggplot2) # for the diamonds dataset
shinyUI(
fluidPage(
fluidRow(
column(12,
selectInput("dataset",
"Dataset:",
c("IMF","World Bank","OECD"))
)
),
fluidRow(
column(12,
dataTableOutput('mytable1'))
)
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.