如何根據R Shiny DT中的模式突出顯示一行中相鄰單元格的串，每個單元格包含單個字符

Question

此查詢的擴展，我前面的查詢在這個論壇。 但是，這一次我必須連續處理一系列字符，每個字符在一個單元格中，如下圖所示。 我想根據如下模式突出顯示或更改某些單元格的背景：

1. 任何包含A?C等字母的相鄰單元格在哪里? 可以是任何字母或

2. 單元格中的M或

3. 相鄰單元格中的N和F類似於NF ，如下圖所示。

換句話說，需要將此表轉換為

使用R Shiny DT中的rowCallback函數。

Answer 1

我在這里整理我的包，所以這可能對您不適合，因為它僅使用HTML表而不是DT，並且可以在R端而不是在javascript中使用。

find_pattern <- function (pat, mat) {
  # collapse the row into a single string:
  strings <- apply(mat, 1, paste0, collapse = '')
  # find the patterns you want:
  found   <- gregexpr(pat, strings, perl = TRUE)
  # the rest is just housekeeping:
  pos <- matrix(FALSE, nrow(mat), ncol(mat))
  lapply(seq_along(found), function (x) {
    matches <- found[[x]]
    lens <- attr(matches, 'match.length')
    if (all(matches == -1)) return()
    for (p in seq_along(matches)) {
      start <- matches[p]
      len <- lens[p]
      end <- start + len - 1
      pos[x, start:end] <<- TRUE 
    }
  })
  which(pos, arr.ind = TRUE)
}

library(huxtable)
mydata <- matrix(sample(c('A', 'B', 'C', 'M', 'N', 'F'), 750, replace=TRUE), 3, 250)
colnames(mydata) <- paste0('X', 1:250)
myhux <- as_hux(mydata, add_colnames = TRUE)
myhux <- set_all_borders(myhux, 1)
background_color(myhux)[1,] <- 'grey'
background_color(myhux)[myhux == 'M'] <- 'green'
background_color(myhux)[find_pattern('A.C', myhux)] <- 'yellow'
background_color(myhux)[find_pattern('NF', myhux)] <- 'blue'
myhux

結果是：

find_pattern函數將接受您向其拋出的任何perl正則表達式。 AC表示A，后接任意字母，后接C。