当chunk在RStudio的R Notebook中运行时，如何打印TIBLES？

我无法通过在RStudio中运行R笔记本中的区块来打印下面的CSV文件创建的TIBLE。下面的示例打印来自read_csv的有关解析的消息，但不打印df。但是，当我预览笔记本时，会打印数据框。使用R控制台输入代码时也会打印数据框

---
title: "Min Example"
output: html_notebook
---

```{r chunk}
library(readr)
library(tibble)
df <- read_csv('min.csv')
df
```

CSV文件的内容如下：

ID,Year,PubDate,CWE,CVSS,Vendor,Project
CVE-1999-0001,1999,1999-12-30,CWE-20,5.0,freebsd,freebsd
CVE-1999-0002,1998,1998-10-12,CWE-119,10.0,caldera,openlinux
CVE-1999-0003,1998,1998-04-01,NA,10.0,sgi,irix
CVE-1999-0004,1997,1997-12-16,NA,5.0,university_of_washington,pine
CVE-1999-0005,1998,1998-07-20,NA,10.0,university_of_washington,imap
CVE-1999-0006,1998,1998-07-14,NA,10.0,qualcomm,qpopper
CVE-1999-0007,1998,1998-06-26,NA,5.0,ssleay,ssleay
CVE-1999-0008,1998,1998-06-08,NA,10.0,sun,solaris
CVE-1999-0009,1998,1998-04-08,NA,10.0,sgi,irix

使用dput（）查看数据帧会产生

现在可以使用了。

我可能遇到了一个问题，通过安装可用的1.1.89版本解决了这个问题。

在其他回答/问题中，Kevin Ushey说：

这确实是当前版本的RStudio中的一个缺陷：笔记本中无法正确呈现包含日期对象的data.frames。您可以尝试安装RStudio的最新每日版本，并确认问题已在那里得到解决：

在升级或降级之间，可以使用print（as.matrix（））临时打印代码块中的data.frame：

要模拟head（）的行为，请执行以下操作：

```{r}
print(as.matrix(df), quote = FALSE, max = length(df) * 6)
```

---

请提供DF的

dput（）

。我在问题中添加了dput（DF）的输出。您能试着运行诊断报告吗？我在问题底部添加了诊断报告的超链接。我应该注意到我在RStudio中体验到的R笔记本电脑的另一个奇怪之处：第一次尝试预览笔记本电脑时，我必须单击“预览”两次才能看到预览。如果删除.nb.html文件，我必须再次单击预览两次。

structure(list(ID = c("CVE-1999-0001", "CVE-1999-0002", "CVE-1999-0003", 
"CVE-1999-0004", "CVE-1999-0005", "CVE-1999-0006", "CVE-1999-0007", 
"CVE-1999-0008", "CVE-1999-0009"), Year = c(1999L, 1998L, 1998L, 
1997L, 1998L, 1998L, 1998L, 1998L, 1998L), PubDate = structure(c(10955, 
10511, 10317, 10211, 10427, 10421, 10403, 10385, 10324), class = "Date"), 
    CWE = c("CWE-20", "CWE-119", NA, NA, NA, NA, NA, NA, NA), 
    CVSS = c(5, 10, 10, 5, 10, 10, 5, 10, 10), Vendor = c("freebsd", 
    "caldera", "sgi", "university_of_washington", "university_of_washington", 
    "qualcomm", "ssleay", "sun", "sgi"), Project = c("freebsd", 
    "openlinux", "irix", "pine", "imap", "qpopper", "ssleay", 
    "solaris", "irix")), class = c("tbl_df", "tbl", "data.frame"
), row.names = c(NA, -9L), .Names = c("ID", "Year", "PubDate", 
"CWE", "CVSS", "Vendor", "Project"), spec = structure(list(cols = structure(list(
    ID = structure(list(), class = c("collector_character", "collector"
    )), Year = structure(list(), class = c("collector_integer", 
    "collector")), PubDate = structure(list(format = ""), .Names = "format", class = c("collector_date", 
    "collector")), CWE = structure(list(), class = c("collector_character", 
    "collector")), CVSS = structure(list(), class = c("collector_double", 
    "collector")), Vendor = structure(list(), class = c("collector_character", 
    "collector")), Project = structure(list(), class = c("collector_character", 
    "collector"))), .Names = c("ID", "Year", "PubDate", "CWE", 
"CVSS", "Vendor", "Project")), default = structure(list(), class = c("collector_guess", 
"collector"))), .Names = c("cols", "default"), class = "col_spec"))

```{r}
print(as.matrix(df), quote = FALSE)
```

```{r}
print(as.matrix(df), quote = FALSE, max = length(df) * 6)
```