Question

我有一个数据框，其中的列包含指向png图像的指针。我想用corsstalk在Flexdashboard上显示国家/国旗。感觉是：在侧栏上选择“国家”时，将在图上渲染相应的“标志”图像。不幸的是，我去pkg进行js渲染，ggplotly没有渲染图像。问题是否还有其他与ggplot2一起使用的js软件包可以使此工作正常进行？或通过其他方式完成此任务？（我知道这可以在光泽上完成，但想看看我们是否可以在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'}

```

flexdashboard渲染具有串扰功能的图像

0 个答案: