用fread导入excel表

在.xlsx数据中，我有多个表单。
如果我想通过data.table::fread导入第二张纸，我该怎么办？
正常情况下，读取第一张表的代码是：

 dt <- data.table::fread("data.xlsx", header = T) 

这里是data.table::fread用法：

 fread(input, sep="auto", sep2="auto", nrows=-1L, header="auto", na.strings="NA", file, stringsAsFactors=FALSE, verbose=getOption("datatable.verbose"), autostart=1L, skip=0L, select=NULL, drop=NULL, colClasses=NULL, integer64=getOption("datatable.integer64"), # default: "integer64" dec=if (sep!=".") "." else ",", col.names, check.names=FALSE, encoding="unknown", quote="\"", strip.white=TRUE, fill=FALSE, blank.lines.skip=FALSE, key=NULL, showProgress=getOption("datatable.showProgress"), # default: TRUE data.table=getOption("datatable.fread.datatable") # default: TRUE ) 

我知道package readxl可以导入特定的表单，

 dt <- readxl::read_excel("data.xlsx", sheet = 2, header = T) 

任何build议？