[Bug]: g_lineplot doesn't work with a format as a function

[yurovska]

What happened?

The bug is in tern::h_format_row():

library(tern)

x <- list(mean = 0.5, mean_ci = c(0.15, 1.15))

format <- list(
  mean = function (x, ...) {
    ifelse(x < 1, round_fmt(x, digits = 2), round_fmt(x, digits = 1))
  },
  mean_ci = "(xx.xx, xx.xx)"
)

formatted_row <- h_format_row(x, format)
print(formatted_row)

Error in if (is.na(fc)) { : argument is of length zero

sessionInfo()

Relevant log output

Code of Conduct

• I agree to follow this project's Code of Conduct.

Contribution Guidelines

• I agree to follow this project's Contribution Guidelines.

Security Policy

• I agree to follow this project's Security Policy.

[Melkiades]

Nice spotting!! Thank you for finding this and the nice desc. If you can propose a PR, I will be assisting you in merging it asap :)