使用多个表创建单个格式表Table

问：

我是 Shiny 和 R 的新手，我正在尝试使用 Formattable 创建一个表格。我有两个表，一个包含值，另一个包含这些值的重要性。我想使用这两个表来创建一个新表，该表将包含前一个表中的值，并且与之相对应，我们将有一个符号（箭头）来指出该值是否有效（通过使用显着性表中的值，-ve value 表示向下箭头）。

我编写了一个用于显示箭头的示例代码。在这里，我使用了一个表，但我想使用两个表，一个用于值，另一个用于箭头，但是对于生成的解决方案表，值和箭头都应该位于单个单元格中。

table %>%
formattable(
    lapply(table,function(x){
      if(is.numeric(x)){
        x <- paddedcolor_bar_custom(max_of_table = table_max_value)
      } else {
        x <- nocolor_bar_custom()
      }
    })
  )

带衬垫的自定义栏包含以下代码

formattable::formatter("span", 
                        style = x ~ style(font.weight = "bold", 
                                          color = ifelse(x > 0, "grey", ifelse(x < 0, "grey", "black"))), 
                                x ~ icontext(ifelse(x>=0, "arrow-up", "arrow-down"), x))