我正在尝试根据上一个表中的值格式化DT。 例如,我想显示一些东西 增加,减少或保持不变。 我可以用kable做到这一点但是 无法进入下一步我想要克隆一个单元格并显示所有相关数据 到另一个DT的那个值。
library(shiny)
library(DT)
library(dplyr)
ui <- fluidPage(
mainPanel(
dataTableOutput("iris_head")
)
)
server <- function(input, output) {
#df_data <- iris
df_data <- head(iris[-5])
# Just a dataset describing if iris has changed over a month
# If reference data is of the same size as the original data (df_data).
# If reference data is negative I want the cell in the df_data to be green;
# If zero blue and if positive then green.
# I can make changes with ranges within the current range, can we get the color encoding from another table?
# set the seed
set.seed(42)
reference_df <- (sapply(df_data, function(x) jitter(x, amount = 2)) - df_data) %>%
round(. , digits = 0)
print(reference_df)
output$iris_head <- renderDataTable(datatable(df_data, selection = "single" )%>%
formatStyle('Sepal.Width',
color = styleInterval(c(3.4, 3.8), c('green', 'blue', 'red')),
backgroundColor = styleInterval(3.4, c('gray', 'yellow'))) %>%
formatString('Sepal.Width', suffix = '<font color="red">⇑ </font>'))
}
shinyApp(ui = ui, server = server)
在这种情况下reference_df
是:
Sepal.Length Sepal.Width Petal.Length Petal.Width
2 1 2 0
2 -1 -1 0
-1 1 0 2
1 1 2 -1
1 0 2 2
0 1 -2 2
图中显示了所需的输出,我还希望根据reference_df中的值为文本着色,如果可能的话还有背景。
答案 0 :(得分:9)
对于文字颜色部分,您可以使用formatStyle
执行此操作,但需要cbind
df_data
和reference_df
,然后将其传递给datatable
并根据第5列到第8列的值更改第1列到第4列的样式:
datatable(cbind(df_data,reference_df), selection = "single",
options=list(columnDefs = list(list(visible=FALSE, targets=c(5:8)))))%>%
formatStyle(1:4, valueColumns=5:8,
color = JS("value < 0 ? 'red' : value > 0 ? 'green' : 'blue'"))
columnDefs部分隐藏了最后4列。
您不能formatString
根据值,所以如果您想添加箭头,可以修改df_data
以添加颜色和箭头,然后再将其传递给datatable
:
for(col in 1:dim(df_data)[2]){
df_data[col] <- mapply(function(i,j){
ifelse(i > 0, paste0("<span style='color:red'>",j,"<font>⇑ </font></span>"),
ifelse(i<0, paste0("<span style='color:green'>",j,"<font>⇓ </font></span>"),
paste0("<span style='color:blue'>",j,"<font>⇔ </font></span>")))
},reference_df[col],df_data[col])
}
output$iris_head <- renderDataTable(
datatable(df_data, selection = "single",escape = F)
)
这会循环显示df_data
的值,并根据reference_df
的值更改它们。在escape=F
调用中,您需要datatable
作为参数,以防止HTML转义。
如果您想为背景设置颜色等,可以在span
标签中添加更多CSS样式。