Год в упаковке

Question

Я пытаюсь добавить сноску, содержащую четырехзначный год, в таблицу, используя package :: huxtable.Год выводится в научной записи.Я столкнулся с той же проблемой в отношении чисел в теле таблицы и моего вопроса здесь , @katia объяснила, что происходит.Но теперь я застрял, пытаясь решить ту же проблему, но в сноске к таблице:

options(scipen = 100, digits = 10)
library(huxtable)
t <- huxtable(mtcars[1:5, 1:2])
number_format(t) <- 1
add_footnote(t, "No cars in 1776")

Сноска печатается как:

# No cars in 1.78e+03

Я в недоумениипонять, что происходит - number_format () устанавливает десятичные разряды в 1 для всей таблицы.Или должен.Отбрасывание возвращает всю таблицу к научной записи.Помещение 1776 в кавычки приводит к ошибке:

Error: unexpected numeric constant in "add_footnote(t, "No cars in "1776"

Любые указатели / помощь приветствуются !!

Answer 1

footnote в huxtable несет свои собственные свойства - вы можете передать дополнительные аргументы, которые затем передаются в `set_cell_properties

Аргументы
... Другие переданные свойствадля set_cell_properties для ячейки сноски.

Указание number_format в качестве дополнительного аргумента для add_footnote должно работать

add_footnote(t, "No cars in 1776", number_format = 0)

  # 21.0           6.0           
  # 21.0           6.0           
  # 22.8           4.0           
  # 21.4           6.0           
  # 18.7           8.0           
# ───────────────────────────────
  # No cars in 1776              

# Column names: mpg, cyl