Иначе, если лестница не может выбрать один из предложенных вариантов

Question

Я использую лестницу if else, которая в зависимости от случайно сгенерированной переменной (enctypef[1,1]) должна выбирать из диапазона таблиц и генерировать случайную выборку в этом.

Я новичок в использовании R таким образом, и использование функции переключения также не решило проблему. Поместить if if в скобки, чтобы избежать проблем с R в разных строках, тоже не удалось. (Это сделано с целью создания генератора подземелий и дней Драконов для путешествующих.)

{
  if (enctypef[1,1] = 1) {
    print(charaenc[sample(nrow(charaenc),1, replace= TRUE), ])
} else if (enctypef[1,1] = 2) {
    print(fsocenc[sample(nrow(fsocenc),1, replace= TRUE), ])
} else if (enctypef[1,1] = 3) {
    print(hsocenc[sample(nrow(hsocenc),1, replace= TRUE), ])
} else if (enctypef[1,1] = 4) {
    print(skllchall[sample(nrow(skllchll),1, replace= TRUE), ])
} else if (enctypef[1,1] = 5) {
    print("Combat! (Non-commital)")
} else
print("Combat! (Aggressive!)")
}

Я надеюсь, что, основываясь на случайной выборке из типа столкновения 1: 6, он будет катиться по 4 доступным таблицам или напечатает «Combat! (Non-commital)» / Combat! (Non-commital).

Я получаю следующую ошибку:

>{
+   if (enctypef[1,1] = 1) {
Error: unexpected '=' in:
"{
  if (enctypef[1,1] ="
>     print(charaenc[sample(nrow(charaenc),1, replace= TRUE), ])
   d100                        Encounter
14   14 A place you would love to visit 
> } else if (enctypef[1,1] = 2) {
Error: unexpected '}' in "}"
>     print(fsocenc[sample(nrow(fsocenc),1, replace= TRUE), ])
  d20                                                           Encounter
5   5 An old woman needs your help to get an unusual pet down from a tree
> } else if (enctypef[1,1] = 3) {
Error: unexpected '}' in "}"
>     print(hsocenc[sample(nrow(hsocenc),1, replace= TRUE), ])
  d20                                                                                        Encounter
1   1 A group of racist thugs has an issue with one of your party members because of their appearance 
> } else if (enctypef[1,1] = 4) {
Error: unexpected '}' in "}"
>     print(skllchall[sample(nrow(skllchll),1, replace= TRUE), ])
Error in nrow(skllchll) : object 'skllchll' not found
> } else if (enctypef[1,1] = 5) {
Error: unexpected '}' in "}"
>     print("Combat! (Non-commital)")
[1] "Combat! (Non-commital)"
> } else
Error: unexpected '}' in "}"
> print(Combat! (Non-commital))
Error: unexpected '!' in "print(Combat!"
> }
Error: unexpected '}' in "}"