as.datatable_widget {expss} | R Documentation |
Create an HTML table widget for usage with Shiny
Description
This is method for rendering results of tables/fre/cro
in Shiny. DT
package should be installed for this
feature (install.packages('DT')
). For detailed description of function
and its arguments see datatable.
Usage
as.datatable_widget(data, ...)
## S3 method for class 'etable'
as.datatable_widget(
data,
...,
repeat_row_labels = FALSE,
show_row_numbers = FALSE,
digits = get_expss_digits()
)
## S3 method for class 'with_caption'
as.datatable_widget(
data,
...,
repeat_row_labels = FALSE,
show_row_numbers = FALSE,
digits = get_expss_digits()
)
Arguments
data |
|
... |
further parameters for datatable |
repeat_row_labels |
logical Should we repeat duplicated row labels in the every row? Default is FALSE. |
show_row_numbers |
logical Default is FALSE. |
digits |
integer By default, all numeric columns are rounded to one digit after
decimal separator. Also you can set this argument by option 'expss.digits'
- for example, |
Value
Object of class datatable
See Also
htmlTable for knitting
Examples
## Not run:
data(mtcars)
mtcars = apply_labels(mtcars,
mpg = "Miles/(US) gallon",
cyl = "Number of cylinders",
disp = "Displacement (cu.in.)",
hp = "Gross horsepower",
drat = "Rear axle ratio",
wt = "Weight (1000 lbs)",
qsec = "1/4 mile time",
vs = "Engine",
vs = c("V-engine" = 0,
"Straight engine" = 1),
am = "Transmission",
am = c("Automatic" = 0,
"Manual"=1),
gear = "Number of forward gears",
carb = "Number of carburetors"
)
mtcars_table = mtcars %>%
tab_cols(total(), am %nest% vs) %>%
tab_cells(mpg, hp) %>%
tab_stat_mean() %>%
tab_cells(cyl) %>%
tab_stat_cpct() %>%
tab_pivot() %>%
set_caption("Table 1. Some variables from mtcars dataset.")
library(shiny)
shinyApp(
ui = fluidPage(fluidRow(column(12, DT::dataTableOutput('tbl')))),
server = function(input, output) {
output$tbl = DT::renderDataTable(
as.datatable_widget(mtcars_table)
)
}
)
## End(Not run)
[Package expss version 0.11.6 Index]