However, just looking on gt documentation, it seems
[...]
%>%
tab_style(
style = cell_fill(color = "White"),
locations = cells_body(
columns = currency,
rows = currency = 0
) %>%
tab_style(
style = cell_fill(color = "Orange"),
locations = cells_body(
columns = currency,
rows = currency = 50
)
[...]
Not tested, but you got the idea.
Regards,
Grzegorz