library(tidyverse)
library(kableExtra)
Suponha o seguinte dataset:
games <- tibble(logo = "",
nome = c("Joao", "Pedro", "Geovanna"),
medalha = c("Gold", "Silver","Bronze"))
Quero acrescentar imagens (.png) das medalhas correspondentes. Criei um PROJETO (File > New Project...) para trabalhar com esses dados, de modo a não me preocupar com definição do caminho completo para os arquivos.
Assim, tenho uma pasta chamada "img" onde estão os seguintes arquivos:
- 1024px-Bronze_medal.png
- 1024px-Gold_medal.png
- 1024px-Silver_medal.png
Para inserir as imagens das medalhas, fiz o seguinte:
games %>%
kable() %>%
kable_paper(full_width = T) %>%
column_spec(1, image = spec_image(c("img/1024px-Gold_medal.png",
"img/1024px-Silver_medal.png",
"img/1024px-Bronze_medal.png"), 200,200))
Quando fiz o knit o resultado foi conforme o esperado:
O inconveniente foi que precisei informar cada um dos caminhos na função spec_image()
.
Estou tentando otimizar esse processo. Para tanto, imaginei o seguinte: utilizar a função sprintf()
para criar uma nova coluna no dataset (que chamei de "link". Me preocupei em inserir as aspas) com os caminhos e passar essa coluna recem-criada como argumento para a função spec_image()
games %>%
mutate(link = sprintf("'img/1024px-%s_medal.png'", medalha)) %>%
kable() %>%
kable_paper(full_width = T) %>%
column_spec(1, image = spec_image("link", 200,200))
No entanto, na hora de fazer o knit surge a seguinte mensagem de erro:
File link not found in resource path
Erro: pandoc document conversion failed with error 99
Pensei que ao referenciar a coluna "link" na função spec_image()
seria a mesma coisa spec_image(c("img/1024px-Gold_medal.png", "img/1024px-Silver_medal.png", "img/1024px-Bronze_medal.png"))