Open Shicheng-Guo opened 2 years ago
Why width=1 and width>1 show exactly different effect?
library(shiny) library(ggplot2) # for the diamonds dataset ui <- fluidPage( title = "Examples of DataTables", sidebarLayout( sidebarPanel( width=1, conditionalPanel( 'input.dataset === "diamonds"', checkboxGroupInput("show_vars", "Columns in diamonds to show:", names(diamonds), selected = names(diamonds)) ), conditionalPanel( 'input.dataset === "mtcars"', helpText("Click the column header to sort a column.") ), conditionalPanel( 'input.dataset === "iris"', helpText("Display 5 records by default.") ) ), mainPanel( tabsetPanel( id = 'dataset', tabPanel("diamonds", DT::dataTableOutput("mytable1")), tabPanel("mtcars", DT::dataTableOutput("mytable2")), tabPanel("iris", DT::dataTableOutput("mytable3")) ) ) ) ) server <- function(input, output) { # choose columns to display diamonds2 = diamonds[sample(nrow(diamonds), 50), ] output$mytable1 <- DT::renderDataTable({ DT::datatable(diamonds2[, input$show_vars, drop = FALSE]) }) # sorted columns are colored now because CSS are attached to them output$mytable2 <- DT::renderDataTable({ DT::datatable(mtcars, options = list(orderClasses = TRUE)) }) # customize the length drop-down menu; display 5 rows per page by default output$mytable3 <- DT::renderDataTable({ DT::datatable(iris, options = list(lengthMenu = c(5, 5, 5), pageLength = 5)) }) } shinyApp(ui, server)
Why width=1 and width>1 show exactly different effect?