2017-09-10 30 views
5

के लिए रमार्कडाउन दस्तावेज़ में इंटरैक्टिव चमकदार ऐप्स शामिल करना मैं RMarkdown का उपयोग कर एक ह्यूगो ब्लॉग में अपनी पहली पोस्ट अपलोड करने का प्रयास कर रहा हूं। नीचे आप मेरी कोड दस्तावेज़ बनाने पा सकते हैं:ब्लॉगडाउन ह्यूगो ब्लॉग

--- 
title: "Untitled" 
author: "Jorge" 
date: "September 9, 2017" 
output: html_document 
runtime: shiny 
--- 


```{r setup, include=FALSE} 
knitr::opts_chunk$set(echo = TRUE) 

``` 


```{r echo=FALSE, include=FALSE} 
data('USArrests') 
head(USArrests) 
``` 
```{r echo = TRUE, include = FALSE} 

library(tidyverse) 
library(maps) 
library(mapproj) 
library(geosphere) 
library(ggrepel) 
library(scales) 
library(RColorBrewer) 
library(plotly) 
library(shiny) 
``` 

## Map 
```{r, echo = FALSE, include = TRUE} 

us_states <- map_data('state') 
USArrests$region <- tolower(row.names(USArrests)) 
arrest_map_data <- merge(us_states, USArrests, by = 'region') 
arrest_map_data <- arrest_map_data[order(arrest_map_data$order),] 

inputPanel(
    selectInput("crime", label = "Crime: ", 
      choices = list('Murder' = 'Murder', 
         'Assault' = 'Assault', 
         'Rape' = 'Rape'), selected = 'Murder') 

) 

renderPlot(

    ggplot() + coord_map() + 
geom_map(data = arrest_map_data, map = arrest_map_data, 
           aes(x = long, y = lat, map_id = region), 
           fill = "grey80", color = "black", size = 0.15) + 
        geom_polygon(data = arrest_map_data, aes_string(x = 'long', y = 'lat', 
                  group = 'group', fill = input$crime)) + 
        scale_fill_gradient(low = 'light blue', high = 'dark blue', name = 'Arrests per 100,000\nresidents') + 
        theme(legend.position = 'bottom', 
          panel.grid = element_blank(), 
          panel.background = element_blank(), 
          axis.text = element_blank(), 
          axis.title = element_blank()) 
) 
``` 

## Scatterplot 
```{r, echo = FALSE, include = TRUE} 

inputPanel(

    checkboxGroupInput("crime2", label = "Crime: ", 
       choices = list('Murder' = 'Murder', 
         'Assault' = 'Assault', 
         'Rape' = 'Rape'), selected = c('Murder', 'Assault')) 
) 

renderPlotly(

    ggplotly(ggplot(data = USArrests, 
       aes_string(x = input$crime2[1], y = input$crime2[2], text = input$region)) + 
     geom_point(fill = "grey80", color = "black", size = (USArrests$UrbanPop)/10)) 
) 
``` 

मैं आर blogdown निर्देशिका से संबंधित परियोजना के पोस्ट अनुभाग के भीतर एक .Rmd के रूप में सहेजें। जब मैं चलाएँ: त्रुटि:: पेज ऊपर दिखाए: html_dependency के लिए पथ निष्पादन render_page में रुका त्रुटि (च) प्रदान नहीं की

blogdown::serve_site() 

मैं एक त्रुटि कह मिलता है।

मैं ब्लॉगडाउन के लिए नया हूं और इस त्रुटि का समाधान नहीं ढूंढ सकता, इसलिए यदि कोई इस त्रुटि के आसपास काम करने के तरीके में कुछ अंतर्दृष्टि प्रदान कर सकता है और हूगो में इंटरैक्टिव चमकदार ऐप्स शामिल कर सकता है तो कृपया मुझे बताएं।

धन्यवाद!

+0

अंतर्निहित त्रुटि, 'html_dependency के लिए पथ प्रदान नहीं किया गया', इस प्रश्न से संबंधित हो सकता है [चमकदार ऐप से चमकदार प्रस्तुति बनाएं?] (Https://stackoverflow.com/questions/25654309/create-shiny-presentation-from -शनी-ऐप) – jq170727

उत्तर

9

blogdown पैकेज आप केवल स्थैतिक पृष्ठों उत्पन्न कर सकते हैं, जिसका मतलब है स्थिर वेबसाइटों के लिए है। चमकदार ऐप्स लाइव आर सत्रों पर निर्भर करते हैं, इसलिए जब तक आप iframes का उपयोग नहीं करते हैं, तब तक उन्हें स्थिर HTML पृष्ठों पर एम्बेड नहीं किया जा सकता है। यही है, आप ब्लॉगडाउन के साथ चमकदार आर मार्कडाउन दस्तावेज़ (runtime: shiny) का उपयोग नहीं कर सकते हैं। आपको एक सर्वर पर चमकदार ऐप प्रकाशित करना होगा जहां आर और चमकदार सर्वर उपलब्ध हैं, और वेब पेज पर ऐप एम्बेड करने के लिए <iframe src="URL-OF-YOUR-SHINY-APP"></iframe> का उपयोग करें।

+0

स्पष्टीकरण के लिए धन्यवाद। – Jorge

संबंधित मुद्दे