R Markdown脚本并不总是显示结果

Question

我遇到了RMD脚本问题。它运行。一旦。在那之后，我得到了部分结果。

代码：

---
title: "Dashboard"
output: 
  flexdashboard::flex_dashboard:
  runtime: shiny
---
```{r global, include=FALSE}
library(dplyr)
library(flexdashboard)
Name=c('Test1', 'Test1', 'Test2')
Number = c(8, 9, 7)
zt <- data.frame(Name, Number)
PersonList <- sort(unique(zt$Name))

```
Selections {.sidebar}
===============================
```{r}
## The shiny part
selectInput("PersonSel", "Person: ", PersonList, selected = 'Test1')
```
Tab 1
======================================================================
Row {.tabset}
-----------------------------------------------------------------------
### Table
```{r}
renderTable({
cqi <- zt %>%
  na.omit() %>%
  filter(Name %in% input$PersonSel) %>%
  group_by(Number) %>%
  summarise(Count = n())
}, align='l')
```

结果：

当我再次运行脚本时，我得到了这个：

在R Studio中我看到了：

但只有这一点 - 它不会继续。

让它再次运行的唯一方法是编辑脚本。添加空格或其他任何内容。

行为似乎很奇怪。这里有什么问题（和解决方案）？