Question

我有一个专栏＆＃34; url＆＃34;其中包含超链接。链接文本是整数。如何使列过滤在DataTables中工作，以便使用链接文本而不是超链接的html执行过滤？以下是一个例子：

static async sendEmail (from, to, subject, text) {
        return new Promise((resolve, reject) => {
            let message = {
                from,
                to,
                subject,
                text
            };
            AMMailing.transporter.sendMail(message, function (err, response) {
                if (err) {
                    reject(err);
                } else {
                    resolve(response);
                }
            });
        });
    }

在上面的数据表中，我想根据url列中的值1和2过滤行。这是目前发生的事情 image

Answer 1

library(DT)

render <- c(
  "function(data, type, row){",
  "  if(type === 'display'){",
  "    var a = '<a href=\"' + row[3] + '\">' + data + '</a>';",
  "    return a;",
  "  } else {",
  "    return data;",
  "  }",
  "}"
)

df <- data.frame(
  Val = c("A", "B"), 
  url = c("google", "stackoverflow"),
  href = c("https://www.google.com", "https://www.stackoverflow.com")
)
datatable(df, escape = FALSE, filter = list(position = "top"), 
          options = list(
            columnDefs = list(
              list(targets = 2, render = JS(render)),
              list(targets = 3, visible = FALSE)
            )
          )
)

Answer 2

你需要url文本是整数吗？如果没有，快速而肮脏的方法是重建html节点以使url的字符串可见。

即

df <- data.frame(Val = c(1,2), url = c("<a href='https://www.google.com'>1</a>", "<a href='https://www.bbc.com'>2</a>")      
df$string_url <-paste("<a href ='", (str_match(df$url, "'(.*?)'")[,2]), "'>", (str_match(df$url, "'(.*?)'")[,2]), "</a>", sep = "" )    
datatable(df[c("Val","string_url")], escape = FALSE, filter = list(position = "top"))

如何过滤r DT中包含超链接的列

2 个答案: