1

我有一个 R 矩阵，我想在浏览器中作为 html 表打开（也许使用htmlwidgets包？）。

还有第二个匹配矩阵，我想将其单元格的内容添加为浏览器表中各个单元格的翻转工具提示。

是否存在将工具提示矩阵传递给表格的现有方法，自动将每个单元格的内容包装在适当的 on.mouseover 工具提示操作中？

下面是一些创建源对象的代码，带有值和标签矩阵，分别形成单元格内容和鼠标悬停提示内容。

ncol = 4 # typically rank 1:9
n = ncol^2
values = matrix(round(rnorm(n),2), nrow = ncol, byrow = T)
labs = paste0("r", rep(1:ncol, each = ncol), "c", rep(1:ncol, times = ncol))
labels = matrix(labs, nrow = ncol, byrow = T)
free = matrix(rbinom(n= size, size = 1, prob = .5), nrow = ncol, byrow = T)

myObj = list(values = values, labels = labels, free = free)

想要一个打开 ncol × ncol html 表格的函数，使用“值”填充每个单元格，并且在 on.mouseover 上，工具提示显示与该单元格对应的标签。

对于加分，使用自由矩阵的内容为值着色，红色为 FALSE，绿色为 TRUE。

4

1 回答 1

3

这是一个快速示例，说明如何实现此效果。我试图保持简单以使其更清晰。我们可以轻松添加更高级的功能和样式。我为加分添加了一些样式。

ncol = 4 # typically rank 1:9
n = ncol^2
values = matrix(round(rnorm(n),2), nrow = ncol, byrow = T)
labs = paste0("r", rep(1:ncol, each = ncol), "c", rep(1:ncol, times = ncol))
labels = matrix(labs, nrow = ncol, byrow = T)
free = matrix(rbinom(n= n, size = 1, prob = .5), nrow = ncol, byrow = T)

myObj = list(values = values, labels = labels, free = free)


# use formattable, htmlwidgets, and htmltools
library(formattable)
library(htmltools)
library(htmlwidgets)
# see what formattable gives us
formattable(myObj$values)

# now make each of our cells
#  contain information for our tooltip
m_html <- matrix(
  mapply(
    function(value, label, free){
      as.character(tags$span(
        "data-toggle"="tooltip",
        "title" = paste0(label, ": ", free),
        formatC(value, format="f", digits=3)
      ))
    },
    myObj$values,
    myObj$labels,
    myObj$free
  ),
  ncol = 4
)

browsable(
  attachDependencies(
    tagList(
      onRender(
        as.htmlwidget(formattable(m_html)),
  "
  function(el,x){
    $(el).find('[data-toggle=\"tooltip\"]').tooltip()
  }
  "      
      )
    ),
    shiny::bootstrapLib()
  )
)

这是一种非常简单的方法，可以以不同的方式执行上述操作，并添加您建议的样式。

# purrr could ease some of this pain
#  but wanted to avoid dependencies
formattable(
  matrix(
    formatter(
      "span",
      "data-toggle" = "tooltip",
      # use the label and free to add a simple title
      #  this can be infinitely styled and refined
      "title" = mapply(
        function(value,label,free) {
          paste0(label,": ",free)
        },
        myObj$values, myObj$label, myObj$free
      ),
      # color the background of cells based on free
      "style" = mapply(
        function(value,free) {
          if(free==1) color = "red"
          if(free==0) color = "green"
          paste0("display:block; background:",color,";")
        },
        myObj$values, myObj$free
      ),
      # values will be the text in the cells
      x~x
    )(myObj$values),
    # put back in a matrix of ncol=4
    ncol=4
  )
)
于 2016-05-23T03:35:16.213 回答