Error in predict.mmer Error in `$<-.data.frame`(`*tmp*`, start, value = c(1, 2, 3, 4, 5, 13, : replacement has 16 rows, data has 8 about sommer HOT 2 OPEN

#==============================================
# Example

## sommer version: 4.3.2 (2023-09-01)
## R version 4.2.1 (2022-06-23 ucrt)
## Platform: x86_64-w64-mingw32/x64 (64-bit)
## Running under: Windows 10 x64 (build 22621)
#==============================================

library(sommer)

# get data
data(DT_cpdata)
DT <- DT_cpdata
GT <- GT_cpdata
MP <- MP_cpdata

A <- A.mat(GT)

# fit basic model
m <- mmer(Yield~1,
          random = ~vsr(id, Gu=A) +
                    vsr(Rowf) +
                    vsr(Colf),
          rcov = ~vsr(units),
          data=DT,
          verbose = FALSE, dateWarning = FALSE)

# fit model using 2D p-spline for spatial correction
m_spl2Da <- mmer(Yield~1,
                 random = ~vsr(id, Gu=A) +
                           vsr(Rowf) +
                           vsr(Colf) +
                           spl2Da(Row,Col), 
                 rcov=~vsr(units),
                 data=DT, 
                 nIters = 3, verbose = FALSE, dateWarning = FALSE)

# predict
pr_m        <- predict(m,D="id") # works
pr_m_spl2Da <- predict(m_spl2Da,D="id")  # Error in `$<-.data.frame`(`*tmp*`, "start", value = c(1, 2, 365, 378,  : 
                                         # replacement has 5 rows, data has 6
m$Dtable
pr_m$Dtable

m_spl2Da$Dtable

# remove 'unused' row from Dtable and specify terms to be included/averaged
Dt <- m_spl2Da$Dtable
Dt[Dt$term == "1","include"] = TRUE
Dt[Dt$term == "1","average"] = TRUE
Dt[Dt$term == "id","include"] = TRUE
Dt <- Dt[-6,]

# predict by specifying 'custom' Dtable
pr_m_spl2Da<- predict(m_spl2Da,D="id",Dtable = Dt)
pr_m_spl2Da$Dtable

# inspect
summary(m)
summary(m_spl2Da)
plot(pr_m$pvals$predicted.value,pr_m_spl2Da$pvals$predicted.value) # prediction seems OK