2015-05-07 2 views
25

Я использую RStudio для создания некоторых листовок.Сохранение выходных листов в виде html

Я хотел был бы иметь возможность сохранить выход как HTML так, что он может быть по электронной почте и другие могут осмотреть его.

Ниже приведен пример кода R, который был взят из [здесь], чтобы создать образец листового изображения.

devtools::install_github('rstudio/leaflet') 
library(leaflet) 
rand_lng = function(n = 10) rnorm(n, -93.65, .01) 
rand_lat = function(n = 10) rnorm(n, 42.0285, .01) 
m = leaflet() %>% addTiles() %>% addCircles(rand_lng(50), rand_lat(50), radius = runif(50, 10, 200)) 
m 

Любой код, чтобы иметь возможность выхода в HTML были бы оценены ...

+0

'saveWidget' - это путь (как user1825941answered). если вы хотите сделать растровые изображения, https://github.com/tesseradata/trelliscope/blob/master/R/thumb.R - это другой путь. – hrbrmstr

ответ

40

Что-то вроде:

library(htmlwidgets) 
saveWidget(m, file="m.html") 

, кажется, работает на большинстве виджетов.

С уважением,
Эйнар

+0

отлично работает на виджетах лифтов! – hrbrmstr

+0

Ошибка: преобразование документа pandoc не удалось с ошибкой 67 – RockScience

+0

@RockScience: Вероятная причина может быть ошибкой в ​​версии версии листовки. попробуйте install.packages («листовка»), а затем повторно запустите код. – einar

3

Открыть новый RMarkdown документ. Когда вы используете RStudio, перейдите к File -> New File -> R Markdown. После того, как вы сохранили файл, вы можете вставить код в куске, как это:

--- 
title: "Leaflet Map" 
output: html_document 
--- 

```{r} 
library(leaflet) 
rand_lng = function(n = 10) rnorm(n, -93.65, .01) 
rand_lat = function(n = 10) rnorm(n, 42.0285, .01) 
m = leaflet() %>% addTiles() %>% addCircles(rand_lng(50), rand_lat(50), radius = runif(50, 10, 200)) 
m 
``` 

Затем нажмите кнопку Knit HTML над окном кода и приложения будут открываться в новом HTML-файле. Вы можете отправить файл через электронную почту или загрузить его на свой ftp.

3

я столкнулась с той же проблемой, и после установки GitHub версии эта проблема была исправлена.

# Or Github version 
if (!require('devtools')) install.packages('devtools') 
devtools::install_github('rstudio/leaflet') 

Моя нынешняя версия 1.1.0.9000, работает на MacOS Sierra, RStudio версии 1.1.232 и R 3.4.0

Вы можете экспортировать из RStudio оу сохранить с помощью htmlwidgets.

Смежные вопросы