如何将FITS文件中的二进制表转换为R中的CSV文件？

Question

我在R中有一个ML分类器模型，该模型通过两个大.csv文件输入训练集和测试集并进行预测。但是，此模型使用了非常大的数据文件（120k个观测值的 232个特征），并且是使用S-lang和C的更大管道的一部分。测试是实时进行的，因此易于维护的管道，所有数据都像FITS文件一样经过不同的过程。

输入的FITS文件的主要HDU是零尺寸的图像。唯一的扩展是一个二进制表，其尺寸为232 cols x 120412行。

R没有任何直接操作FITS文件的工具，因此我试图使用FITSio package将二进制表读取到数据帧中，然后可以对分类器进行操作。 （我应该说我对FITS格式还很陌生）

library(FITSio);
filename <- system.file("testdata.fits", package = "FITSio");
zz <- file(description = filename, open = "rb");
header0 <- readFITSheader(zz); # read primary header
header <- readFITSheader(zz); # read extension header
D <- readFITSbintable(zz, header);
close(zz)

这引发了一个错误，说

Error in if (nchar(inpString) != 2880) { : argument is of length zero

我在做什么错了？

还有，有没有更简单的方法来导入FITS文件并将其转换为R中的CSV文件（或任何可用的数据框）？