Question

我试图在Rmarkdown报告中使用read_chunk函数和一个闪亮的小部件。输出是HTML文档和运行时：Shiny。当我单独运行这些块时，它工作得很好。但是当我使用 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)
```

read_chunk无法在rmarkdown中使用闪亮的小部件

0 个答案: