flexdashboard рендеринг изображения с функциями перекрестных помех - PullRequest
Новая
       33

flexdashboard рендеринг изображения с функциями перекрестных помех

0 голосов
/ 11 марта 2019

У меня есть фрейм данных со столбцом, который содержит указатель на изображение PNG. Я хочу отобразить страну / флаг на Flexdashboard с corsstalk. Senario: при выборе «страны» на боковой панели, соответствующее изображение «флага» отображается на графике. К сожалению, мой переход к pkg для рендеринга js, ggplotly не рендерит изображения. Вопрос: есть ли другие пакеты js, которые работают с ggplot2, чтобы это работало? Или любой другой способ сделать это? (Я знаю, что это можно сделать на блеске, но хочу посмотреть, сможем ли мы сделать это на Flexdashbaord для создания прототипов)

Вот кадр данных: 

df <- data.frame(structure(list(country = c("united arab emirates", "afghanistan", 
"albania", "armenia", "angola", "argentina"), iso_a2 = c("ae", 
"af", "al", "am", "ao", "ar"), continent = c("asia", "asia", 
"europe", "asia", "africa", "south america"), flag = c("http://flagpedia.net/data/flags/mini/ae.png", 
"http://flagpedia.net/data/flags/mini/af.png", "http://flagpedia.net/data/flags/mini/al.png", 
"http://flagpedia.net/data/flags/mini/am.png", "http://flagpedia.net/data/flags/mini/ao.png", 
"http://flagpedia.net/data/flags/mini/ar.png"), x = c(1, 1, 1, 
1, 1, 1), y = c(1, 1, 1, 1, 1, 1)), row.names = c(NA, 6L), class = "data.frame"))

Чтобы помочь с воспроизводимостью. Вот леса для flexdashboard 

title: "Flags"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
---

```{r setup, include=FALSE}
library(flexdashboard)
library(crosstalk)

df <- read.csv("~/data/df.csv", stringsAsFactors=FALSE)
sd1 <- SharedData$new(df)
```

Inputs {.sidebar}
-----------------------------------------------------------------------

```{r}
filter_checkbox("country", "Country List", sd1, ~country)
```

Column {data-width=650}
-----------------------------------------------------------------------

### Flag

```{r, results='asis'}

```
...