`print（x）`不能给出与`x`相同的输出

Question

在R控制台上，我预计print(x)将始终给出与x相同的输出。我一直认为控制台使用print实际上是为所有事情做打印。但有一个额外的NULL这里从print：

library(data.table) 

print(data.table(1)[0]) 
# Empty data.table (0 rows) of 1 col: V1 
# NULL           # why is this 'NULL' printed here? 

data.table(1)[0] 
# Empty data.table (0 rows) of 1 col: V1 
               # .. but no 'NULL' here? 

该样本数据由data.table包创建的，但我觉得一般的问题仍然适用，即使不使用data.table时：什么功能/方法用来打印返回控制台处的值？

# R --vanilla # R version 3.2.3 

Answer 1

这可能是由于打印的返回值。

从?print：

“打印”打印其参数，并返回它无形（经由“看不见的（X）”）。

所以print有一个返回值，在这种情况下恰好是NULL。另一方面，在控制台中键入一个变量会创建一个输出，但它不会返回任何内容，并且不会显示NULL。

Answer 2

调用的打印方法取决于对象的类别。因此，有一个print.table，print.data.frame，print.factor等等，每个都有一个不同的函数来决定打印的内容。

试试这个

x<-NULL 
print.data.frame(x) 
print.table(x) 

看一看功能

print.data.frame 
print.table 

你会看到什么是返回这取决于打印的S3方法不同的是所谓的，有许多方法来打印。

确切的打印你调用取决于你的data.table对象的类。

这也意味着你可以通过指定自定义类的对象，并创建自定义打印功能

class(object)<-"customclass" 

print.customclass<-function(object,...){ 
    body of function 
} 

print(object) 

Answer 3

更新创建打印自己的自定义S3方法：

的修复已经刚刚被合并在v1.10.5中。感谢Michael Chirico。

运行后：

install.packages('data.table', type = 'source', 
       repos = 'http://Rdatatable.github.io/data.table') 

预期它将工作：

library(data.table) 
# data.table 1.10.5 IN DEVELOPMENT built 2017-05-18 00:04:56 UTC; travis 
# The fastest way to learn (by data.table authors): https://www.datacamp.com/courses/data-analysis-the-data-table-way 
# Documentation: ?data.table, example(data.table) and browseVignettes("data.table") 
# Release notes, videos and slides: http://r-datatable.com 

print(data.table(1)[0]) 
# Empty data.table (0 rows) of 1 col: V1 

data.table(1)[0] 
# Empty data.table (0 rows) of 1 col: V1 

---

这可能是因为data.table的print方法做了错误的事情。打印方法预计将无形地返回。但我怀疑data.table:::print.data.table正在返回明显。

（更新：我刚刚提交a bug report to data.table不住他们，如果我已经分析了这个错误！）

从?print：

“打印”打印它的参数和返回它无形（通过'不可见（x）'）。

以下是对可能发生的一个微小的演示：

> x=list() 
> class(x) <- 'X' 
> print.X <- function(x) { print("I am printing"); return(1729); } 
> x 
[1] "I am printing" 
> print(x) 
[1] "I am printing" 
[1] 1729 

注意如何打字自身x简单地打印文本，但没有编号。但是输入print(x)也会导致打印号码。

然后，如果我安排这个印刷方法返回无形如下：

> print.X <- function(x) { print("I am printing"); return(invisible(1729)); } 

..然后print(x)给出了预期的输出

> print(x) 
[1] "I am printing" 

所以，当你在输入x控制台，控制台确实以您的名义呼叫print，并忽略来自print（可能是可见的）。但如果输入print(x)，则返回值print将在打印出来时显示。

---

?print文档有点误导我认为。 print方法应该返回他们的说法，并认为如此无形中做是，但这些规则不执行