library(shiny)
library(htmlwidgets)
library(D3TableFilter)
shinyUI(fluidPage(
title = 'Interactive features',
tabsetPanel(
tabPanel("Editing and filtering",
fluidRow(
column(width = 2,
h4("Functions"),
wellPanel(
radioButtons("editingCol0", "Rownames editing", choices = c("Enable" = TRUE, "Disable" = FALSE), selected = FALSE)
),
# clear filters seems to be not availalbe in current tablefilter
# wellPanel(
# actionButton("clearfilter", "Clear filters")
# ),
wellPanel(
textInput("filterString", "Filter rownames", value = "rgx:^D"),
actionButton("dofilter", "Set filter")
),
wellPanel(
selectInput("cellVal", label = "Merc 240D cylinders", choice = c(4, 6, 8, 10, 12), selected = 4, multiple = FALSE)
),
wellPanel(
uiOutput("candidateUi"),
actionButton("favorite", label = "Make Datsun favorite")
),
wellPanel(
selectInput("summaryRow", label = "Summary row", choice = c("mean", "median"), multiple = FALSE)
)
),
column(width = 5,
h4("mtcars"),
d3tfOutput('mtcars', height = "auto")
),
column(width = 5,
h4("Last edits"),
tableOutput("edits"),
h4("Filters"),
tableOutput("filters"),
h4("Filter results"),
tableOutput("filtering"),
h4("mtcars after filtering and editing"),
tableOutput("filteredMtcars")
) # column
) # fluidRow
), # tabPanel
tabPanel("Row selection",
fluidRow(column(width = 12, h4("Row selection"))),
fluidRow(
column(width = 2,
HTML("Click on the table to select a row. <code>Ctrl</code>
click for multiple selection. The columns in this table
are resizable."),
wellPanel(
helpText("This demonstrates the setRowClass to highlight a specific row using contextual classes from bootstrap. Can also be used to unselect a row"),
selectInput("hornetClass", "Set row class on 'Hornet Sportabout'", choices = c("none", "active", "success", "info", 'warning', "danger"), selected = "none")
)
),
column(width = 5,
d3tfOutput('mtcars2', height = "2000px")
),
column(width = 5,
tableOutput("mtcars2Output")
)
)
) # tabset panel
)))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.