causeEffectDiagram cannot handle correctly odd number of causes.

[marioem]

Take the following code

cMan <- c("Reservations staffs undertrained", "Front office staff unfocused")
cMethods <- c("No credit card blocking",
              "No advance payments\nfor confirmed bookings",
              "Reconfirmation of guest departures",
              "Unpredicted top account\nVIP bookings")
cMachines <- c("System allows reservation for overbookings due to wait list", "Internet issues", "OTA portal issues", "System errors")
cEffect <- "Overbooking leading to guest bouncing"

causeEffectDiagram(
  cause = list(Man = cMan,
               Methods = cMethods,
               Machines = cMachines
               ),
  effect = cEffect)

The resulting plot shows Methods spines twice (one empty) and Machine spine is empty as well.