Блог

С помощью кода ниже я могу настроить столбец mpg и disp его формат:

 library(formattable)
data(mtcars)

df <- mtcars

f1 <- formatter("span", style = x ~ style(color = ifelse(x > 0, red, blue), "font-size:20px"))
f2 <- formatter("span", style = x ~ style("font-size:20px"))

formattable(df, list(
  `mpg` = f1,
  `disp` = f2
  ))
 

Основываясь на том, что я сделал выше, я хотел бы установить размер шрифта для элементов заголовка, применив f2 его к заголовку:

 formattable(df, list(
  `mpg` = f1,
  `disp` = f2,
  names(df) <- f2(names(df))
  ))
 

Но, как вы можете заметить, эффект для mpg и disp исчез, какие-либо идеи по решению этой проблемы? Спасибо.

Проблема решена с помощью кода ниже:

 library(formattable)
data(mtcars)

df <- mtcars

f1 <- formatter("span", style = x ~ style(color = ifelse(x > 0, red, blue), "font-size:20px"))
f2 <- formatter("span", style = x ~ style("font-size:20px"))

df$mpg <- f1(df$mpg) 
df$disp <- f2(df$disp) 
names(df) <- f2(names(df))
formattable(df)
 

Из: