Создать регулируемый буклет R с приборной панелью - PullRequest
Новая
       29

Создать регулируемый буклет R с приборной панелью

0 голосов
/ 24 апреля 2019

Я пытаюсь создать буклет-изображение на панели инструментов. Это скриншот того, что у меня пока есть:

enter image description here

Моя проблема, очевидно, в том, что высота карты слишком сильно уменьшена. Как исправить высоту листовки (чтобы она была более привлекательной с отдельной боковой панелью или без нее)?

Это мой код: 

---
title: "Untitled"
runtime: shiny
output: flexdashboard::flex_dashboard # !!!
---

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

qty_d <- tibble(latt = c(50, 53),
                long = c(10, 16),
                qty = c(200, 140),
                planttext = c("AAA", "BBB"))
```

Page 1
======

Column1 {.sidebar}
------------------------------------------------
```{r}
sliderInput("bubblesize",
            label = "Bubble Size",
            min = 0.01, max = 0.1, value = 0.05, step = 0.02)

```

Column2 {}
-----------------------

```{r, echo=FALSE}
renderLeaflet({
  my_size <- input$bubblesize
  leaflet() %>%
  addTiles() %>%
  addCircleMarkers(lng = ~long, lat = ~latt, 
                   popup = ~planttext,
                   radius = ~qty * my_size, data = qty_d)
})
```

Спасибо и всего наилучшего

1 Ответ

1 голос
/ 24 апреля 2019

Есть похожий вопрос на этой ссылке .

Решением для вашей flexdashboard было бы заменить ваш код column2 на: 

```{r, echo=FALSE}
output$mymap = renderLeaflet({
  my_size <- input$bubblesize
  leaflet() %>%
  addTiles() %>%
  addCircleMarkers(lng = ~long, lat = ~latt, 
                   popup = ~planttext,
                   radius = ~qty * my_size, data = qty_d)
})

leafletOutput('mymap', height=1000)
```
...