I have a problem with the following code. The user is allowed to fill in his/her character name when they have solved a riddle. The answer to that is “naam”. Then they have to enter the password in the second tab which is “jouwwachtwoord” Then they can enter their name and they get a text. However, now it only prints the else statement instead of their corresponding if statements and I cannot see where it goes wrong. underneath I have the code for you:

#install.packages("shinythemes")
library(shiny)
library(shinythemes)

# Definieer raadsels en antwoorden
raadsels <- c("Ik ben altijd bij je, maar je kan mij niet zien.
Ik ben je reisgenoot, ook al ben je alleen op pad.
Als iemand mij roept, luister je. 
Er zijn bijna altijd meerderen en toch ben ik uniek. 
Wat ben ik? ")
  
antwoorden <- c("een naam", "naam","de naam","mijn naam","je naam")


# UI voor de spiegel
ui <- fluidPage(
  theme = shinytheme("cerulean"),
  titlePanel("Interactieve Spiegel"),
  tabsetPanel(
    tabPanel("Raadsel",
             sidebarLayout(
               sidebarPanel(
                 textInput("antwoord", "Wat is je antwoord?"),
                 actionButton("controleer", "Controleer Antwoord")
               ),
               mainPanel(
                 h2("Raadsel"),
                 br(),
                 verbatimTextOutput("raadsel_output"),
                 br(),
                 htmlOutput("feedback")
               )
             )
    ),
    tabPanel("Naam en Document",
             sidebarLayout(
               sidebarPanel(
                 passwordInput("wachtwoord", "Voer het wachtwoord in:"),
                 actionButton("ontgrendel", "Ontgrendel"),
                 conditionalPanel(
                   condition = "input.ontgrendel === 1",
                   textInput("naam", "Vul je naam in:"),
                   actionButton("bevestig_naam", "Bevestig Naam"),
                 )
                
               ),
               mainPanel(
                 verbatimTextOutput("naam_output")
               )
             )
    )
  )
)

# Server logica
server <- function(input, output, session) {
  
  wachtwoord_ingevuld <- reactiveVal(FALSE)
  correct_antwoord_gegeven <- reactiveVal(FALSE)
  kansen <- reactiveVal(3)  # Aantal kansen
  naam_bevestigd <- reactiveVal(FALSE)
  
  output$raadsel_output <- renderText({
    raadsels[1]  # Weergeef het eerste raadsel
  })
  
  output$feedback <- renderText({
    if (correct_antwoord_gegeven()) {
      "Gefeliciteerd! Voer het volgende wachtwoord in om verder te gaan in de volgende tab: jouwwachtwoord."
    } else if (input$controleer > 0) {
      kansen_left <- kansen()
      if (kansen_left == 3) {
        "Je hebt nog 3 kansen over."
      } else if (kansen_left == 2) {
        "Je hebt nog 2 kansen over.<b>Tip: Soms heeft een boek alle antwoorden ;- <b>"
      } else if (kansen_left == 1) {
        "Dit is je laatste kans!"
      } else {
        "Je hebt alle kansen verspild. Je neemt 5 punten schade door de ontploffende spiegel!"
      }
    } else {
      ""
    }
  })
  
  observeEvent(input$controleer, {
    antwoord <- tolower(input$antwoord)  # Antwoorden zijn niet hoofdlettergevoelig
    
    if (antwoord %in% tolower(antwoorden)) {
      showModal(
        modalDialog(
          title = "Goed Geraden!",
          "Voer het wachtwoord in de volgende tab: jouwwachtwoord."
        )
      )
      correct_antwoord_gegeven(TRUE)
    } else {
      kansen_left <- kansen() - 1
      kansen(kansen_left)
      showModal(
        modalDialog(
          title = "Fout Antwoord",
          if (kansen_left > 0) {
            paste("Het antwoord is niet correct. Probeer het opnieuw. Je hebt nog", kansen_left, "kansen over.")
          } else {
            "Je hebt alle kansen verspild. Je neemt 5 punten schade door de ontploffende spiegel!"
          }
        )
      )
    }
  })
  
  observe({
    if (correct_antwoord_gegeven() && input$wachtwoord == "jouwwachtwoord") {
      wachtwoord_ingevuld(TRUE)
    }
  })
  
  output$naam_output <- renderText({
    if (naam_bevestigd()) {
      naam <- tolower(input$naam)
      if (naam == "Lisertman") {
        "Hrak'khan Lisertman!
Anasahn, ulgi jethna vran jethna'khnin ujkhan kefa heja'khin dukhriin. Thriin val hrakkarin, ahthun vran ahthun'khnin juk'vahnuk ulgi rah'gharn. 
Vran rah'gharn, hrakkarin uk'ak'vahnuk juk'vahnuk vran gok'khesh juk'vahnuk. 
JUK vran hrakkarin, Kingvar Amrad'kah uk'ak'vahnuk vran hrak'kar heja'khin uk'kahnuk karuk'kahnuk val, 
thriin val, vran rah'gharn uk'ak'vahnuk uk'ak'vahnuk zroan. Ahthun ulgi hrakkarin, tiyatroh'kah shuk'thunthuk val 
shuk'kahruk, gok'khesh val ulgi zhar'kharun'kah, ruk'vahnukuk ak'khrin. 
Uk'ak'vahnuk thriin heja'khin'uk juk'vahnuk hrakkarin juk'vahnuk karuk'kahnuk. 
Val ulgi thriin karuk'kahnuk uk'ak'vahnuk uk'ak'vahnuk duhk'kahnuk? Uktah uk'kahnuk zrog'khan.
Val thriin ak'khrin'uk hrakkarin rah'gharn.


Hallo Lisertman!
 De spiegel toont in je eigen taal wat de gevolgen zijn van de keuzes die je hebt gemaakt.
Je hele leven staat in het teken van eerherstel. De dood van je ouders draag jij je hele leven bij je. 
Je hebt geen vertrouwen in andere mensen en kiest altijd voor je eigen belang. 
JIJ was de aanstichter die ervoor zorgde dat de groep niet met elkaar maar tegen elkaar ging vechten bij 
de bevrijding van Kingvar Amrad. Niet alleen dat, maar je verkoos geld boven dierenwelzijn door 
de betoverde kat in het theater te vermoorden zodat je er met de buit vandoor ging. 
Je laat je onderbuikgevoelens vaak de boventoon voeren in de keuzes die je maakt. 
Maar zijn dat altijd de beste keuzes? Bovenstaande klinkt van niet. 
Het wantrouwen richting jou groeit binnen de groep.

"

      } else if (naam == "Selenea") {
        Sys.setlocale("LC_ALL","Turkish")
        "Merhaba Selenea,
        Ayna, yaptığınız seçimlerin sonuçlarını size kendi dilinizde gösterir. Çocukken varlıklı bir ailede 
        büyüdünüz ama yine de... Genellikle daha az şanslı insanlara yardım etmeyi seçtiniz, bu da size 
        yardımsever ve her zaman başkalarının yanında olan biri statüsünü verdi. Ama gerçekten ihtiyaç 
        duyduğunuz an, kendi benliğiniz için gitmeye karar verdiniz. Phandalin, sevgili marangozları 
        Kingvar Amrad'ın ortadan kaybolmasıyla kargaşa içindeyken, bilginizi artırmak için bir 
        üniversiteye gitmenin daha önemli olduğuna karar verdiniz. Sizin yardımınız olmadan grup, 
        maceracılardan birinin büyüsüne kapılmış dev Paroline van der Klas'ın yardımına başvurmak 
        zorunda kaldı. Mektubu tercüme etmek için orada olsaydın, Paroline'ın kalbi asla kırılmazdı ve 
        karanlık tarafa geçmezdi. Tiyatrodaydınız ama o zaman bile bu hatayı düzeltmek yerine erken 
        ayrılmayı tercih ettiniz. Bu düşünceyle yaşayabilir misin? Hayatınızı iyileştirmeye ve hatanızı 
        düzeltmeye hazır mısınız?

        Hallo Selenea,
De spiegel toont je in je eigen taal wat de gevolgen zijn van de keuzes die je hebt gemaakt. 
Als kind ben je opgegroeid in een welvarend gezin, maar toch… 
Je koos er vaak voor om minderbedeelde mensen te helpen wat jouw een status gaf van behulpzaam 
en iemand die altijd klaar stond voor anderen. Maar op het moment dat jij echt nodig was besloot 
je voor je eigen ik te gaan. Terwijl Phandalin in rep en roer was vanwege de verdwijning van 
hun geliefde meubelmaker Kingvar Amrad, besloot jij dat het belangrijker was om een universiteit 
te bezoeken om je kennis te verhogen. Zonder jouw hulp moest de groep hulp inschakelen
van de reuzin Paroline van der Klas die viel voor de charmes van 1 van de avonturiers.
Als jij er was om de brief te vertalen, dan zou Paroline’s hart nooit gebroken zijn en
was ze niet naar de duistere zijde gegaan. Indirect ben JIJ dus verantwoordelijk voor 
al deze verdwijingen in het theater. Je was er wel bij het theater, maar ook toen koos je ervoor
om eerder weg te gaan, in plaats van deze fout te herstellen. Kan jij leven met deze gedachte? 
Ben je bereid om je leven te verbeteren en je fout te herstellen?
        
        "
      } 
      else if (naam == "Thierry Baudet") {
        Sys.setlocale("LC_CTYPE","russian")
        #joerim_data <- readLines("C:/Users/adswo/Documents/DnD campaign/Campaign2_IKEA_mystery_horror/Joerim_tekst_bestand.txt",encoding = "UTF-8")
        #print(joerim_data)      
        "Привет, Тьерри Боде!
Зеркало показывает на вашем родном языке последствия сделанного вами выбора. 
        Должно быть, тебе трудно. У вас было трудное детство, и вы видите в каждом невидимого врага,
        входящего в состав картеля. Единственный твой друг — сова Минервы. А когда другие начинают задавать 
        трудные вопросы, вы даете им всем пощечину. В попытке спасти обитателей театра Фандалина
        вы проявили свои лучшие актерские способности. Но разве ты не играешь все время и не
        является ли все это для тебя игрой? Возможно, ваши попутчики еще не видели настоящего 
        Тьерри Боде. А может быть… Потому что не совсем случайно, когда в группе возникали разногласия, 
        там всегда кто-то был, и это были ТЫ. Собираетесь ли вы показать, что вы командный игрок,
        или останетесь одиночкой, каким были все это время?

Hallo Thierry Baudet!
De spiegel toont in je eigen taal wat de gevolgen zijn van de keuzes die je hebt gemaakt. 
Het zal vast moeilijk voor je zijn. Je hebt een moeilijke jeugd gehad en ziet in iedereen een 
onzichtbare vijand die onderdeel van het kartel is. De enige vriend die je hebt is de uil van Minerva.
En als andere moeilijke vragen beginnen te stellen dan sla je ze allemaal op hun bek. 
In een poging om de inwoners te redden in het Phandalin theater liet jij je beste acteer skills zien. 
Maar acteer jij niet al de hele tijd en is dit allemaal een spel voor jou? Je mede reisgenoten hebben
wellicht nog niet de ware Thierry Baudet gezien. Of misschien wel… Want niet geheel toevallig als er 
onenigheid in de groep was, was er altijd iemand bij en dat was JIJ. Ga jij laten zien dat je toch een
teamspeler bent of blijf je toch een beetje de einzelgänger die je al eigenlijk de hele tijd een beetje bent?
        
        "
        
        
      
      } 
      else if (naam == "Flash Mias"){
        "
Halo Flash Mias!
An sreapadair as fheàrr sa bhuidheann, ach cuideachd an fheadhainn as lugha de mheas.
Às deidh dhut dràgon Been Lakker a mharbhadh, chuir thu romhpa an tiotal “dragonslayer” a chleachdadh
mar ainm meadhanach. Tiotal urramach, ach is e a’ cheist a bheil thu urramach thu fhèin. 
A chionn a bheil cuimhne agad air Paroline van der Klas? Am boireannach air an do thionndaidh 
thu na seunan agad gus a cuideachadh gus Kingvar a lorg. Agus dè rinn thu air ais? Chan eil dad idir.
Dh’fheitheamh a’ bhean bhochd sin riut airson mìosan gu dìomhain agus dè thachair air a’ cheann thall?
Chuir a h-eud air falbh i ann an gàirdeanan Tasha a ghabh brath air bròn Paroline. 
Rinn Paroline an uairsin dìoghaltas air luchd-còmhnaidh Phandalin. 
Mar sin gu neo-dhìreach tha thusa mar aon de na daoine le uallach airson na daoine sin uile a dhol à bith.
Mar sin dè tha thu dol a dhèanamh? A bheil thu a-nis a’ dol a dhearbhadh gu bheil thu dha-rìribh 
airidh air an tiotal neach-marbhadh dràgon?

Hallo Flash Mias!
De beste klimmer van de groep, maar ook de minst bescheiden. Nadat je de draak van Been Lakker
een kopje kleiner had gemaakt, besloot je de titel “dragonslayer” als tweede naam te gebruiken.
Een eervolle titel, maar de vraag is of je zelf wel eervol bent. Want ken je Paroline van der Klas nog?
De vrouw waarbij jij je charmes in de strijd gooide zodat ze zou helpen om Kingvar te vinden. 
En wat deed je als dank? Helemaal niks. Die arme vrouw heeft maanden tevergeefs op je gewacht 
en wat gebeurde er uiteindelijk? Haar jaloezie dreef haar in de armen van Tasha die misbruik
maakte van het verdriet van Paroline. Paroline nam vervolgens wraak op de bewoners van Phandalin.
Dus indirect ben JIJ één van de verantwoordelijke die heeft gezorgd voor de verdwijning van al deze mensen.
Dus wat ga jij doen? Ga jij nu aantonen dat je daadwerkelijk de titel van dragonslayer waard bent?
        

        "
      }
        
      else if (naam == "Lux") {
        
        " Hallo Lux, Der Spiegel zeigt in Ihrer eigenen Sprache die Konsequenzen der von Ihnen getroffenen 
Entscheidungen.Du bist der junge Hund der Gruppe. Leider hat dich der Aufruf, Kingvar zu retten, nicht erreicht.
Du hattest andere Pläne. Schützen Sie vielleicht die Natur rund um Ihre Heimatstadt Zephyrholm. Sie waren bei der 
Rettungsaktion im Theater dabei. Aber haben die anderen gemerkt, dass du da warst? Du gingst ruhig mit der Gruppe mit.
Sind Sie immer so oder haben Sie das mit Absicht gemacht, weil Sie während der Aufführung des Stückes ganz 
in Ihrem Element waren? Dann hast du gezeigt, warum dein Dorf dich als den Auserwählten ansah, der es vor der 
Pest retten sollte. Sind Sie bereit, dies noch einmal zu tun? Für die Bewohner von Phandalin? Denn auch 
sie brauchen jetzt den Auserwählten.


Hallo Lux,
De spiegel toont in je eigen taal wat de keuzes zijn die je hebt gemaakt. De jonge hond van de groep. 
Helaas kwam de roep om Kingvar te redden bij jou niet aan. Jij had andere plannen. 
Wellicht de natuur rondom je geboortestad Zephyrholm beschermen. 
Bij de reddingsoperatie in het theater was je er wel. Maar hadden de anderen wel door dat jij er was? 
Stilletjes ging je mee met de groep. Is dit hoe jij altijd bent, of deed je dit expres, want bij de
opvoering van het theaterstuk kwam je helemaal in je element. Toen liet je zien waarom je dorp jou zag als
de uitverkorene om hun te redden van de plaag. Ben je bereid om dit nogmaals te doen? 
Voor de inwoners van Phandalin? Want ook zij hebben nu de uitverkorene nodig. 
        "
        
      }
      
      else if (naam == "Mirelind") {
        Sys.setlocale("LC_ALL","Turkish")
        "Merhaba Mirelind, Ayna, yaptığınız seçimlerin ne olduğunu kendi dilinizde gösterir.
Kendi halkınız tarafından ulusal bir kahraman, kimseden korkmayan biri olarak görülüyorsunuz.
Yine de bundan şüpheliyim ve belki de içinde bir miktar korku vardır. Başlangıçta ne kadar korkusuzsanız ve
neredeyse kafanızı tiyatronun duvarına çarpacaksanız, tiyatrodaki kadar hızlı kaçmak istediniz. 
Selenea gibi sen de her şey çok korkutucu hale gelince grubu terk ettin. Artık grup için her şeyinizi 
vermeye ve acı sona doğru ilerlemeye hazır mısınız? Grup sana güveniyor!!
        
        De spiegel toont in je eigen taal wat de keuzes zijn die je hebt gemaakt. Voor je eigen volk word 
        je gezien als een volksheld, iemand die voor niemand bang is. Toch twijfel ik daar aan en zit
        er misschien toch wel iets van angst in je. Zo onverschrokken als dat je was in het begin 
        waarbij je jou eigen hoofd bijna door de muur van het theater beukte, zo snel wilde je 
        wegvluchten toen je eenmaal in het theater was. Net als Selenea liet je de groep in de steek toen 
        het je allemaal te eng werd. Ben je nu wel bereid om alles te geven voor de groep en door te gaan 
        tot het bittere eind? De groep rekent op je!!"
        
      }
      
      else if(naam == "Boulderbraam") {
       # Sys.setlocale("LC_ALL","English")
        "Salve Boulder Braam In lingua tua speculum ostendit consequentias electionum quas fecisti. 
Gravissimum dolorem portasti tota vita tua. Per unum e magnis elisis fratrem tuum Juniorem amisisti. 
Confusi estis, sed eum de cella liberare non conamini. sed a custodibus regis confossus interiit. 
Lectionem ex hoc credere velis. Sed lectus dolor. Pro te rebus experiendis, alii e coetu solve. 
Misera Mirelind, quae propter te caput in pariete ad theatrum feris. Cum hoc nunc tibi occurro, 
spero te nunc meliora fore. Tu nunc pro coetus affectu?
        
       De spiegel toont in je eigen taal wat de gevolgen zijn van de keuzes die je hebt gemaakt. 
        Je hele leven draag je al een verschrikkelijk leed. Tijdens 1 van je grote heists verloor jij je 
        kleine broertje Junior. Je schaamde je kapot, maar je deed geen enkele poging om hem te bevrijden 
        uit zijn cel. In plaats daarvan liet je hem creperen terwijl hij werd doodgestoken door de bewakers 
        van de koning. Je zou denken dat je hier lering uit zou trekken. Maar helaas. 
        In plaats van zelf dingen proberen laat je andere mensen uit de groep het oplossen. 
        Die arme Mirelind, die door jou toedoen haar hoofd vol tegen de muur aan knalde bij het theater.
        Nu ik je hiermee heb geconfronteerd hoop ik dat je nu beter je keuzes gaat maken. 
        Ga je nu wel voor je groepsgevoel? "
      }
      else {
        "Weet je zeker dat dit is wie jij bent?"
      }
    }
  })
  
  observeEvent(input$bevestig_naam, {
    if (!is.null(input$naam) && input$naam != "") {
      naam_bevestigd(TRUE)
    } else {
      showModal(
        modalDialog(
          title = "Fout",
          "Voer alstublieft uw naam in."
        )
      )
    }
  })
}

# Run de app
shinyApp(ui = ui, server = server)

Where is it going wrong?