Skip to content

Commit

Permalink
lint
Browse files Browse the repository at this point in the history
  • Loading branch information
olivroy committed Jul 19, 2023
1 parent d250b96 commit 7bb776f
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions vignettes/conditional-formatting.Rmd
Original file line number Diff line number Diff line change
Expand Up @@ -21,7 +21,7 @@ library(openxlsx2)

```{r}
wb <- wb_workbook()
wb$add_dxfs_style(name = "negStyle", font_color = wb_color(hex = "#FF9C0006"),bg_fill = wb_color(hex = "#FFFFC7CE"))
wb$add_dxfs_style(name = "negStyle", font_color = wb_color(hex = "#FF9C0006"), bg_fill = wb_color(hex = "#FFFFC7CE"))
wb$add_dxfs_style(name = "posStyle", font_color = wb_color(hex = "#FF006100"), bg_fill = wb_color(hex = "#FFC6EFCE"))
```

Expand Down Expand Up @@ -184,7 +184,7 @@ knitr::include_graphics("img/cf_contains_no_text.jpg")
fn <- function(x) paste(sample(LETTERS, 10), collapse = "-")
my_dat <- sapply(1:10, fn)
wb$add_data("notcontainsText", x =my_dat)
wb$add_data("notcontainsText", x = my_dat)
wb$add_conditional_formatting(
"notcontainsText",
dims = wb_dims(x = my_dat),
Expand Down Expand Up @@ -220,7 +220,7 @@ knitr::include_graphics("img/cf_ends_with.jpg")
```{r}
fn <- function(x) paste(sample(LETTERS, 10), collapse = "-")
wb$add_worksheet("endsWith")
wb$add_data("endsWith",x = sapply(1:100, fn))
wb$add_data("endsWith", x = sapply(1:100, fn))
wb$add_conditional_formatting(
"endsWith",
dims = "A1:A100",
Expand Down

0 comments on commit 7bb776f

Please sign in to comment.