R-手动设置有条件格式的边界，并具有闪亮的格式表格

Question

我有以下闪亮应用程序：

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)

现在，列表具有某种条件格式。这有效。但是，我希望能够为自己的格式化界限。因此，fe -low屏障(绿色(应为0，上边界(红色(应为1。

关于我如何做的任何建议？

Answer 1

我找不到使用任何格式的功能手动设置条件格式边界的任何方法。但是，似乎边界始终设置为给定列的最小和最大，因此您可以通过硬编码两个行，包含所需的min和max来解决此问题，然后使用SO这样的CSS隐藏它们：

CSS：

/*
* www/styles.css
*/
table tr:nth-child(-n + 2) {
  display: none;
}

r：

library(shiny)
list1 <- c(0.0,1.0,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)

请注意，只有在要显示的值全部介于零和一个之间，此修复程序才能起作用。如果您使用该范围以外的任何东西，则边界将重置为新的最小/最大