रमार्कडाउन प्रेजेंटेशन (स्लीडी) में कोड गूंजने से पहले खंड आउटपुट कैसे प्रदर्शित करें?

Question

मैंने हाल ही में रमार्कडाउन में स्लीडी प्रेजेंटेशन टेम्पलेट का उपयोग करना शुरू किया और जैसे कि प्रत्येक स्लाइड आपको अधिक सामग्री के लिए स्क्रॉल करने की अनुमति देती है।

एक तरीका जिसका मैं इसका उपयोग कर रहा हूं वह मेरे छात्रों के साथ भूखंड साझा करने में है (नीचे उदाहरण कोड देखें)। एक ही स्लाइड पर मैं प्लॉट बनाने के लिए इस्तेमाल किए गए सटीक कोड के साथ साजिश प्रदर्शित कर सकता हूं जिसे स्क्रॉल करके देखा जा सकता है।

--- 
title: Echo Code Chunks After Code Results 
subtitle: Thanks For Your Help 
author: Me 
date: "today" 
output: slidy_presentation 
runtime: shiny 
--- 

## Slide with Interactive Plot 

```{r, echo=TRUE, warning=FALSE, message=FALSE} 
shinyApp(options = list(width = "100%", height = "700px"), 
    ui = (fluidPage(
inputPanel(
    selectInput("n_breaks", label = h3("Number of bins:"), 
       choices = c(10, 20, 35, 50), selected = 20), 

    sliderInput("bw_adjust", label = h3("Bandwidth:"), 
       min = 0.2, max = 2, value = 1, step = 0.2)), 
    plotOutput("stuff", height = "650px") 

)), 

server = function(input,output,session) { 

    output$stuff = renderPlot({ 
    hist(faithful$eruptions, probability = TRUE, 
breaks = as.numeric(input$n_breaks), 
xlab = "Duration (minutes)", main = "Geyser eruption duration", 
col = "bisque", border = 1) 

    dens <- density(faithful$eruptions, adjust = input$bw_adjust, lwd = 2, col = "blue") 
    lines(dens, col = "blue") 
}) 
}) 
``` 

समस्या मैं आ रही हैं कि डिफ़ॉल्ट व्यवहार कोड परिणाम है, जो मैं इसे कैसे चाहते हैं के विपरीत है पहले कोड हिस्सा प्रतिध्वनित करने के लिए है।

मैं स्पष्ट रूप से दो कोड भाग डालने से इसे हल कर सकता हूं जहां पहले चंक विकल्प echo=FALSE है और दूसरे में echo=TRUE, fig.show='hide' है लेकिन इसके लिए मुझे यह सुनिश्चित करने की आवश्यकता है कि दोनों कोड भाग मिलते हैं। कोड को प्रतिबिंबित करने से पहले प्लॉट प्रदर्शित करने के लिए मैं इस आदेश को कैसे उलट सकता हूं।

हमेशा की तरह, सहायता के लिए धन्यवाद।

Answer 1

आपको अपनी प्रस्तुति के शरीर के लिए निम्नलिखित के साथ जो करना चाहते हैं वह करने में सक्षम होना चाहिए।

## Slide with Interactive Plot 

```{r thecode, echo=FALSE, warning=FALSE, message=FALSE} 
shinyApp(options = list(width = "100%", height = "700px"), 
    ui = (fluidPage(inputPanel(
    selectInput("n_breaks", label = h3("Number of bins:"), 
       choices = c(10, 20, 35, 50), selected = 20), 
    sliderInput("bw_adjust", label = h3("Bandwidth:"), 
       min = 0.2, max = 2, value = 1, step = 0.2)), 
    plotOutput("stuff", height = "650px"))), 

server = function(input,output,session) { 
    output$stuff = renderPlot({ 
    hist(faithful$eruptions, probability = TRUE, 
     breaks = as.numeric(input$n_breaks), xlab = "Duration (minutes)", 
     main = "Geyser eruption duration", col = "bisque", border = 1) 
    dens <- density(faithful$eruptions, adjust = input$bw_adjust, 
        lwd = 2, col = "blue") 
    lines(dens, col = "blue")}) 
    }) 
``` 

```{r thecode, eval=FALSE} 
``` 

है:

• एक ही नाम (यहाँ thecode) के साथ दो कोड हिस्सा बनाएँ।
• पहले कोड खंड में, echo = FALSE सेट करें ताकि कोड प्रिंट न हो, लेकिन यह सिल मूल्यांकन किया गया है।
• दूसरे कोड खंड में, echo = TRUE सेट करें, लेकिन खंड को पूरी तरह से खाली रखें (बाड़ के बीच कोई खाली रेखा नहीं)।