r - 如何抑制 HTML 文件的下载进度

Question

我正在使用 imfr 包下载一些 IMF 数据系列

library(imfr)
t <- imf_data(database_id = "BOP", indicator = "BCA_BP6_USD", 
                             country = "all", start = "1990", freq = "Q")

我之前在单独的 block 中预先指定了某些参数以抑制下载进度

knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning = FALSE, error = FALSE, results = 'hide', fig.keep = 'all')

但是，这些选项都没有起到作用。此外，results = 'hide' 抑制了所有输出，包括文本和数字。

如何在没有单独的数据 block 下载的情况下解决这个问题？

Answer 1

您可以在 capture.output 中捕获所有这些下载消息和进度条，并将其用 invisible 包装起来。 (从 this question and answer on SO 得到这个想法)。

然后创建一个包装函数 imf_data，它的工作原理相同(屏蔽 imfr::imf_data 函数)但不打印所有这些下载消息和进度条。

---
title: "IMF Data"
output: html_document
---


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

imf_data <- function(...) {
  invisible(capture.output(dt <- imfr::imf_data(...)))
  return(dt)
}
```


```{r}
library(imfr)

t <- imf_data(database_id = "BOP", indicator = "BCA_BP6_USD", 
                             country = "all", start = "1990", freq = "Q")
```


```{r, comment=""}
head(t)
```

---

---