필터 값을 기반으로 셀 내용의 문자열 부분 강조 표시

Question

http://rstudio.github.io/DT/010-style.html에 제공된 예제의 다음 단계로, 아래 그림과 같이 필터 값을 기준으로 셀의 문자열 부분을 강조 표시하고 싶습니다 . 나는 생물학적 서열 데이터의 특정 모티프를 표 형식으로 강조하려고 노력하고있다. 다음은 Excel VBA 코드와 대표 이미지입니다. R에서 이것을 달성 할 수 있습니까?

Sub SequencePartColourMacro() 
Dim Col, Row, FirstRow, LastRow As Integer, Col As Long 

Col = 6 
FirstRow = 2 
LastRow = ThisWorkbook.Sheets("Sequences").Cells(Rows.Count, "F").End(xlUp).Row 

Test1 = "CC" 
Test2 = "TT" 
Test3 = "GG" 

For Row = FirstRow To LastRow 
    Sequence = ThisWorkbook.Sheets("Sequences").Cells(Row, Col).Value 
    For x = 1 To Len(Sequence) 
    SubSequence1 = Mid(Sequence, x, 2) 
    If SubSequence1 = Test1 Then 
     ThisWorkbook.Sheets("Sequences").Cells(Row, Col).Characters(x, 2).Font.Color = RGB(0, 0, 255) 
     ThisWorkbook.Sheets("Sequences").Cells(Row, Col).Characters(x, 2).Font.Bold = True 
    End If 
    If SubSequence1 = Test2 Then 
     ThisWorkbook.Sheets("Sequences").Cells(Row, Col).Characters(x, 2).Font.Color = RGB(0, 102, 0) 
     ThisWorkbook.Sheets("Sequences").Cells(Row, Col).Characters(x, 2).Font.Bold = True 
    End If 
    If SubSequence1 = Test3 Then 
     ThisWorkbook.Sheets("Sequences").Cells(Row, Col).Characters(x, 2).Font.Color = RGB(255, 153, 0) 
     ThisWorkbook.Sheets("Sequences").Cells(Row, Col).Characters(x, 2).Font.Bold = True 
    End If 
Next x 
Next Row 
End Sub 

Answer 1

이 좀 장황하지만, 그래서 일반적으로 VBA입니다 : 모든 항목을 확인하고 강조에 @ 칼의 코드 결과

library(DT) 
set.seed(1986) 
x <- vector() 
# create fake dna or rna sequence (it's been a while since I took bio) 
for (i in 1:10) { 
    x[i] <- paste0(sample(c("A","G","T","C"),10,replace=TRUE), collapse="") 
} 

dim(x) <- c(5,2) 

datatable(x, options = list(rowCallback=JS(
    "function(row,data) { 
    data[0]=data[0].replace('CC','<span style=\"color:red\">CC</span>'); 
    data[0]=data[0].replace('TT','<span style=\"color:blue\">TT</span>'); 
    data[0]=data[0].replace('GG','<span style=\"color:green\">GG</span>'); 
    data[1]=data[1].replace('CC','<span style=\"color:red\">CC</span>'); 
    data[1]=data[1].replace('TT','<span style=\"color:blue\">TT</span>'); 
    data[1]=data[1].replace('GG','<span style=\"color:green\">GG</span>'); 
    $('td:eq(0)', row).html(data[0]); 
    $('td:eq(1)', row).html(data[1]); 
    }" 
), dom = 't')) 

Answer 2

약간의 조정 선택한 문자열의 나 같은 사람에게 유용 할 수 있습니다.

library(DT) 
set.seed(1986) 
x <- vector() 
create fake dna or rna sequence (it's been a while since I took bio) 
for (i in 1:10) { 
x[i] <- paste0(sample(c("A","G","T","C"),25,replace=TRUE), collapse="") 
} 
dim(x) <- c(5,2) 

datatable(x, options = list(rowCallback=JS(
    "function(row,data) { 
    data[0] = data[0] .replace(/GA/g,'<span style=\"color:red\">GA</span>'); 
    data[0] = data[0] .replace(/TT/g,'<span style=\"color:blue\">TT</span>'); 
    data[0] = data[0] .replace(/TC/g,'<span style=\"color:green\">TC</span>'); 
    data[1] = data[1] .replace(/GA/g,'<span style=\"color:red\">GA</span>'); 
    data[1] = data[1] .replace(/TT/g,'<span style=\"color:blue\">TT</span>'); 
    data[1] = data[1] .replace(/TC/g,'<span style=\"color:green\">TC</span>'); 
    $('td:eq(0)', row).html(data[0] ); 
    $('td:eq(1)', row).html(data[1] ); 
    }" 
), dom = 't'))