R 여러 조건과 조건부 서식이있는 R openxlsx 문제

Question

최종 출력 (현재 Windows 7의 Excel 2007)에서 여러 조건부 서식 인스턴스를 사용할 수 없습니다.

샘플 코드 : 포맷하지

행 7, 16, 19 (태그 F, O 및 R) : I은 생성 된 스프레드 시트를 열면

library("openxlsx")  
rm(list = ls()) 

set.seed(123) 
test <- data.frame("tag" = letters, "nums" = runif(26, -20, 20)) 

wb <- createWorkbook() 
addWorksheet(wb, "Sheet", gridLines = TRUE) 

negStyle <- createStyle(fontColour = "#9C0006", bgFill = "#FFC7CE") 
posStyle <- createStyle(fontColour = "#006100", bgFill = "#C6EFCE") 
ExtraNegStyle <- createStyle(fontColour = "#FFF0F5", bgFill = "#FF0000") 
ExtraPosStyle <- createStyle(fontColour = "#98FB98", bgFill = "#228B22") 

Heading <- createStyle(textDecoration = "bold", border = "Bottom") 

writeData(wb, "Sheet", test) 

conditionalFormatting(wb, "Sheet", cols = 2, 
         rows = 2:27, rule = "< -10", style = negStyle, 
         type = "expression") 
conditionalFormatting(wb, "Sheet", cols = 2, 
         rows = 2:27, rule = "> 10", style = posStyle, 
         type = "expression") 
conditionalFormatting(wb, "Sheet", cols = 2, 
         rows = 2:27, rule = "< -15", style = ExtraNegStyle, 
         type = "expression") 
conditionalFormatting(wb, "Sheet", cols = 2, 
         rows = 2:27, rule = "> 15", style = ExtraPosStyle, 
         type = "expression") 

addStyle(wb, "Sheet", cols = 1:2, rows = 1, style = Heading) 

saveWorkbook(wb, file = "test.xlsx", overwrite = TRUE) 

는 I이 참조 그들이해야하는대로 : 나는 밝은 빨간색과 흰색 글꼴을 기대합니다. Excel에서 조건부 서식 지정> 규칙 관리로 이동하고 서식 규칙을이 방법으로 옮기는 경우 효과적입니다.

나는 분명히 아래까지 R 코드에서 &을 conditionalFormatting 문을 이동하려하지만 그 트릭을 할 나타나지 않습니다.

도움 주셔서 감사합니다.

Answer 1

openxlsx의 최신 (개발자) 버전으로 업데이트하십시오. 나는 당신과 같은 문제를 가지고 있었고 업데이트 후 어느 시점에 여러 규칙을 동시에 사용할 수있었습니다. 어떤 문제가 해결되었는지 모르겠지만 작동하는지 알려주세요. 이것은 the author's github page에 게시 된 최신 개발자 버전을 설치하는 코드입니다. 내 규칙은 너의 것보다 다소 복잡하다. 두 개의 다른 다른 열 집합을 기반으로하는 열 집합을 형식화하고 있으므로 예제가 작동해야한다고 상상할 수있다!

install.packages(c("Rcpp", "devtools"), dependencies=TRUE) 
require(devtools) 
install_github("awalker89/openxlsx") 

물론 R/RStudio를 다시 시작하는 것을 잊지 마십시오.