kable_input не найден при вязании с использованием knitr и knitExtra - PullRequest
Новая
       4

kable_input не найден при вязании с использованием knitr и knitExtra

2 голосов
/ 19 марта 2020

Я новичок в R, и я хотел бы сделать аккуратную таблицу из моего набора данных, используя пакеты kable и knitExtra в Rmarkdown. Я попытаюсь объяснить ошибку с помощью моего кода: 

```{r, include=FALSE}
library(readxl); library(dplyr); library(kableExtra); library(knitr)
Froot <- read_excel("~/Documents/Project1/Fruit.xlsx")

knitr::kable(Froot[1:4])
  kable_styling(bootstrap_options = c("striped", "hover", "condensed"))

В приведенном выше коде, когда я пытаюсь вязать, он возвращает эту ошибку:

Выход из строки 37- 39 (Project1.Rmd)

Ошибка в kable_styling (bootstrap_options = c («полосатый», «зависание», «сжатый»)): аргумент «kable_input» отсутствует, без значения по умолчанию

Вызовы: ... withCallingHandlers -> withVisible -> eval -> eval -> kable_styling

Выполнение остановлено

Я замечаю ошибку в функции "kable_styling", и поэтому я попытался решить проблему, просто добавив «kable_input», что превращает код в следующее: 

```{r, include=FALSE}
library(readxl); library(dplyr); library(kableExtra); library(knitr)
Froot <- read_excel("~/Documents/Project1/Fruit.xlsx")

knitr::kable(Froot[1:4])
  kable_styling(kable_input, bootstrap_options = c("striped", "hover", "condensed"))

Но когда я вяжу, это говорит мне, что функция «kable_input» не может быть найдена !!

Выход из строк 37-39 (Project1.Rmd)

Ошибка в kable_input (): не удалось найти функцию "kable_input"

Вызовы ... ... withCallingHandlers -> withVisible -> eval -> eval -> kable_styling

Выполнение остановлено

* 10 30 * Какие-нибудь исправления? Я пытался найти его в Google, но я буквально не получил результатов.

1 Ответ

2 голосов
/ 19 марта 2020

@ Стефан прав, вам нужно добавить трубу%>%, а также удалить kable_input, что он и сделал в своем комментарии. Также вы можете удалить include = FALSE из патрона (это оценивает код, но не показывает результат). 

```{r}
library(readxl)
library(dplyr)
library(kableExtra)
library(knitr)

Froot <- read_excel("~/Documents/Project1/Fruit.xlsx")


knitr::kable(Froot)%>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed"))
```

Этот пример работает в моем случае: 

knitr::kable(iris)%>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed"))
...