R 如何缩短运行时间？

当我通过r脚本播放它时，它会工作，但当我将它编入markdown时，它不会出现错误或任何东西，但它已经运行了大约30分钟，仍然没有完成。有没有办法改变这一点？

如评论中所述，R标记文档中的R代码在编写时执行，而不是在查看时执行。当谈到R的交互性时，人们通常会想到。在某些情况下，也可以将Shiny直接与R Markdown，c.f.组合。脚本的直接转换将提供：

num<-18.7
guess<- -1

print("Can you guess the daily dose per 1000 inhabititants in the UK?")

while(guess !=num) {
    guess<-readline(prompt = "Enter integer:")
    if (guess== num)
        cat(num, "is correct")
    if (guess<num)
        cat("it is bigger")
    if (guess>num)
        cat("It is smaller")
}

---

编织后的预期产量是多少？您的脚本需要用户输入，但rmarkdown尝试生成静态文档。在这个过程中，系统正在等待所需的用户输入。我准备了一个降价文件，让其他人可以猜测数字，然后告诉他们是否正确wrong@AmeliaJones恐怕你有一个概念上的误解：R代码是在编写文档时执行的，如果你需要交互性，你可以考虑建立一个闪亮的应用程序，而不是编织一个降价文件。

---
runtime: shiny
output: html_document
---

# Can you guess the daily dose per 1000 inhabititants in the UK?

```{r setup, include=FALSE}
num <- 18.7
```


```{r guessing-game, echo=FALSE}
numericInput("guess", label = "Enter number:", value = 0)

renderText({
    if (input$guess == num)
        paste(num, "is correct")
    else if (input$guess<num)
        "it is bigger"
    else if (input$guess>num)
        "It is smaller"
})
```

> 0.3 == 0.1 + 0.1 + 0.1
[1] FALSE
> isTRUE(all.equal(0.3, 0.1 + 0.1 + 0.1))
[1] TRUE