r - 更改 Shiny tableOutput 中的字体颜色
问题描述
使用 tableOutput 更改单行数据框字体颜色的最简单方法是什么?具体来说,如何将“右”下的“7”改为绿色。
library(shiny)
shinyApp(
ui = fluidPage(
sidebarLayout(
sidebarPanel(
fluidRow(
tableOutput("view")
)
),
mainPanel(
))),
server = function(input, output, session){
correct <- reactiveValues(num = 7)
wrong <- reactiveValues(num = 4)
skipped <- reactiveValues(num = 9)
togo = 80
output$view <- renderTable(tibble(
Right = correct$num,
Wrong = wrong$num,
Skipped = skipped$num,
ToGo = togo
), spacing = "xs")
}
)
解决方案
最好DT
在这种情况下使用renderDataTable
更好的格式。
library(shiny)
library(tidyverse)
library(DT)
shinyApp(
ui = fluidPage(
sidebarLayout(
sidebarPanel(
fluidRow(
column(8,dataTableOutput("view"))
)
),
mainPanel(
))),
server = function(input, output, session){
correct <- reactiveValues(num = 7)
wrong <- reactiveValues(num = 4)
skipped <- reactiveValues(num = 9)
togo = 80
output$view <- renderDataTable(datatable(tibble(
Right = correct$num,
Wrong = wrong$num,
Skipped = skipped$num,
ToGo = togo
)) %>% formatStyle("Right",color=styleEqual(7, "red")) )
}
)
仅显示表格:
library(shiny)
library(tidyverse)
library(DT)
shinyApp(
ui = fluidPage(
sidebarLayout(
sidebarPanel(
fluidRow(
column(8,dataTableOutput("view"))
)
),
mainPanel(
))),
server = function(input, output, session){
correct <- reactiveValues(num = 7)
wrong <- reactiveValues(num = 4)
skipped <- reactiveValues(num = 9)
togo = 80
output$view <- renderDataTable(datatable(tibble(
Right = correct$num,
Wrong = wrong$num,
Skipped = skipped$num,
ToGo = togo
), options = list(dom = 't')) %>% formatStyle("Right",color=styleEqual(7, "red")) )
}
)
推荐阅读
- android - Flutter 在 MainActivity 之外调用 MethodChannel 和 EventChannel
- flutter - 我需要我的子容器占用相等的空间而不指定容器宽度
- python - 执行分组后删除异常值
- python - 读取带盒装问号的 csv
- python-3.x - 发电机根据条件boto3插入或更新
- c++ - 是否可以在 C++ 中创建一个带有负数的 3 维数组
- react-native - 键盘滚动视图问题反应原生
- angular - MatAutoComplete - 当在输入中输入未知文本并按下“ENTER”键时,如何停止在 mat-chip-list 中打开 MatAutoComplete
- python - 神经网络在第一次迭代后表现奇怪
- verilog - 无法为模块创建符号文件,因为端口的类型不受支持