read_chunk не работает с блестящим виджетом в rmarkdown - PullRequest
Новая
       7

read_chunk не работает с блестящим виджетом в rmarkdown

0 голосов
/ 09 октября 2018

Я пытаюсь использовать функцию read_chunk вместе с блестящим виджетом в отчете Rmarkdown.Выходные данные представляют собой HTML-документ и время выполнения: блестящие.Когда я запускаю куски по отдельности, это прекрасно работает.Но когда я использую read_chunk() в своем скрипте и затем запускаю run_chunk t, запускаю только один чанк исходного чанка, он выдает ошибку.Я чувствую, что есть способ взаимодействия блестящего виджета и чтения кусков.Пожалуйста, помогите, как мне это сделать.

Ошибка:

Предупреждение: ошибка при разборе:: 2: 0: неожиданный конец ввода 1: read_chunk (paste0 (params $ code_path, "chunk_name.R")

используемый мной блок сохраняется в '/loaction/chunk_v1.R'

## @knitr iris_sub
#######################################################################################################################################
#######################################################################################################################################

iris_subset <- subset(iris, Species=='setosa')
# 
---
params:
  code_chunk: '/location/'

title: "Untitled"
output: html_document
runtime: shiny
---

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

## R Markdown



```{r iris_sub}
read_chunk(paste0(params$code_chunk,"chunk_v1.R"))
```


```{r iris_plot, echo=FALSE}
sample_his <- function(dataset_name){

library(shiny)
shinyApp(
ui=fluidPage(
  titlePanel("Iris Dataset"),
  sidebarLayout(
    sidebarPanel(
      radioButtons("p", "Select column of iris dataset:",
                   list("Sepal.Length"='a', "Sepal.Width"='b', "Petal.Length"='c', "Petal.Width"='d')),
      sliderInput("bins",
                  "Number of bins:",
                  min = 1,
                  max = 50,
                  value = 30)
    ),
    mainPanel(
      plotOutput("distPlot")
    )
  )
),

server = function(input, output, session) {
  output$distPlot <- renderPlot({
    if(input$p=='a'){
      i<-1
    }

    if(input$p=='b'){
      i<-2
    }

    if(input$p=='c'){
      i<-3
    }

    if(input$p=='d'){
      i<-4
    }

    x    <- dataset_name[, i]

    bins <- seq(min(x), max(x), length.out = input$bins + 1)
    hist(x, breaks = bins, col = 'darkgray', border = 'white')
  })
}
)}
```

## Including Plots



```{r pressure, echo=FALSE}
sample_his(iris)
```
...