problem with single antecedent and multiple outcome in bootstrap

[NicholasDanks]

Dear Nicholas Danks hi. I am Dr. Lecturer Isa GÜL. I work at Afyonkarahisar University of Health Sciences, Department of Health Management in Turkey. I am trying to apply pls sem with SEMinR package in R program. However, when I write the codes below, I get the following error. Can you help with resolving the error? Kind regards

SEMinR code.............
install.packages("seminr")
library(seminr)
library(haven)
b1 <- read_sav("C:/Users/HP/Desktop/b1.sav")
View(b1)
........................................
mm <- constructs(
composite("P",multi_items("P", 1:5),weights = mode_A),
composite("B",multi_items("B",1:6),weights = mode_A),
composite("F", multi_items("F", 1:6),weights = mode_A),
composite("D", multi_items("D", 1:6),weights = mode_A)
)
...........................................
sm <- relationships(
paths(from = "P", to = c("B","F","D"))
)
..........................................
pls_model<-estimate_pls(data=b1,measurement_model=mm,
structural_model=sm,
inner_weights = path_weighting,
missing= mean_replacement,
missing_value = "-99")
..........................................................
summary(pls_model)
plot(pls_model)
..................................
boot_model_pls <- bootstrap_model(seminr_model = pls_model,
nboot = 50)
..........................................................................
Bootstrapping model using seminr...
Bootstrapping encountered this ERROR:
length of 'dimnames' [2] not equal to array extent

<Rplot.bmp>