在控制台中传递参数值，而不是在代码块中声明参数值

Question

我有很多csv文件，它们的格式都为“数字” _2019.csv 我想在控制台中指定数字以呈现减价，而不是包含在代码块中。

```{r, echo=FALSE}
number <- "4031" # I need to pass this in console
data <- read.csv(list.files(pattern = paste(number, "_2019*", sep = "")), stringsAsFactors = FALSE)
```

```{r include=FALSE}
print(data)
```