R 更改格式表中表格的宽度

我有以下闪亮的应用程序：

library(shiny)


list1 <- c(0.2,0.8,0.5)
list2 <- c("element1", "element2", "element3")
df <- data.frame(list1, list2)

UI <- fluidPage(
  formattableOutput("table1")
)
Server <- function(input, output) {

  output$table1 <- renderFormattable({
    formattable(df, list(
      list1 = color_tile("green", "red") 
    ))
  })

}


shinyApp(ui = UI, server = Server)

库（闪亮）
list1Shiny将其代码渲染为HTML，因此您可以实际使用CSS来调整任何您希望在渲染后更改的美学效果。这里有一个使用CSS的简单修复方法

首先在应用程序目录中创建一个目录，
www
，并创建一个名为
styles.css
的文件，该文件将用作您的css文件。将以下行添加到
style.css
：

table {
  width: 400px !important;
}

这会将应用程序中显示的所有表格的宽度调整为400px，您可以根据需要更改此值。接下来，将
includecs（“www/styles.css”）
添加到应用程序的UI部分，如下所示：

library(shiny)


list1 <- c(0.2,0.8,0.5)
list2 <- c("element1", "element2", "element3")
df <- data.frame(list1, list2)

UI <- fluidPage(
  includeCSS("www/styles.css"),
  formattableOutput("table1")
)
Server <- function(input, output) {

  output$table1 <- renderFormattable({
    formattable(df, list(
      list1 = color_tile("green", "red") 
    ))
  })

}


shinyApp(ui = UI, server = Server)

库（闪亮）
list1Shiny将其代码渲染为HTML，因此您可以实际使用CSS来调整任何您希望在渲染后更改的美学效果。这里有一个使用CSS的简单修复方法

首先在应用程序目录中创建一个目录，
www
，并创建一个名为
styles.css
的文件，该文件将用作您的css文件。将以下行添加到
style.css
：

table {
  width: 400px !important;
}

这会将应用程序中显示的所有表格的宽度调整为400px，您可以根据需要更改此值。接下来，将
includecs（“www/styles.css”）
添加到应用程序的UI部分，如下所示：

library(shiny)


list1 <- c(0.2,0.8,0.5)
list2 <- c("element1", "element2", "element3")
df <- data.frame(list1, list2)

UI <- fluidPage(
  includeCSS("www/styles.css"),
  formattableOutput("table1")
)
Server <- function(input, output) {

  output$table1 <- renderFormattable({
    formattable(df, list(
      list1 = color_tile("green", "red") 
    ))
  })

}


shinyApp(ui = UI, server = Server)

库（闪亮）
清单1