Блог

Главная - Вопросы по программированию - Вывод из `kable ()` в сочетании с текстом в виде символьного вектора и печатной таблицы

Вывод из `kable ()` в сочетании с текстом в виде символьного вектора и печатной таблицы

#r #function #knitr #kable

#r #функция #knitr #kable

Вопрос:

У меня есть следующий документ RMarkdown (также здесь в качестве сути)

введите описание изображения здесь

приводит к этому

введите описание изображения здесь

Я хотел бы использовать функцию fun() для создания правильной таблицы, как из первого фрагмента кода.

Я думал, что format = "markdown и results = "asis" должны выполнить эту работу, но, видимо, нет.

Чего мне здесь не хватает?

Комментарии:

1. Возможно, я неправильно понял вашу цель, но проблема заключается в склеивании knitr_kable с некоторым текстом. Если вы просто замените свое определение fun на fun <- function (x) { cat("Some text"); knitr::kable(x, format = "markdown") } , то вызов функции правильно создаст текст и таблицу.

2. Верно. Но мне нужен дополнительный текст, поскольку я перебираю список объектов, который содержит заголовок (текст) и таблицу, которые я оба хочу иметь в отчете.

3. Но мой код создает дополнительный текст перед таблицей. Или я неправильно понял?

4. Извините — я был в поезде. Я неправильно истолковал ваш комментарий. Я попробую это. Спасибо.

5. По неизвестным причинам я должен print() получить результат из kable() (я думаю, потому что они возвращаются невидимо). Таким образом, функция, которая работает идеально , является: fun <- function (x) { cat("Some text"); print(knitr::kable(x, format = "markdown")) } . Если вы добавите это в ответ, я приму это. Спасибо.