调用fit函数期间出现R.keras错误

我是新来的，所以请容忍我。我试图用分类变量建立一个简单的模型，但我已经将其改写为数字

我可以从R/keras中的各种教程中获得我当前安装的示例，因此我知道它不是网状或tensorflow，甚至不是R。但是，当我尝试使用自己的数据创建简单模型时，在“拟合”执行过程中，我发现以下错误：

我很确定这是我的训练数据格式，但我一辈子都搞不清楚到底出了什么问题。提前谢谢你

# Fit 
model_one <- model %>%   
+    fit(training, 
+        trainLabels, 
+        epochs = 100,
+        batch_size = 32, 
+        validation_split = 0.2)

我已将脚本和示例数据文件上载到github：

---

事实上，我们发现了错误：

一个热编码生成一个2列矩阵：

# One hot encoding 
trainLabels <- to_categorical(trainingtarget)
testLabels <- to_categorical(testtarget)
print(testLabels[1:10,])

# One hot encoding 
trainLabels <- to_categorical(trainingtarget)
testLabels <- to_categorical(testtarget)
print(testLabels[1:10,])

model %>%  
layer_dense(units = 8, activation = 'relu', input_shape = ncol(test)) %>%   
layer_dense(units = ncol(trainLabels), activation = 'softmax')