server <- function(input, output, session) {
  Sys.sleep(2)
  hide(id = "loading-content", anim = TRUE, animType = "fade", time = 3)
  show(id = "app-content", anim = TRUE, animType = "fade", time = 3)
  observeEvent(input$home, {
    js$scrolltop()
  })
  observeEvent(input$dataMenu, {
    js$scrolltop()
  })
  observeEvent(input$analysisMenu, {
    js$scrolltop()
  })
  observeEvent(input$help, {
    js$scrolltop()
  })
  observeEvent(input$exit, {
    js$scrolltop()
  })
  #$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  #Define common objects
  studies.all.design.variables <- list(
    sampling.vars = list(
      bc_ = c("SCHWGT", "STDWGT"),
      bl_ = c("TOTWGT", "SENWGT", "JKZONE", "JKREP", "TOTWGTCH", "SENWGTCH"),
      bs_ = c("TOTWGT", "SENWGT", "JKZONE", "JKREP"),
      isa = c("TOTWGTS", "JKZONES", "JKREPS", paste0("SRWGT", 1:75)),
      icg = c("TOTWGTC", "JKZONEC", "JKREPC", paste0("CRWGT", 1:75)),
      ise = c("TOTWGTS", "JKZONES", "JKREPS", paste0("SRWGT", 1:75)),
      isg = c("TOTWGTS", "JKZONES", "JKREPS", paste0("SRWGT", 1:75)),
      isl = c("TOTWGTS", "JKZONES", "JKREPS"),
      iss = c("TOTWGTS", "JKZONES", "JKREPS"),
      itg = c("TOTWGTT", "JKZONET", "JKREPT", paste0("TRWGT", 1:75)),
      jsa = c("TOTWGTS", "JKZONES", "JKREPS", paste0("SRWGT", 1:75)),
      jse = c("TOTWGTS", "JKZONES", "JKREPS", paste0("SRWGT", 1:75)),
      jsg = c("TOTWGTS", "JKZONES", "JKREPS", paste0("SRWGT", 1:75)),
      asa = c("TOTWGT", "HOUWGT", "SENWGT", "JKZONE", "JKREP", "JKINDIC"),
      acg = c("SCHWGT", "STOTWGTU", "STOTWGTL", "JKCZONE", "JKCREP", paste0("SRWGT", 1:100)),
      asc = c("TOTWGT", "HOUWGT", "SENWGT", "JKZONE", "JKREP"),
      asg = c("TOTWGT", "HOUWGT", "SENWGT", "JKZONE", "JKREP", "JKINDIC", "STAFFWGT", paste0("SRWGT", 1:92)),
      ast = c("TCHWGT", "MATWGT", "SCIWGT", "REAWGT", "JKZONE", "JKREP"),
      asp = c("TOTWGT", "HOUWGT", "SENWGT", "JKZONE", "JKREP", "JKINDIC"),
      atg = c("TCHWGT", paste0("TRWGT", 1:100)),
      alg = c("CNTRWGT", paste0("CRWGT", 1:92)),
      bsa = c("TOTWGT", "HOUWGT", "SENWGT", "JKZONE", "JKREP"),
      bcg = c("TOTWGTC", paste0("CRWGT", 1:75), "JKZONEC", "JKREPC", "SCHWGT", "STOTWGTL", "STOTWGTU", "STOTWGTE", "JKCZONE", "JKCREP", paste0("SRWGT", 1:100)),
      bsg = c("TOTWGTS", paste0("SRWGT", 1:75), "JKZONES", "JKREPS", "TOTWGT", "HOUWGT", "SENWGT", "JKZONE", "JKREP", "STAFFWGT", paste0("SRWGT", 1:92)),
      btg = c("TOTWGTT", paste0("TRWGT", 1:75), "JKZONET", "JKREPT", "TCHWGT", paste0("TRWGT", 1:100)),
      btm = c("MTOTWGT", "JKZONE", "JKREP"),
      bts = c("STOTWGT", "JKZONE", "JKREP"),
      bst = c("MATWGT", "SCIWGT", "TCHWGT", "TOTWGT", "JKZONE", "JKREP"),
      bsp = c("TOTWGT", "HOUWGT", "SENWGT", "JKZONE", "JKREP"),
      blg = c("CNTRWGT", paste0("CRWGT", 1:92)),
      mcg = c("SCHWGT", "STOTWGT", "STOTWGTU", "JKCZONE", "JKCREP"),
      msa = c("TOTWGT", "HOUWGT", "SENWGT", "JKZONE", "JKREP"),
      msg = c("TOTWGT", "HOUWGT", "SENWGT", "JKZONE", "JKREP"),
      mst = c("MATWGT", "JKZONE", "JKREP"),
      psa = c("TOTWGT", "HOUWGT", "SENWGT", "JKZONE", "JKREP"),
      psg = c("TOTWGT", "HOUWGT", "SENWGT", "JKZONE", "JKREP"),
      pst = c("PHYWGT", "JKZONE", "JKREP"),
      ccg = c("SCHWGT", paste0("SRWGT", 1:100)),
      ctg = c("TCHWGT", paste0("TRWGT", 1:100)),
      pcg = c("SCHWGT", "STOTWGT", "STOTWGTU", "JKCZONE", "JKCREP", paste0("SRWGT", 1:100)),
      ptg = c("TCHWGT", paste0("TRWGT", 1:100)),
      deg = c("INSWGTE", "FINWGTE", paste0("INSRWE", 1:32), paste0("FINRWE", 1:32)),
      dig = c("INSWGTI", "FINWGTI", paste0("INSRWI", 1:32), paste0("FINRWI", 1:32)),
      dpg = c("INSWGTP", "FINWGTP", paste0("INSRWP", 1:32), paste0("FINRWP", 1:32)),
      dsg = c("INSWGTS", "FINWGTS", paste0("INSRWS", 1:32), paste0("FINRWS", 1:32))
    ),
    PV.roots = list(
      TIMSS = list(
        G4 = c("ASMPV", "ASSPV", "ASMMAT", "ASMWHO", "ASMFAP", "ASMGEM", "ASMDAP", "ASSSCI", "ASSEAS", "ASSLIS", "ASSPHS", "ASMALG", "ASMFNS", "ASMGEO", "ASMMEA", "ASSPHY", "ASMAPP", "ASMKNO", "ASMREA", "ASMDAT", "ASMNUM", "ASSEAR", "ASSLIF", "ASSKNO", "ASSAPP", "ASSREA", "ASSENV"),
        G8 = c("BSMMAT", "BSSSCI", "BSMALG", "BSMDAP", "BSMFNS", "BSMGEO", "BSMMEA", "BSSCHE", "BSSEAS", "BSSLIS", "BSSPHY", "BSSERI", "BSSNOS", "BSMNBM", "BSSNBM", "BSMAPP", "BSMKNO", "BSMREA", "BSMDAT", "BSMNUM", "BSSEAR", "BSSBIO", "BSSKNO", "BSSAPP", "BSSREA", "BSSENV")
      ),
      "TIMSS Advanced" = list(
        Mathematics = c("PSPPHY", "PSPPHY", "PSPPHY", "PSPELE", "PSPMEC", "PSPWAV", "PSPAPP", "PSPKNO", "PSPREA"),
        Physics = c("MSMMAT", "MSMMAT", "MSMMAT", "MSMALG", "MSMCAL", "MSMGEO", "MSMKNO", "MSMAPP", "MSMREA")
      ),
      TiPi = list(
        G4 = c("ASMMAT", "ASSSCI", "ASRREA")
      ),
      PIRLS = list(
        G4 = c("ASRINF", "ASRLIT", "ASRREA", "ASRIIE", "ASRRSI", "ASRREA", "ASRLIT", "ASRINF", "ASRIIE", "ASRRSI", "ASRREA", "ASRLIT", "ASRINF", "ASRIIE", "ASRRSI", "ASRREA", "ASRLIT", "ASRINF", "ASRIIE", "ASRRSI", "ASEREA", "ASERSI", "ASEIIE", "ASRREA", "ASRLIT", "ASRINF", "ASRIIE", "ASRRSI", "ASRREA", "ASRLIT", "ASRINF", "ASRIIE", "ASRRSI", "ASRREA", "ASRLIT", "ASRINF", "ASRIIE", "ASRRSI")
      ),
      RLII = list(
        G4 = c("ASRDOC", "ASRDOC", "ASRDOC", "ASRDOC", "ASRDOC", "ASREXP", "ASREXP", "ASREXP", "ASREXP", "ASREXP", "ASRNAR", "ASRNAR", "ASRNAR", "ASRNAR", "ASRNAR", "ASRREA", "ASRREA", "ASRREA", "ASRREA", "ASRREA", "ASRDOC", "ASRDOC", "ASRDOC", "ASRDOC", "ASRDOC", "ASREXP", "ASREXP", "ASREXP", "ASREXP", "ASREXP", "ASRNAR", "ASRNAR", "ASRNAR", "ASRNAR", "ASRNAR", "ASRREA", "ASRREA", "ASRREA", "ASRREA", "ASRREA")
      ),
      ICCS = list(
        G8 = c("PV[[:digit:]]+CIV"),
        G9 = c("PV[[:digit:]]+CIV")
      ),
      ICILS = list(
        G8 = c("PV[[:digit:]]+CIL", "PV[[:digit:]]+CT")
      ),
      PISA = list(
        fifteen.year.old = c("PV[[:digit:]]+MATH", "PV[[:digit:]]+READ", "PV[[:digit:]]+SCIE", "PV[[:digit:]]+PROB", "PV[[:digit:]]+INTR", "PV[[:digit:]]+SUPP", "PV[[:digit:]]+EPS", "PV[[:digit:]]+ISI", "PV[[:digit:]]+USE", "PV[[:digit:]]+MACC", "PV[[:digit:]]+MACQ", "PV[[:digit:]]+MACS", "PV[[:digit:]]+MACU", "PV[[:digit:]]+MAPE", "PV[[:digit:]]+MAPF", "PV[[:digit:]]+MAPI", "PV[[:digit:]]+SCEP", "PV[[:digit:]]+SCED", "PV[[:digit:]]+SCID", "PV[[:digit:]]+SKCO", "PV[[:digit:]]+SKPE", "PV[[:digit:]]+SSPH", "PV[[:digit:]]+SSLI", "PV[[:digit:]]+SSES", "PV[[:digit:]]+GLCM", "PV[[:digit:]]+RCLI", "PV[[:digit:]]+RCUN", "PV[[:digit:]]+RCER", "PV[[:digit:]]+RTSN", "PV[[:digit:]]+RTML", "PV[[:digit:]]+MCCR", "PV[[:digit:]]+MCQN", "PV[[:digit:]]+MCSS", "PV[[:digit:]]+MCUD", "PV[[:digit:]]+MPEM", "PV[[:digit:]]+MPFS", "PV[[:digit:]]+MPIN", "PV[[:digit:]]+MPRE")
      )
    )
  )
  
  default.benchmarks <- list(
    ICCS = list(
      "2009" = c(395, 479, 563),
      "2016" = c(311, 395, 479, 563),
      "2022" = c(311, 395, 479, 563)
    ),
    ICILS = c(407.001, 492.001, 576.001, 661.001),
    PIRLS = c(400, 475, 550, 625),
    RLII = c(400, 475, 550, 625),
    ePIRLS = c(400, 475, 550, 625),
    prePIRLS = c(400, 475, 550, 625),
    TIMSS = c(400, 475, 550, 625),
    preTIMSS = c(400, 475, 550, 625),
    "eTIMSS PSI" = c(400, 475, 550, 625),
    "TIMSS Advanced" = c(475, 550, 625),
    TiPi = c(400, 475, 550, 625),
    PISA = list(
      Reading = list(
        "2022" = c(189.33, 262.04, 334.75, 407.47, 480.18, 552.89, 625.61, 698.32),
        "2018" = c(189.33, 262.04, 334.75, 407.47, 480.18, 552.89, 625.61, 698.32),
        "2015" = c(262.04, 334.75, 407.47, 480.18, 552.89, 625.61, 698.32),
        "2012" = c(262.04, 334.75, 407.47, 480.18, 552.89, 625.61, 698.32),
        "2009" = c(262.04, 334.75, 407.47, 480.18, 552.89, 625.61, 698.32),
        "2006" = c(334.75, 407.47, 480.18, 552.89, 625.61),
        "2003" = c(334.75, 407.47, 480.18, 552.89, 625.61),
        "2000" = c(334.75, 407.47, 480.18, 552.89, 625.61)
      ),
      Science = list(
        "2022" = c(260.54, 334.94, 409.54, 484.14, 558.73, 633.33, 707.93),
        "2018" = c(260.54, 334.94, 409.54, 484.14, 558.73, 633.33, 707.93),
        "2015" = c(260.54, 334.94, 409.54, 484.14, 558.73, 633.33, 707.93),
        "2012" = c(334.94, 409.54, 484.14, 558.73, 633.33, 707.93),
        "2009" = c(334.94, 409.54, 484.14, 558.73, 633.33, 707.93),
        "2006" = c(334.94, 409.54, 484.14, 558.73, 633.33, 707.93),
        "2003" = c(334.94, 409.54, 484.14, 558.73, 633.33, 707.93),
        "2000" = c(334.94, 409.54, 484.14, 558.73, 633.33, 707.93)
      ),
      Mathematics = list(
        "2022" = c(357.77, 420.07, 482.38, 544.68, 606.99, 669.30),
        "2018" = c(357.77, 420.07, 482.38, 544.68, 606.99, 669.30),
        "2015" = c(357.77, 420.07, 482.38, 544.68, 606.99, 669.30),
        "2012" = c(357.77, 420.07, 482.38, 544.68, 606.99, 669.30),
        "2009" = c(357.77, 420.07, 482.38, 544.68, 606.99, 669.30),
        "2006" = c(357.77, 420.07, 482.38, 544.68, 606.99, 669.30),
        "2003" = c(357.77, 420.07, 482.38, 544.68, 606.99, 669.30),
        "2000" = c(357.77, 420.07, 482.38, 544.68, 606.99, 669.30)
      ),
      Problem.Solving = list(
        "2003" = c(358.49, 423.42, 488.35, 553.28, 618.21, 683.14)
      ),
      Collaborative.Problem.Solving = list(
        "2015" = c(340, 440, 540, 640)
      ),
      Financial.Literacy = list(
        "2022" = c(326, 399, 474, 549, 624),
        "2015" = c(325.57, 400.33, 475.10, 549.86, 624.63)
      ),
      Global.Competency = list(
        "2018" = c(340, 440, 540, 640),
        "2018" = c(340, 440, 540, 640)
      ),
      Reading.root.PVs = c("PV#READ", "PV#READ1", "PV#READ2", "PV#READ3", "PV#READ4", "PV#READ5", "PV#RCLI", "PV#RCUN", "PV#RCER", "PV#RTSN", "PV#RTML"),
      Science.root.PVs = c("PV#SCIE", "PV#INTR", "PV#SUPP", "PV#EPS", "PV#ISI", "PV#USE", "PV#SCEP", "PV#SCED", "PV#SCID", "PV#SKCO", "PV#SKPE", "PV#SSPH", "PV#SSLI", "PV#SSES"),
      Mathematics.root.PVs = c("PV#MATH", "PV#MATH1", "PV#MATH2", "PV#MATH3", "PV#MATH4", "PV#MACC", "PV#MACQ", "PV#MACS", "PV#MACU", "PV#MAPE", "PV#MAPF", "PV#MAPI", "PV#MCCR", "PV#MCQN", "PV#MCSS", "PV#MCUD", "PV#MPEM", "PV#MPFS", "PV#MPIN", "PV#MPRE"),
      Problem.Solving.root.PVs = c("PV#PROB"),
      Collaborative.Problem.Solving.root.PVs = c("PV#CLPS"),
      Financial.Literacy.root.PVs = c("PV#FLIT"),
      Global.Competency.root.PVs = c("PV#GLCM")
    ),
    "PISA for Development" = list(
      Reading = list(
        "2019" = c(188.33, 262.04, 334.75, 407.47, 480.18, 552.89, 625.61, 698.32)
      ),
      Science = list(
        "2019" = c(185.94, 260.54, 334.94, 409.54, 484.14, 558.73, 633.33, 707.93)
      ),
      Mathematics = list(
        "2019" = c(233.17, 295.47, 357.77, 420.07, 482.38, 544.68, 606.99, 669.30)
      ),
      Reading.root.PVs = "PV#READ",
      Science.root.PVs = "PV#SCIE",
      Mathematics.root.PVs = "PV#MATH"
    )
  )
  
  merge.combinations <- list(
    CivED = list(
      c("bc_", "sch.bckg"),
      c("bc_", "bs_", "std.bckg.sch.bckg"),
      c("bc_", "bt_", "sch.bckg.tch.bckg"),
      c("bc_", "bs_", "bt_", "std.bckg.sch.bckg.tch.bckg"),
      c("bs_", "bt_", "std.bckg.tch.bckg"),
      c("cs_", "std.bckg"),
      c("bs_", "std.bckg")
    ),
    ICCS = list(
      c("isa", "std.ach"),
      c("icg", "sch.bckg"),
      c("ise", "std.EUM"),
      c("isl", "std.LAM"),
      c("iss", "std.AM"),
      c("isg", "std.bckg"),
      c("itg", "tch.bckg"),
      c("isg", "std.bckg"),
      c("icg", "isa", "std.ach.sch.bckg"),
      c("isa", "ise", "std.ach.EUM"),
      c("isa", "isl", "std.ach.LAM"),
      c("isa", "iss", "std.ach.AM"),
      c("icg", "isg", "std.bckg.sch.bckg"),
      c("isg", "ise", "std.bckg.EUM"),
      c("isg", "isl", "std.bckg.LAM"),
      c("isg", "iss", "std.bckg.AM"),
      c("icg", "itg", "sch.bckg.tch.bckg"),
      c("icg", "ise", "std.EUM.sch.bckg"),
      c("icg", "isl", "std.LAM.sch.bckg"),
      c("icg", "iss", "std.AM.sch.bckg"),
      c("isl", "isg", "isa", "std.bckg.ach.LAM"),
      c("ise", "isg", "isa", "std.bckg.ach.EUM"),
      c("iss", "isg", "isa", "std.bckg.ach.AM"),
      c("icg", "isg", "isa", "std.bckg.ach.sch.bckg"),
      c("icg", "isg", "ise", "std.bckg.EUM.sch.bckg"),
      c("icg", "isg", "isl", "std.bckg.LAM.sch.bckg"),
      c("icg", "isg", "iss", "std.bckg.AM.sch.bckg"),
      c("icg", "isa", "ise", "std.ach.EUM.sch.bckg"),
      c("icg", "isa", "isl", "std.ach.LAM.sch.bckg "),
      c("icg", "isa", "iss", "std.ach.AM.sch.bckg"),
      c("icg", "ise", "isg", "isa", "std.bckg.std.ach.EUM.sch.bckg"),
      c("icg", "isl", "isg", "isa", "std.bckg.std.ach.LAM.sch.bckg"),
      c("icg", "iss", "isg", "isa", "std.bckg.std.ach.AM.sch.bckg"),
      c("isa", "isp", "std.ach.proc"),
      c("isg", "isp", "std.bckg.proc"),
      c("ise", "isp", "std.proc.EUM"),
      c("isl", "isp", "std.proc.LAM"),
      c("iss", "isp", "std.proc.AM"),
      c("icg", "isp", "std.proc.sch.bckg"),
      c("icg", "isa", "isp", "std.ach.proc.sch.bckg"),
      c("isa", "ise", "isp", "std.ach.proc.EUM"),
      c("isa", "isl", "isp", "std.ach.proc.LAM"),
      c("isa", "iss", "isp", "std.ach.proc.AM"),
      c("icg", "isg", "isp", "std.bckg.proc.sch.bckg"),
      c("isg", "ise", "isp", "std.bckg.proc.EUM"),
      c("isg", "isl", "isp", "std.bckg.proc.LAM"),
      c("isg", "iss", "isp", "std.bckg.proc.AM"),
      c("icg", "ise", "isp", "std.proc.EUM.sch.bckg"),
      c("icg", "isl", "isp", "std.proc.LAM.sch.bckg"),
      c("icg", "iss", "isp", "std.proc.AM.sch.bckg"),
      c("isl", "isg", "isa", "isp", "std.bckg.proc.ach.LAM"),
      c("ise", "isg", "isa", "isp", "std.bckg.proc.ach.EUM"),
      c("iss", "isg", "isa", "isp", "std.bckg.proc.ach.AM"),
      c("icg", "isg", "isa", "isp", "std.bckg.proc.ach.sch.bckg"),
      c("icg", "isg", "ise", "isp", "std.bckg.proc.EUM.sch.bckg"),
      c("icg", "isg", "isl", "isp", "std.bckg.proc.LAM.sch.bckg"),
      c("icg", "isg", "iss", "isp", "std.bckg.proc.AM.sch.bckg"),
      c("icg", "isa", "ise", "isp", "std.ach.proc.EUM.sch.bckg"),
      c("icg", "isa", "isl", "isp", "std.ach.proc.LAM.sch.bckg"),
      c("icg", "isa", "iss", "isp", "std.ach.proc.AM.sch.bckg"),
      c("icg", "ise", "isg", "isa", "isp", "std.bckg.std.ach.proc.EUM.sch.bckg"),
      c("icg", "isl", "isg", "isa", "isp", "std.bckg.std.ach.proc.LAM.sch.bckg"),
      c("icg", "iss", "isg", "isa", "isp", "std.bckg.std.ach.proc.AM.sch.bckg"),
      c("jsa", "std.ach"),
      c("jse", "std.EUM"),
      c("jsg", "std.bckg"),
      c("jsa", "jse", "std.ach.EUM"),
      c("jsa", "jsg", "std.bckg.ach"),
      c("jsg", "jse", "std.bckg.EUM"),
      c("jse", "jsg", "jsa", "std.bckg.ach.EUM")
    ),
    ICILS = list(
      c("bcg", "sch.bckg"),
      c("bsg", "std.bckg"),
      c("btg", "tch.bckg"),
      c("bcg", "bsg", "std.bckg.sch.bckg"),
      c("bcg", "btg", "sch.bckg.tch.bckg")
    ),
    REDS = list(
      c("bcg", "sch.bckg"),
      c("bsg", "std.bckg"),
      c("btg", "tch.bckg"),
      c("bcg", "bsg", "std.bckg.sch.bckg"),
      c("bcg", "btg", "sch.bckg.tch.bckg")
    ),
    PIRLS = list(
      c("acg", "sch.bckg"),
      c("asg", "std.bckg"),
      c("asa", "std.ach"),
      c("asg", "ash", "std.bckg.home"),
      c("asg", "asa", "std.bckg.ach"),
      c("ash", "asa", "std.ach.home"),
      c("acg", "asg", "std.bckg.sch.bckg"),
      c("acg", "ash", "std.home.sch.bckg"),
      c("acg", "asa", "std.ach.sch.bckg"),
      c("acg", "atg", "sch.bckg.tch.bckg"),
      c("asg", "atg", "std.bckg.tch.bckg"),
      c("asa", "atg", "std.ach.tch.bckg"),
      c("ash", "atg", "std.home.tch.bckg"),
      c("asg", "ash", "asa", "std.bckg.ach.home"),
      c("asg", "ash", "atg", "std.bckg.home.tch.bckg"),
      c("asg", "asa", "atg", "std.bckg.ach.tch.bckg"),
      c("ash", "asa", "atg", "std.ach.home.tch.bckg"),
      c("acg", "asg", "asa", "std.bckg.ach.sch.bckg"),
      c("acg", "asg", "ash", "std.bckg.home.sch.bckg"),
      c("acg", "ash", "asa", "std.ach.home.sch.bckg"),
      c("acg", "asg", "atg", "std.bckg.sch.bckg.tch.bckg"),
      c("acg", "ash", "atg", "std.home.sch.bckg.tch.bckg"),
      c("acg", "asa", "atg", "std.ach.sch.bckg.tch.bckg"),
      c("acg", "asg", "ash", "asa", "std.bckg.ach.home.sch.bckg"),
      c("acg", "asg", "asa", "atg", "std.bckg.ach.sch.bckg.tch.bckg"),
      c("acg", "asg", "ash", "atg", "std.bckg.home.sch.bckg.tch.bckg"),
      c("acg", "ash", "asa", "atg", "std.ach.home.sch.bckg.tch.bckg"),
      c("asg", "ash", "asa", "atg", "std.bckg.ach.home.tch.bckg"),
      c("acg", "asg", "ash", "asa", "atg", "std.bckg.ach.home.sch.bckg.tch.bckg"),
      c("asa", "asp", "std.ach.proc"),
      c("asg", "asp", "std.bckg.proc"),
      c("acg", "asp", "std.proc.sch.bckg"),
      c("atg", "asp", "std.proc.tch.bckg"),
      c("asg", "ash", "asp", "std.bckg.proc.home"),
      c("asg", "asa", "asp", "std.bckg.proc.ach"),
      c("ash", "asa", "asp", "std.ach.proc.home"),
      c("acg", "asg", "asp", "std.bckg.proc.sch.bckg"),
      c("acg", "ash", "asp", "std.proc.home.sch.bckg"),
      c("acg", "asa", "asp", "std.ach.proc.sch.bckg"),
      c("asg", "atg", "asp", "std.bckg.proc.tch.bckg"),
      c("asa", "atg", "asp", "std.ach.proc.tch.bckg"),
      c("ash", "atg", "asp", "std.proc.home.tch.bckg"),
      c("asg", "ash", "asa", "asp", "std.bckg.proc.ach.home"),
      c("asg", "ash", "atg", "asp", "std.bckg.proc.home.tch.bckg"),
      c("asg", "asa", "atg", "asp", "std.bckg.proc.ach.tch.bckg"),
      c("ash", "asa", "atg", "asp", "std.ach.proc.home.tch.bckg"),
      c("acg", "asg", "asa", "asp", "std.bckg.proc.ach.sch.bckg"),
      c("acg", "asg", "ash", "asp", "std.bckg.proc.home.sch.bckg"),
      c("acg", "ash", "asa", "asp", "std.ach.proc.home.sch.bckg"),
      c("acg", "asg", "atg", "asp", "std.bckg.proc.sch.bckg.tch.bckg"),
      c("acg", "ash", "atg", "asp", "std.proc.home.sch.bckg.tch.bckg"),
      c("acg", "asa", "atg", "asp", "std.ach.proc.sch.bckg.tch.bckg"),
      c("acg", "asg", "ash", "asa", "asp", "std.bckg.proc.ach.home.sch.bckg"),
      c("acg", "asg", "asa", "atg", "asp", "std.bckg.proc.ach.sch.bckg.tch.bckg"),
      c("acg", "asg", "ash", "atg", "asp", "std.bckg.proc.home.sch.bckg.tch.bckg"),
      c("acg", "ash", "asa", "atg", "asp", "std.ach.proc.home.sch.bckg.tch.bckg"),
      c("asg", "ash", "asa", "atg", "asp", "std.bckg.proc.ach.home.tch.bckg"),
      c("acg", "asg", "ash", "asa", "atg", "asp", "std.bckg.proc.ach.home.sch.bckg.tch.bckg")
    ),
    ePIRLS = list(
      c("acg", "sch.bckg"),
      c("asg", "std.bckg"),
      c("asa", "std.ach"),
      c("asg", "ash", "std.bckg.home"),
      c("asg", "asa", "std.bckg.ach"),
      c("ash", "asa", "std.ach.home"),
      c("acg", "asg", "std.bckg.sch.bckg"),
      c("acg", "ash", "std.home.sch.bckg"),
      c("acg", "asa", "std.ach.sch.bckg"),
      c("acg", "atg", "sch.bckg.tch.bckg"),
      c("asg", "atg", "std.bckg.tch.bckg"),
      c("asa", "atg", "std.ach.tch.bckg"),
      c("ash", "atg", "std.home.tch.bckg"),
      c("asg", "ash", "asa", "std.bckg.ach.home"),
      c("asg", "ash", "atg", "std.bckg.home.tch.bckg"),
      c("asg", "asa", "atg", "std.bckg.ach.tch.bckg"),
      c("ash", "asa", "atg", "std.ach.home.tch.bckg"),
      c("acg", "asg", "asa", "std.bckg.ach.sch.bckg"),
      c("acg", "asg", "ash", "std.bckg.home.sch.bckg"),
      c("acg", "ash", "asa", "std.ach.home.sch.bckg"),
      c("acg", "asg", "atg", "std.bckg.sch.bckg.tch.bckg"),
      c("acg", "ash", "atg", "std.home.sch.bckg.tch.bckg"),
      c("acg", "asa", "atg", "std.ach.sch.bckg.tch.bckg"),
      c("acg", "asg", "ash", "asa", "std.bckg.ach.home.sch.bckg"),
      c("acg", "asg", "asa", "atg", "std.bckg.ach.sch.bckg.tch.bckg"),
      c("acg", "asg", "ash", "atg", "std.bckg.home.sch.bckg.tch.bckg"),
      c("acg", "ash", "asa", "atg", "std.ach.home.sch.bckg.tch.bckg"),
      c("asg", "ash", "asa", "atg", "std.bckg.ach.home.tch.bckg"),
      c("acg", "asg", "ash", "asa", "atg", "std.bckg.ach.home.sch.bckg.tch.bckg")
    ),
    prePIRLS = list(
      c("acg", "sch.bckg"),
      c("asg", "std.bckg"),
      c("asa", "std.ach"),
      c("asg", "ash", "std.bckg.home"),
      c("asg", "asa", "std.bckg.ach"),
      c("ash", "asa", "std.ach.home"),
      c("acg", "asg", "std.bckg.sch.bckg"),
      c("acg", "ash", "std.home.sch.bckg"),
      c("acg", "asa", "std.ach.sch.bckg"),
      c("acg", "atg", "sch.bckg.tch.bckg"),
      c("asg", "atg", "std.bckg.tch.bckg"),
      c("asa", "atg", "std.ach.tch.bckg"),
      c("ash", "atg", "std.home.tch.bckg"),
      c("asg", "ash", "asa", "std.bckg.ach.home"),
      c("asg", "ash", "atg", "std.bckg.home.tch.bckg"),
      c("asg", "asa", "atg", "std.bckg.ach.tch.bckg"),
      c("ash", "asa", "atg", "std.ach.home.tch.bckg"),
      c("acg", "asg", "asa", "std.bckg.ach.sch.bckg"),
      c("acg", "asg", "ash", "std.bckg.home.sch.bckg"),
      c("acg", "ash", "asa", "std.ach.home.sch.bckg"),
      c("acg", "asg", "atg", "std.bckg.sch.bckg.tch.bckg"),
      c("acg", "ash", "atg", "std.home.sch.bckg.tch.bckg"),
      c("acg", "asa", "atg", "std.ach.sch.bckg.tch.bckg"),
      c("acg", "asg", "ash", "asa", "std.bckg.ach.home.sch.bckg"),
      c("acg", "asg", "asa", "atg", "std.bckg.ach.sch.bckg.tch.bckg"),
      c("acg", "asg", "ash", "atg", "std.bckg.home.sch.bckg.tch.bckg"),
      c("acg", "ash", "asa", "atg", "std.ach.home.sch.bckg.tch.bckg"),
      c("asg", "ash", "asa", "atg", "std.bckg.ach.home.tch.bckg"),
      c("acg", "asg", "ash", "asa", "atg", "std.bckg.ach.home.sch.bckg.tch.bckg")
    ),
    TiPi = list(
      c("acg", "sch.bckg"),
      c("asg", "std.bckg"),
      c("asa", "std.ach"),
      c("asg", "ash", "std.bckg.home"),
      c("asg", "asa", "std.bckg.ach"),
      c("ash", "asa", "std.ach.home"),
      c("acg", "asg", "std.bckg.sch.bckg"),
      c("acg", "ash", "std.home.sch.bckg"),
      c("acg", "asa", "std.ach.sch.bckg"),
      c("acg", "atg", "sch.bckg.tch.bckg"),
      c("asg", "atg", "std.bckg.tch.bckg"),
      c("asa", "atg", "std.ach.tch.bckg"),
      c("ash", "atg", "std.home.tch.bckg"),
      c("asg", "ash", "asa", "std.bckg.ach.home"),
      c("asg", "ash", "atg", "std.bckg.home.tch.bckg"),
      c("asg", "asa", "atg", "std.bckg.ach.tch.bckg"),
      c("ash", "asa", "atg", "std.ach.home.tch.bckg"),
      c("acg", "asg", "asa", "std.bckg.ach.sch.bckg"),
      c("acg", "asg", "ash", "std.bckg.home.sch.bckg"),
      c("acg", "ash", "asa", "std.ach.home.sch.bckg"),
      c("acg", "asg", "atg", "std.bckg.sch.bckg.tch.bckg"),
      c("acg", "ash", "atg", "std.home.sch.bckg.tch.bckg"),
      c("acg", "asa", "atg", "std.ach.sch.bckg.tch.bckg"),
      c("acg", "asg", "ash", "asa", "std.bckg.ach.home.sch.bckg"),
      c("acg", "asg", "asa", "atg", "std.bckg.ach.sch.bckg.tch.bckg"),
      c("acg", "asg", "ash", "atg", "std.bckg.home.sch.bckg.tch.bckg"),
      c("acg", "ash", "asa", "atg", "std.ach.home.sch.bckg.tch.bckg"),
      c("asg", "ash", "asa", "atg", "std.bckg.ach.home.tch.bckg"),
      c("acg", "asg", "ash", "asa", "atg", "std.bckg.ach.home.sch.bckg.tch.bckg")
    ),
    RLII = list(
      c("asc", "std.bckg")
    ),
    SITES = list(
      c("bcg", "sch.bckg"),
      c("btm", "math.tch.bckg"),
      c("bts", "sci.tch.bckg"),
      c("bcg", "btm", "sch.bckg.math.tch.bckg"),
      c("bcg", "bts", "sch.bckg.sci.tch.bckg")
    ),
    TALIS = list(
      c("acg", "sch.bckg"),
      c("atg", "tch.bckg"),
      c("acg", "atg", "sch.bckg.tch.bckg"),
      c("bcg", "sch.bckg"),
      c("btg", "tch.bckg"),
      c("bcg", "btg", "sch.bckg.tch.bckg"),
      c("ccg", "sch.bckg"),
      c("ctg", "tch.bckg"),
      c("ccg", "ctg", "sch.bckg.tch.bckg"),
      c("pcg", "sch.bckg"),
      c("ptg", "tch.bckg"),
      c("pcg", "ptg", "sch.bckg.tch.bckg")
    ),
    "TALIS 3S" = list(
      c("alg", "leader.bckg"),
      c("asg", "staff.bckg"),
      c("alg", "asg", "leader.bckg.staff.bckg"),
      c("blg", "leader.bckg"),
      c("bsg", "staff.bckg"),
      c("blg", "bsg", "leader.bckg.staff.bckg")
    ),
    "TEDS-M" = list(
      c("dig", "inst.bckg"),
      c("dpg", "prim.tch.bckg"),
      c("dsg", "low-sec.tch.bckg"),
      c("deg", "educ.bckg"),
      c("dig", "dpg", "inst.bckg.prim.tch.bckg"),
      c("dig", "dsg", "inst.bckg.low-sec.tch.bckg")
    ),
    TIMSS = list(
      c("acg", "sch.bckg"),
      c("asg", "std.bckg"),
      c("asa", "std.ach"),
      c("asg", "asa", "std.bckg.ach"),
      c("asg", "ash", "std.bckg.home"),
      c("ash", "asa", "std.ach.home"),
      c("asg", "ash", "asa", "std.bckg.ach.home"),
      c("acg", "asg", "std.bckg.sch.bckg"),
      c("acg", "ash", "std.home.sch.bckg"),
      c("acg", "asa", "std.ach.sch.bckg"),
      c("acg", "asg", "ash", "asa", "std.bckg.ach.home.sch.bckg"),
      c("acg", "asg", "asa", "std.bckg.ach.sch.bckg"),
      c("acg", "asg", "ash", "std.bckg.home.sch.bckg"),
      c("acg", "ash", "asa", "std.ach.home.sch.bckg"),
      c("acg", "atg", "sch.bckg.tch.bckg"),
      c("asg", "atg", "std.bckg.tch.bckg"),
      c("asa", "atg", "std.ach.tch.bckg"),
      c("ash", "atg", "std.home.tch.bckg"),
      c("acg", "asg", "atg", "std.bckg.sch.bckg.tch.bckg"),
      c("acg", "ash", "atg", "std.home.sch.bckg.tch.bckg"),
      c("acg", "asa", "atg", "std.ach.sch.bckg.tch.bckg"),
      c("acg", "asg", "ash", "asa", "atg", "std.bckg.ach.home.sch.bckg.tch.bckg"),
      c("acg", "asg", "asa", "atg", "std.bckg.ach.sch.bckg.tch.bckg"),
      c("acg", "asg", "ash", "atg", "std.bckg.home.sch.bckg.tch.bckg"),
      c("acg", "ash", "asa", "atg", "std.ach.home.sch.bckg.tch.bckg"),
      c("asg", "ash", "asa", "atg", "std.bckg.ach.home.tch.bckg"),
      c("asg", "ash", "atg", "std.bckg.home.tch.bckg"),
      c("asg", "asa", "atg", "std.bckg.ach.tch.bckg"),
      c("ash", "asa", "atg", "std.ach.home.tch.bckg"),
      c("asp", "std.proc"),
      c("asa", "asp", "std.ach.proc"),
      c("asg", "asp", "std.bckg.proc"),
      c("acg", "asp", "std.proc.sch.bckg"),
      c("atg", "asp", "std.proc.tch.bckg"),
      c("asg", "ash", "asp", "std.bckg.proc.home"),
      c("asg", "asa", "asp", "std.bckg.proc.ach"),
      c("ash", "asa", "asp", "std.ach.proc.home"),
      c("acg", "asg", "asp", "std.bckg.proc.sch.bckg"),
      c("acg", "ash", "asp", "std.proc.home.sch.bckg"),
      c("acg", "asa", "asp", "std.ach.proc.sch.bckg"),
      c("asg", "atg", "asp", "std.bckg.proc.tch.bckg"),
      c("asa", "atg", "asp", "std.ach.proc.tch.bckg"),
      c("ash", "atg", "asp", "std.proc.home.tch.bckg"),
      c("asg", "ash", "asa", "asp", "std.bckg.proc.ach.home"),
      c("asg", "ash", "atg", "asp", "std.bckg.proc.home.tch.bckg"),
      c("asg", "asa", "atg", "asp", "std.bckg.proc.ach.tch.bckg"),
      c("ash", "asa", "atg", "asp", "std.ach.proc.home.tch.bckg"),
      c("acg", "asg", "asa", "asp", "std.bckg.proc.ach.sch.bckg"),
      c("acg", "asg", "ash", "asp", "std.bckg.proc.home.sch.bckg"),
      c("acg", "ash", "asa", "asp", "std.ach.proc.home.sch.bckg"),
      c("acg", "asg", "atg", "asp", "std.bckg.proc.sch.bckg.tch.bckg"),
      c("acg", "ash", "atg", "asp", "std.proc.home.sch.bckg.tch.bckg"),
      c("acg", "asa", "atg", "asp", "std.ach.proc.sch.bckg.tch.bckg"),
      c("acg", "asg", "ash", "asa", "asp", "std.bckg.proc.ach.home.sch.bckg"),
      c("acg", "asg", "asa", "atg", "asp", "std.bckg.proc.ach.sch.bckg.tch.bckg"),
      c("acg", "asg", "ash", "atg", "asp", "std.bckg.proc.home.sch.bckg.tch.bckg"),
      c("acg", "ash", "asa", "atg", "asp", "std.ach.proc.home.sch.bckg.tch.bckg"),
      c("asg", "ash", "asa", "atg", "asp", "std.bckg.proc.ach.home.tch.bckg"),
      c("acg", "asg", "ash", "asa", "atg", "asp", "std.bckg.proc.ach.home.sch.bckg.tch.bckg"),
      c("bcg", "sch.bckg"),
      c("bsg", "std.bckg"),
      c("bsa", "std.ach"),
      c("bsg", "bsa", "std.bckg.ach"),
      c("bcg", "bsg", "std.bckg.sch.bckg"),
      c("bcg", "bsa", "std.ach.sch.bckg"),
      c("bcg", "bsg", "bsa", "std.bckg.ach.sch.bckg"),
      c("bcg", "btm", "sch.bckg.math.tch.bckg"),
      c("bcg", "bts", "sch.bckg.sci.tch.bckg"),
      c("bsg", "btm", "std.bckg.math.tch.bckg"),
      c("bsg", "bts", "std.bckg.sci.tch.bckg"),
      c("bsa", "btm", "std.ach.math.tch.bckg"),
      c("bsa", "bts", "std.ach.sci.tch.bckg"),
      c("bcg", "bsg", "btm", "std.bckg.sch.bckg.math.tch.bckg"),
      c("bcg", "bsg", "bts", "std.bckg.sch.bckg.sci.tch.bckg"),
      c("bcg", "bsa", "btm", "std.ach.sch.bckg.math.tch.bckg"),
      c("bcg", "bsa", "bts", "std.ach.sch.bckg.sci.tch.bckg"),
      c("bsg", "bsa", "btm", "std.bckg.ach.math.tch.bckg"),
      c("bsg", "bsa", "bts", "std.bckg.ach.sci.tch.bckg"),
      c("bcg", "bsg", "bsa", "btm", "std.bckg.ach.sch.bckg.math.tch.bckg"),
      c("bcg", "bsg", "bsa", "bts", "std.bckg.ach.sch.bckg.sci.tch.bckg"),
      c("bsp", "std.proc"),
      c("bsa", "bsp", "std.ach.proc"),
      c("bsg", "bsp", "std.bckg.proc"),
      c("bcg", "bsp", "std.proc.sch.bckg"),
      c("btm", "bsp", "std.proc.math.tch.bckg"),
      c("bts", "bsp", "std.proc.sci.tch.bckg"),
      c("bsg", "bsa", "bsp", "std.bckg.proc.ach"),
      c("bcg", "bsg", "bsp", "std.bckg.proc.sch.bckg"),
      c("bcg", "bsa", "bsp", "std.ach.proc.sch.bckg"),
      c("bcg", "bsg", "bsp", "bsa", "std.bckg.proc.ach.sch.bckg"),
      c("bcg", "btm", "bsp", "sch.bckg.proc.math.tch.bckg"),
      c("bcg", "bts", "bsp", "sch.bckg.proc.sci.tch.bckg"),
      c("bsg", "btm", "bsp", "std.bckg.proc.math.tch.bckg"),
      c("bsg", "bts", "bsp", "std.bckg.proc.sci.tch.bckg"),
      c("bsa", "btm", "bsp", "std.ach.proc.math.tch.bckg"),
      c("bsa", "bts", "bsp", "std.ach.proc.sci.tch.bckg"),
      c("bcg", "bsg", "btm", "bsp", "std.bckg.proc.sch.bckg.math.tch.bckg"),
      c("bcg", "bsg", "bts", "bsp", "std.bckg.proc.sch.bckg.sci.tch.bckg"),
      c("bcg", "bsa", "btm", "bsp", "std.ach.proc.sch.bckg.math.tch.bckg"),
      c("bcg", "bsa", "bts", "bsp", "std.ach.proc.sch.bckg.sci.tch.bckg"),
      c("bsg", "bsa", "btm", "bsp", "std.bckg.proc.ach.math.tch.bckg"),
      c("bsg", "bsa", "bts", "bsp", "std.bckg.proc.ach.sci.tch.bckg"),
      c("bcg", "bsg", "bsa", "btm", "bsp", "std.bckg.proc.ach.sch.bckg.math.tch.bckg"),
      c("bcg", "bsg", "bsa", "bts", "bsp", "std.bckg.proc.ach.sch.bckg.sci.tch.bckg")
    ),
    preTIMSS = list(
      c("acg", "sch.bckg"),
      c("asg", "std.bckg"),
      c("asa", "std.ach"),
      c("asg", "asa", "std.bckg.ach"),
      c("asg", "ash", "std.bckg.home"),
      c("ash", "asa", "std.ach.home"),
      c("asg", "ash", "asa", "std.bckg.ach.home"),
      c("acg", "asg", "std.bckg.sch.bckg"),
      c("acg", "ash", "std.home.sch.bckg"),
      c("acg", "asa", "std.ach.sch.bckg"),
      c("acg", "asg", "ash", "asa", "std.bckg.ach.home.sch.bckg"),
      c("acg", "asg", "asa", "std.bckg.ach.sch.bckg"),
      c("acg", "asg", "ash", "std.bckg.home.sch.bckg"),
      c("acg", "ash", "asa", "std.ach.home.sch.bckg"),
      c("acg", "atg", "sch.bckg.tch.bckg"),
      c("asg", "atg", "std.bckg.tch.bckg"),
      c("asa", "atg", "std.ach.tch.bckg"),
      c("ash", "atg", "std.home.tch.bckg"),
      c("acg", "asg", "atg", "std.bckg.sch.bckg.tch.bckg"),
      c("acg", "ash", "atg", "std.home.sch.bckg.tch.bckg"),
      c("acg", "asa", "atg", "std.ach.sch.bckg.tch.bckg"),
      c("acg", "asg", "ash", "asa", "atg", "std.bckg.ach.home.sch.bckg.tch.bckg"),
      c("acg", "asg", "asa", "atg", "std.bckg.ach.sch.bckg.tch.bckg"),
      c("acg", "asg", "ash", "atg", "std.bckg.home.sch.bckg.tch.bckg"),
      c("acg", "ash", "asa", "atg", "std.ach.home.sch.bckg.tch.bckg"),
      c("asg", "ash", "asa", "atg", "std.bckg.ach.home.tch.bckg"),
      c("asg", "ash", "atg", "std.bckg.home.tch.bckg"),
      c("asg", "asa", "atg", "std.bckg.ach.tch.bckg"),
      c("ash", "asa", "atg", "std.ach.home.tch.bckg")
    ),
    "eTIMSS PSI" = list(
      c("acg", "sch.bckg"),
      c("asg", "std.bckg"),
      c("asa", "std.ach"),
      c("asg", "asa", "std.bckg.ach"),
      c("asg", "ash", "std.bckg.home"),
      c("ash", "asa", "std.ach.home"),
      c("asg", "ash", "asa", "std.bckg.ach.home"),
      c("acg", "asg", "std.bckg.sch.bckg"),
      c("acg", "ash", "std.home.sch.bckg"),
      c("acg", "asa", "std.ach.sch.bckg"),
      c("acg", "asg", "ash", "asa", "std.bckg.ach.home.sch.bckg"),
      c("acg", "asg", "asa", "std.bckg.ach.sch.bckg"),
      c("acg", "asg", "ash", "std.bckg.home.sch.bckg"),
      c("acg", "ash", "asa", "std.ach.home.sch.bckg"),
      c("acg", "atg", "sch.bckg.tch.bckg"),
      c("asg", "atg", "std.bckg.tch.bckg"),
      c("asa", "atg", "std.ach.tch.bckg"),
      c("ash", "atg", "std.home.tch.bckg"),
      c("acg", "asg", "atg", "std.bckg.sch.bckg.tch.bckg"),
      c("acg", "ash", "atg", "std.home.sch.bckg.tch.bckg"),
      c("acg", "asa", "atg", "std.ach.sch.bckg.tch.bckg"),
      c("acg", "asg", "ash", "asa", "atg", "std.bckg.ach.home.sch.bckg.tch.bckg"),
      c("acg", "asg", "asa", "atg", "std.bckg.ach.sch.bckg.tch.bckg"),
      c("acg", "asg", "ash", "atg", "std.bckg.home.sch.bckg.tch.bckg"),
      c("acg", "ash", "asa", "atg", "std.ach.home.sch.bckg.tch.bckg"),
      c("asg", "ash", "asa", "atg", "std.bckg.ach.home.tch.bckg"),
      c("asg", "ash", "atg", "std.bckg.home.tch.bckg"),
      c("asg", "asa", "atg", "std.bckg.ach.tch.bckg"),
      c("ash", "asa", "atg", "std.ach.home.tch.bckg"),
      c("bcg", "sch.bckg"),
      c("bsg", "std.bckg"),
      c("bsa", "std.ach"),
      c("bsg", "bsa", "std.bckg.ach"),
      c("bcg", "bsg", "std.bckg.sch.bckg"),
      c("bcg", "bsa", "std.ach.sch.bckg"),
      c("bcg", "bsg", "bsa", "std.bckg.ach.sch.bckg"),
      c("bcg", "btm", "sch.bckg.math.tch.bckg"),
      c("bcg", "bts", "sch.bckg.sci.tch.bckg"),
      c("bsg", "btm", "std.bckg.math.tch.bckg"),
      c("bsg", "bts", "std.bckg.sci.tch.bckg"),
      c("bsa", "btm", "std.ach.math.tch.bckg"),
      c("bsa", "bts", "std.ach.sci.tch.bckg"),
      c("bcg", "bsg", "btm", "std.bckg.sch.bckg.math.tch.bckg"),
      c("bcg", "bsg", "bts", "std.bckg.sch.bckg.sci.tch.bckg"),
      c("bcg", "bsa", "btm", "std.ach.sch.bckg.math.tch.bckg"),
      c("bcg", "bsa", "bts", "std.ach.sch.bckg.sci.tch.bckg"),
      c("bsg", "bsa", "btm", "std.bckg.ach.math.tch.bckg"),
      c("bsg", "bsa", "bts", "std.bckg.ach.sci.tch.bckg"),
      c("bcg", "bsg", "bsa", "btm", "std.bckg.ach.sch.bckg.math.tch.bckg"),
      c("bcg", "bsg", "bsa", "bts", "std.bckg.ach.sch.bckg.sci.tch.bckg")
    ),
    "TIMSS Advanced" = list(
      c("mcg", "math.sch.bckg"),
      c("msg", "math.std.bckg"),
      c("msa", "math.std.ach"),
      c("msg", "msa", "math.std.bckg.ach"),
      c("mcg", "msg", "math.std.bckg.math.sch.bckg"),
      c("mcg", "msa", "math.std.ach.math.sch.bckg"),
      c("mcg", "msg", "msa", "math.std.bckg.ach.math.sch.bckg"),
      c("mcg", "mtg", "math.tch.bckg.math.sch.bckg"),
      c("msg", "mtg", "math.std.bckg.math.tch.bckg"),
      c("msa", "mtg", "math.std.ach.math.tch.bckg"),
      c("mcg", "msg", "mtg", "math.std.bckg.math.sch.bckg.math.tch.bckg"),
      c("mcg", "msa", "mtg", "math.std.ach.math.sch.bckg.math.tch.bckg"),
      c("msg", "msa", "mtg", "math.std.bckg.ach.math.tch.bckg"),
      c("mcg", "msg", "msa", "mtg", "math.std.bckg.ach.math.sch.bckg.math.tch.bckg"),
      c("pcg", "phys.sch.bckg"),
      c("psg", "phys.std.bckg"),
      c("psa", "phys.std.ach"),
      c("psg", "psa", "phys.std.bckg.ach"),
      c("pcg", "psg", "phys.std.bckg.phys.sch.bckg"),
      c("pcg", "psa", "phys.std.ach.phys.sch.bckg"),
      c("pcg", "psg", "psa", "phys.std.bckg.ach.phys.sch.bckg"),
      c("pcg", "ptg", "phys.tch.bckg.phys.sch.bckg"),
      c("psg", "ptg", "phys.std.bckg.phys.tch.bckg"),
      c("psa", "ptg", "phys.std.ach.phys.tch.bckg"),
      c("pcg", "psg", "ptg", "phys.std.bckg.phys.sch.bckg.phys.tch.bckg"),
      c("pcg", "psa", "ptg", "phys.std.ach.phys.sch.bckg.phys.tch.bckg"),
      c("psg", "psa", "ptg", "phys.std.bckg.ach.phys.tch.bckg"),
      c("pcg", "psg", "psa", "ptg", "phys.std.bckg.ach.phys.sch.bckg.phys.tch.bckg")
    )
  )
  
  design.weight.variables <- list(
    IEA.JK2.studies = c("CivED",
                        "ICCS",
                        "ICILS",
                        "PIRLS",
                        "prePIRLS",
                        "ePIRLS",
                        "RLII",
                        "SITES",
                        "TIMSS",
                        "preTIMSS",
                        "eTIMSS PSI",
                        "TIMSS Advanced",
                        "TiPi",
                        "REDS"),
    IEA.JK2.dflt.std.bckg.types = c("std.bckg",
                                    "std.bckg.sch.bckg",
                                    "std.EUM",
                                    "std.AM",
                                    "std.LAM",
                                    "std.ach.EUM",
                                    "std.ach.AM",
                                    "std.ach.LAM",
                                    "std.EUM.sch.bckg",
                                    "std.AM.sch.bckg",
                                    "std.LAM.sch.bckg",
                                    "std.bckg.EUM",
                                    "std.bckg.ach.EUM",
                                    "std.bckg.ach.AM",
                                    "std.bckg.ach.LAM",
                                    "std.ach.sch.bckg",
                                    "std.bckg.AM",
                                    "std.bckg.LAM",
                                    "std.ach",
                                    "std.bckg.ach",
                                    "std.bckg.ach.sch.bckg",
                                    "std.bckg.EUM.sch.bckg",
                                    "std.bckg.AM.sch.bckg",
                                    "std.bckg.LAM.sch.bckg",
                                    "std.ach.EUM.sch.bckg",
                                    "std.ach.AM.sch.bckg",
                                    "std.ach.LAM.sch.bckg",
                                    "std.bckg.std.ach.EUM.sch.bckg",
                                    "std.bckg.std.ach.AM.sch.bckg",
                                    "std.bckg.std.ach.LAM.sch.bckg",
                                    "std.bckg.home",
                                    "std.bckg.ach.home",
                                    "std.ach.home",
                                    "std.ach.home.sch.bckg",
                                    "std.bckg.home.sch.bckg",
                                    "std.bckg.ach.home.sch.bckg",
                                    "math.std.bckg",
                                    "math.std.ach",
                                    "math.std.bckg.ach",
                                    "math.std.bckg.math.sch.bckg",
                                    "math.std.ach.math.sch.bckg",
                                    "math.std.bckg.ach.math.sch.bckg",
                                    "phys.std.bckg",
                                    "phys.std.ach",
                                    "phys.std.bckg.ach",
                                    "phys.std.bckg.phys.sch.bckg",
                                    "phys.std.ach.phys.sch.bckg",
                                    "phys.std.bckg.ach.phys.sch.bckg",
                                    "std.proc",
                                    "std.bckg.proc",
                                    "std.bckg.proc.home",
                                    "std.bckg.proc.ach",
                                    "std.bckg.proc.sch.bckg",
                                    "std.ach.proc.sch.bckg",
                                    "std.bckg.proc.ach.home",
                                    "std.bckg.proc.ach.sch.bckg",
                                    "std.bckg.proc.home.sch.bckg",
                                    "std.ach.proc.home.sch.bckg",
                                    "std.bckg.proc.ach.home.sch.bckg",
                                    "std.ach.proc.EUM",
                                    "std.ach.proc.LAM",
                                    "std.ach.proc.AM",
                                    "std.bckg.proc.EUM",
                                    "std.bckg.proc.LAM",
                                    "std.bckg.proc.AM",
                                    "std.proc.EUM.sch.bckg",
                                    "std.proc.LAM.sch.bckg",
                                    "std.proc.AM.sch.bckg",
                                    "std.bckg.proc.ach.LAM",
                                    "std.bckg.proc.ach.EUM",
                                    "std.bckg.proc.ach.AM",
                                    "std.bckg.proc.EUM.sch.bckg",
                                    "std.bckg.proc.LAM.sch.bckg",
                                    "std.ach.proc.LAM.sch.bckg",
                                    "std.ach.proc.AM.sch.bckg",
                                    "std.ach.proc.EUM.sch.bckg",
                                    "std.bckg.std.ach.proc.EUM.sch.bckg",
                                    "std.bckg.std.ach.proc.LAM.sch.bckg",
                                    "std.bckg.std.ach.proc.AM.sch.bckg"
    ),
    IEA.JK2.dflt.std.bckg.wgts = c("TOTWGT",
                                   "TOTWGTS"),
    IEA.JK2.dflt.std.bckg.zones = c("JKZONE",
                                    "JKZONES"),
    IEA.JK2.dflt.std.bckg.rep.ind = c("JKREP",
                                      "JKREPS",
                                      "JKINDIC"),
    IEA.JK2.dflt.sch.bckg.types = c("sch.bckg",
                                    "std.home.sch.bckg",
                                    "math.sch.bckg",
                                    "math.sch.bckg.math.tch.bckg",
                                    "phys.sch.bckg",
                                    "phys.sch.bckg.phys.tch.bckg",
                                    "std.proc.home.sch.bckg"
    ),
    IEA.JK2.dflt.sch.bckg.wgts = c("TOTWGTC",
                                   "SCHWGT",
                                   "TOTWGTT"),
    IEA.JK2.dflt.sch.bckg.zones = c("JKZONEC",
                                    "JKCZONE",
                                    "JKZONE",
                                    "JKZONET"),
    IEA.JK2.dflt.sch.bckg.rep.ind = c("JKREPC",
                                      "JKCREP",
                                      "JKREPT"),
    IEA.JK2.dflt.tch.bckg.types = c("tch.bckg",
                                    "sch.bckg.tch.bckg",
                                    "std.bckg.tch.bckg",
                                    "std.bckg.sch.bckg.tch.bckg",
                                    "std.ach.sch.bckg.tch.bckg",
                                    "std.bckg.ach.sch.bckg.tch.bckg",
                                    "std.bckg.ach.home.tch.bckg",
                                    "std.bckg.ach.home.sch.bckg.tch.bckg",
                                    "std.ach.tch.bckg",
                                    "std.home.tch.bckg",
                                    "std.ach.home.tch.bckg",
                                    "math.tch.bckg",
                                    "math.tch.bckg.math.sch.bckg",
                                    "math.std.bckg.math.tch.bckg",
                                    "math.std.bckg.ach.math.tch.bckg",
                                    "math.std.ach.math.tch.bckg",
                                    "math.std.bckg.math.sch.bckg.math.tch.bckg",
                                    "math.std.ach.math.sch.bckg.math.tch.bckg",
                                    "math.std.bckg.ach.math.sch.bckg.math.tch.bckg",
                                    "phys.tch.bckg.phys.sch.bckg",
                                    "phys.std.bckg.phys.tch.bckg",
                                    "phys.std.bckg.ach.phys.tch.bckg",
                                    "phys.std.ach.phys.tch.bckg",
                                    "phys.std.bckg.phys.sch.bckg.phys.tch.bckg",
                                    "phys.std.ach.phys.sch.bckg.phys.tch.bckg",
                                    "phys.std.bckg.ach.phys.sch.bckg.phys.tch.bckg",
                                    "sci.tch.bckg.sci.sch.bckg",
                                    "sci.tch.bckg",
                                    "std.bckg.ach.tch.bckg",
                                    "std.bckg.home.tch.bckg",
                                    "std.bckg.sch.bckg.math.tch.bckg",
                                    "std.bckg.sch.bckg.sci.tch.bckg",
                                    "std.ach.sch.bckg.math.tch.bckg",
                                    "std.ach.sch.bckg.sci.tch.bckg",
                                    "std.home.sch.bckg.tch.bckg",
                                    "std.bckg.home.sch.bckg.tch.bckg",
                                    "std.ach.home.sch.bckg.tch.bckg",
                                    "std.bckg.math.tch.bckg",
                                    "std.ach.math.tch.bckg",
                                    "std.bckg.ach.math.tch.bckg",
                                    "std.bckg.ach.sch.bckg.math.tch.bckg",
                                    "sch.bckg.math.tch.bckg",
                                    "std.bckg.sci.tch.bckg",
                                    "std.ach.sci.tch.bckg",
                                    "std.bckg.ach.sci.tch.bckg",
                                    "std.bckg.ach.sch.bckg.sci.tch.bckg",
                                    "sch.bckg.sci.tch.bckg",
                                    "std.bckg.proc.tch.bckg",
                                    "std.ach.proc.tch.bckg",
                                    "std.proc.home.tch.bckg",
                                    "std.bckg.proc.home.tch.bckg",
                                    "std.bckg.proc.ach.tch.bckg",
                                    "std.ach.proc.home.tch.bckg",
                                    "std.bckg.proc.sch.bckg.tch.bckg",
                                    "std.proc.home.sch.bckg.tch.bckg",
                                    "std.ach.proc.sch.bckg.tch.bckg",
                                    "std.bckg.proc.ach.sch.bckg.tch.bckg",
                                    "std.bckg.proc.home.sch.bckg.tch.bckg",
                                    "std.ach.proc.home.sch.bckg.tch.bckg",
                                    "std.bckg.proc.ach.home.tch.bckg",
                                    "std.bckg.proc.ach.home.sch.bckg.tch.bckg",
                                    "sch.bckg.proc.math.tch.bckg",
                                    "sch.bckg.proc.sci.tch.bckg",
                                    "std.bckg.proc.math.tch.bckg",
                                    "std.bckg.proc.sci.tch.bckg",
                                    "std.ach.proc.math.tch.bckg",
                                    "std.ach.proc.sci.tch.bckg",
                                    "std.bckg.proc.sch.bckg.math.tch.bckg",
                                    "std.bckg.proc.sch.bckg.sci.tch.bckg",
                                    "std.ach.proc.sch.bckg.math.tch.bckg",
                                    "std.ach.proc.sch.bckg.sci.tch.bckg",
                                    "std.bckg.proc.ach.math.tch.bckg",
                                    "std.bckg.proc.ach.sci.tch.bckg",
                                    "std.bckg.proc.ach.sch.bckg.math.tch.bckg",
                                    "std.bckg.proc.ach.sch.bckg.sci.tch.bckg"
    ),
    IEA.JK2.dflt.tch.bckg.wgts = c("TOTWGT",
                                   "TOTWGTT",
                                   "TCHWGT",
                                   "MTOTWGT",
                                   "STOTWGT",
                                   "MATWGT",
                                   "SCIWGT"),
    IEA.JK2.dflt.tch.bckg.zones = c("JKZONET",
                                    "JKZONE"),
    IEA.JK2.dflt.tch.bckg.rep.ind = c("JKREPT",
                                      "JKREP",
                                      "JKINDIC"),
    IEA.BRR.studies = "TEDS-M",
    IEA.BRR.dflt.inst.bckg.types = "inst.bckg",
    IEA.BRR.dflt.inst.bckg.wgts = "FINWGTI",
    IEA.BRR.dflt.inst.bckg.rep.wgts = paste0("FINRWI", 1:32),
    IEA.BRR.other.inst.bckg.wgts = "INSWGTI",
    IEA.BRR.other.inst.bckg.rep.wgts = paste0("INSRWI", 1:32),
    IEA.BRR.dflt.prim.tch.bckg.types = c("prim.tch.bckg",
                                         "inst.bckg.prim.tch.bckg"),
    IEA.BRR.dflt.prim.tch.bckg.wgts = "FINWGTP",
    IEA.BRR.dflt.prim.tch.bckg.rep.wgts = paste0("FINRWP", 1:32),
    IEA.BRR.other.prim.tch.bckg.wgts = "INSWGTP",
    IEA.BRR.other.prim.tch.bckg.rep.wgts = paste0("INSRWP", 1:32),
    IEA.BRR.dflt.low_sec.tch.bckg.types = c("low-sec.tch.bckg",
                                            "inst.bckg.low-sec.tch.bckg"),
    IEA.BRR.dflt.low_sec.tch.bckg.wgts = "FINWGTS",
    IEA.BRR.dflt.low_sec.tch.bckg.rep.wgts = paste0("FINRWS", 1:32),
    IEA.BRR.other.low_sec.tch.bckg.wgts = "INSWGTS",
    IEA.BRR.other.low_sec.tch.bckg.rep.wgts = paste0("INSRWS", 1:32),
    IEA.BRR.dflt.educ.bckg.types = "educ.bckg",
    IEA.BRR.dflt.educ.bckg.wgts = "FINWGTE",
    IEA.BRR.dflt.educ.bckg.rep.wgts = paste0("FINRWE", 1:32),
    IEA.BRR.other.educ.bckg.wgts = "INSWGTE",
    IEA.BRR.other.educ.bckg.rep.wgts = paste0("INSRWE", 1:32),
    OECD.BRR.studies = c("PISA",
                         "PISA for Development",
                         "TALIS",
                         "TALIS 3S"),
    OECD.BRR.dflt.std.bckg = "std.bckg",
    OECD.BRR.dflt.std.bckg.wgts = "W_FSTUWT",
    OECD.BRR.dflt.std.bckg.rep.wgts = c(paste0("W_FSTR", 1:80), paste0("W_FSTURWT", 1:80)),
    OECD.BRR.dflt.out.of.school.bckg = "out.of.school.bckg",
    OECD.BRR.dflt.out.of.school.bckg.wgts = "SPFWT0",
    OECD.BRR.dflt.out.of.school.bckg.rep.wgts = paste0("SPFWT0", 1:30),
    OECD.BRR.dflt.sch.bckg = "sch.bckg",
    OECD.BRR.dflt.sch.bckg.wgts = "SCHWGT",
    OECD.dflt.sch.bckg.rep.wgts = paste0("SRWGT", 1:100),
    OECD.BRR.dflt.tch.bckg = c("tch.bckg",
                               "sch.bckg.tch.bckg"),
    OECD.BRR.dflt.tch.bckg.wgts = "TCHWGT",
    OECD.BRR.dflt.tch.bckg.rep.wgts = paste0("TRWGT", 1:100),
    OECD.BRR.dflt.lead.bckg = c("leader.bckg"),
    OECD.BRR.dflt.lead.bckg.wgts = "CNTRWGT",
    OECD.BRR.dflt.lead.bckg.rep.wgts = paste0("CRWGT", 1:92),
    OECD.BRR.dflt.staff.bckg = c("staff.bckg",
                                 "leader.bckg.staff.bckg"),
    OECD.BRR.dflt.staff.bckg.wgts = "STAFFWGT",
    OECD.BRR.dflt.staff.bckg.rep.wgts = paste0("SRWGT", 1:92)
  )
  
  reshape.imported <- function(object, to.NA, study, cycle, type) {
    setDT(object)
    setnames(x = object, toupper(names(object)))
    object[ , colnames(object) := lapply(.SD, function(i) {
      spss.format.string <- attr(x = i, which = "format.spss")
      start.char <- substr(x = spss.format.string, start = 1, stop = 1)
      var.labels <- attr(x = i, which = "label")
      var.labels <- gsub(pattern = "\\\\", replacement = "/", x = var.labels)
      var.labels <- gsub(pattern = "\u00e2\u20ac\u2122", replacement = "\\\\'", x = var.labels)
      var.labels <- gsub(pattern = "\u00e2\u0080\u009cA |\u00e2\u0080\u009d|\u00e2\u0080\u009c|\u00e2\u0080\u0099 ", replacement = '"', x = var.labels)
      var.labels <- gsub(pattern = "\u00e2\u0080\u0094", replacement = "-", x = var.labels)
      var.labels <- gsub(pattern = "\u00e2\u0080\u00a6", replacement = "...", x = var.labels)
      miss.labels <- lapply(X = all.missing.values.combinations, FUN = function(j) {
        identical(x = j, y = tail(names(sort(attr(x = i, which = "labels"))), n = length(j)))
      })
      miss.labels <- all.missing.values.combinations[which(unlist(miss.labels))]
      if(length(miss.labels) > 0) {
        miss.labels <- miss.labels[[which.max(lengths(miss.labels))]]
        miss.labels <- attr(x = i, which = "labels")[names(attr(x = i, which = "labels")) %in% miss.labels]
      } else {
        miss.labels <- names(attr(x = i, which = "labels"))[unlist(all.missing.values.combinations)]
        if(is.null(miss.labels)) {
          miss.labels <- attr(x = i, which = "na_values")
        }
        if(all(is.na(miss.labels))) {
          miss.labels <- NULL
        } else {
          miss.labels <- miss.labels
        }
      }
      if(start.char %in% c("A", "a") && is.null(attr(x = i, which = "labels"))) {
        i <- as.character(i)
      } else if(start.char %in% c("A", "a") && !is.null(attr(x = i, which = "labels"))) {
        if(isTRUE(to.NA)) {
          if(!is.null(miss.labels)) {
            i[i %in% as.numeric(miss.labels)] <- NA
          }
          i <- as.character(as_factor(x = i, levels = "both"))
        } else if(isFALSE(to.NA)) {
          if(!is.null(miss.labels)) {
            tmp.miss <- paste0("[", miss.labels, "] ", names(miss.labels))
          }
          i <- as.character(as_factor(i, levels = "both"))
          if(!is.null(miss.labels)) {
            attr(i, "missings") <- tmp.miss
          }
        }
      } else if(start.char %in% c("F", "f") && !is.null(attr(x = i, which = "labels"))) {
        names(attr(x = i, which = "labels")) <- make.unique(names(attr(x = i, which = "labels")))
        if(isTRUE(to.NA)) {
          if(all(names(attr(i, "labels")) %in% names(miss.labels))) {
            i <- as.numeric(i)
            i[i %in% miss.labels] <- NA
          } else if(!all(names(attr(i, "labels")) %in% names(miss.labels))) {
            i <- as_factor(i)
            i[i %in% names(miss.labels)] <- NA
            i <- factor(x = i, levels = levels(i)[!levels(i) %in% names(miss.labels)])
          }
        } else if(isFALSE(to.NA)) {
          if(all(names(attr(i, "labels")) %in% names(miss.labels))) {
            i <- as.numeric(i)
            attr(x = i, which = "missings") <- miss.labels
          } else if(all(!attr(i, "labels") %in% names(miss.labels))) {
            i <- as_factor(i)
            attr(i, "missings") <- names(miss.labels)
          }
        }
      } else if(start.char %in% c("F", "f") && is.null(attr(x = i, which = "labels"))) {
        i <- as.numeric(i)
        if(isTRUE(to.NA)) {
          if(is.null(miss.labels)) {
            i
          } else {
            i[i %in% as.numeric(miss.labels)] <- NA
          }
        } else {
          attr(i, "missings") <- miss.labels
        }
      } else if("Date" %in% class(i)) {
        i <- as.numeric(gsub(pattern = "[[:punct:]]+", replacement = "", x = as.character(i)))
      }
      if(length(var.labels)) {
        setattr(x = object[ , (i)], name = "variable.label", value = var.labels)
      }
      setattr(x = object[ , (i)], name = "label", value = NULL)
    })]
    rep.indicator <- names(object)[which(colnames(object) %in% c("JKINDIC", "JKCREP", "JKREP", "jkrep"))]
    if(length(rep.indicator) > 0) {
      object[ , eval(rep.indicator) := lapply(.SD, function(i) {
        tmp.var.label <- attr(x = i, which = "variable.label")
        tmp.missings <- attr(x = i, which = "missings")
        if(is.factor(i)) {
          i <- as.numeric(i) - 1
        } else {
          i <- i
        }
        if(length(tmp.var.label) > 0) {
          attr(x = i, which = "variable.label") <- tmp.var.label
        } else {
          i <- i
        }
        if(length(tmp.missings) > 0) {
          attr(x = i, which = "missings") <- tmp.missings
        } else {
          i <- i
        }
        return(i)
      }), .SDcols = rep.indicator]
    }
    if(study %in% c("TIMSS", "PIRLS", "TIMSS Advanced", "RLII", "TiPi", "prePIRLS", "preTIMSS", "ePIRLS", "eTIMSS PSI", "CivED", "ICCS") || study %in% c("ICILS") & cycle %in% c("2023")) {
      idcntry.var.lab <- attr(x = object[ , IDCNTRY], which = "variable.label")
      if(isFALSE(to.NA)) {
        idcntry.missings <- attr(x = object[ , IDCNTRY], which = "missings")
      }
      idx.cnt.num.code <- match(unique(object[ , IDCNTRY]), cnt.ID.list[["Numeric"]])
      object[ , IDCNTRY := factor(x = IDCNTRY, labels = cnt.ID.list[["ISO"]][idx.cnt.num.code])]
      object[ , setattr(x = IDCNTRY, name = "variable.label", value = idcntry.var.lab)]
    } else if(study %in% c("SITES", "TEDS-M", "TALIS", "REDS") || study %in% c("ICILS") & cycle %in% c("2013", "2018")) {
      idcntry.var.lab <- attr(x = object[ , IDCNTRY], which = "variable.label")
      if(isFALSE(to.NA)) {
        idcntry.missings <- attr(x = object[ , IDCNTRY], which = "missings")
      }
      object[ , IDCNTRY := droplevels(x = IDCNTRY)]
      if(isFALSE(to.NA) && length(idcntry.missings) > 0) {
        object[ , setattr(x = IDCNTRY, name = "missings", value = idcntry.missings)]
      }
      object[ , setattr(x = IDCNTRY, name = "variable.label", value = idcntry.var.lab)]
    } else if(study %in% c("PISA", "PISA for Development")) {
      if(is.character(object[ , CNT])) {
        cnt.var.lab <- attr(x = object[ , CNT], which = "variable.label")
        object[ , CNT := as.factor(gsub(pattern = "^\\[[[:alpha:]]+\\][[:space:]]+", replacement = "", x = CNT))]
        object[ , setattr(x = CNT, name = "variable.label", value = cnt.var.lab)]
      }
    }
    setattr(x = object, name = "study", value = get(x = "study.attribute", envir = parent.frame()))
    setattr(x = object, name = "cycle", value = get(x = "cycle.attribute", envir = parent.frame()))
    setattr(x = object, name = "file.type", value = get(x = "file.type.attribute", envir = parent.frame()))
    setattr(x = object, name = "class", value = c("lsa.data", attr(x = object, which = "class")))
    if(isFALSE(to.NA)) {
      object[ , colnames(object) := lapply(.SD, function(i) {
        if(is.factor(i) & is.numeric(attr(x = i, which = "missings"))) {
          tmp.label <- attr(x = i, which = "variable.label")
          names.miss <- names(attr(x = i, which = "missings"))
          i <- factor(x = i, levels = c(levels(x = i)[!levels(i) %in% as.character(attr(x = i, which = "missings"))], names.miss))
          attr(x = i, which = "missings") <- names.miss
          attr(x = i, which = "variable.label") <- tmp.label
          return(i)
        } else {
          i
        }
      })]
    } else {
      object
    }
    if(study %in% c("PISA", "PISA for Development")) {
      setkeyv(x = object, cols = "CNT")
    } else {
      setkeyv(x = object, cols = "IDCNTRY")
    }
  }
  
  #Define global objects
  load.app.CSS.screen <- "
#loading-content {
position: absolute;
background: #000000;
opacity: 1;
z-index: 100;
left: 0;
right: 0;
height: 100%;
text-align: center;
color: #FFFFFF;
}
"
jscode.close.RALSA.GUI <- "shinyjs.closeWindow = function() { window.close(); }"
jscode.scroll.tab.to.top <- 'shinyjs.scrolltop = function() {window.scrollTo(0, 0);}'
country.ISO.and.names <- data.table(ISOs = c("ARG", "ARM", "AUS", "AUT", "BHR", "BSQ", "BFL", "BFR", "BEL", "BLZ", "BWA", "BGR", "CAN", "COT", "CQU", "CAB", "CBC", "CNS", "CHL", "TWN", "COL", "CYP", "CZE", "CSK", "DNK", "EGY", "ENG", "GBR", "EST", "FIN", "FRA", "GEO", "DEU", "GHA", "GRC", "HKG", "HUN", "ISL", "IS5", "UIN", "IDN", "IRN", "IRL", "ISR", "ITA", "JPN", "JOR", "KOR", "KWT", "LVA", "LBN", "LTU", "LUX", "MKD", "MYS", "MDA", "MAR", "NLD", "NZL", "NOR", "NO5", "PSE", "PHL", "POL", "PRT", "QAT", "ROM", "RUS", "RUM", "SAU", "SCO", "SCG", "SGP", "SVK", "SLV", "SVN", "ZAF", "ZA4", "ESP", "ECT", "SWE", "SE3", "CHE", "SYR", "THA", "TTO", "TUN", "TUR", "USA", "YEM", "MLT", "UMN", "UMA", "OMN", "UKR", "DZA", "KAZ", "MNG", "BIH", "ADU", "BRA", "MEX", "GMX", "TMX", "MXT", "DOM", "GTM", "LIE", "PRY", "PO2", "NO1", "NO2", "NO3", "NOM", "AAD", "ARE", "AZE", "EAN", "ECN", "FI7", "HND", "HRV", "MA6", "MLN", "NIR", "NLN", "NZ1", "SG7", "SRB", "UAL", "UCA", "UCO", "UCT", "UFL", "UNC", "YE6", "ABA", "UK1", "ROU", "MDF", "MET", "MJA", "MNL", "MQR", "MSL", "MTM", "TDF", "TJA", "TNL", "TQR", "TSL", "TTM", "CRI", "NIC", "PER", "CNL", "CSH", "RTR", "NO4", "NO8", "DNW", "EMA", "MAC", "RMO", "ZA5", "DN3", "EMB", "ZGT", "VNM", "URY", "ECU", "ALB", "MNE", "PAK", "XKX", "ZWC", "BFA", "ETH", "IND", "KEN", "RWA", "UGA", "UZB", "ZA6", "DSH", "ASH", "CIV", "IRQ", "NGA", "SEN", "CNB", "QAA", "QBR", "QCA"), Names = c("Argentina", "Armenia", "Australia", "Austria", "Bahrain", "Spain (Basque Country)", "Belgium (Flemish)", "Belgium (French)", "Belgium", "Belize", "Botswana", "Bulgaria", "Canada", "Canada (Ontario)", "Canada (Quebec)", "Canada (Alberta)", "Canada (British Columbia)", "Canada (Nova Scotia)", "Chile", "Chinese Taipei", "Colombia", "Cyprus", "Czech Republic", "Czech Republic", "Denmark", "Egypt", "England", "United Kingdom", "Estonia", "Finland", "France", "Georgia", "Germany", "Ghana", "Greece", "Hong Kong, SAR", "Hungary", "Iceland", "Iceland (Grade 5)", "United States (Indiana)", "Indonesia", "Iran, Islamic Republic of", "Ireland", "Israel", "Italy", "Japan", "Jordan", "Korea, Republic of", "Kuwait", "Latvia", "Lebanon", "Lithuania", "Luxembourg", "North Macedonia", "Malaysia", "Moldova", "Morocco", "Netherlands", "New Zealand", "Norway", "Norway (Grade 5)", "Palestinian National Authority", "Philippines", "Poland", "Portugal", "Qatar", "Romania", "Russian Federation", "Russian Federation (Moscow)", "Saudi Arabia", "Scotland", "Serbia", "Singapore", "Slovak Republic", "El Salvador", "Slovenia", "South Africa", "South Africa (Grade 4)", "Spain", "Spain (Catalonia)", "Sweden", "Sweden (Grade 3)", "Switzerland", "Syria, Arab Republic of", "Thailand", "Trinidad And Tobago", "Tunisia", "Turkey", "United States", "Yemen", "Malta", "United States (Minnesota)", "United States (Massachusetts)", "Oman", "Ukraine", "Algeria", "Kazakhstan", "Mongolia", "Bosnia and Herzegovina", "United Arab Emirates (Dubai)", "Brazil", "Mexico", "Mexico (Generales/Tecnicas/Privadas)", "Mexico (Telesecundarias)", "Mexico (Talis-Nacional)", "Dominican Republic", "Guatemala", "Liechtenstein", "Paraguay", "Poland (Second-Cycle Programs)", "Norway (ALU)", "Norway (ALU +)", "Norway (PPU)", "Norway (MASTERS)", "United Arab Emirates (Abu Dhabi)", "United Arab Emirates", "Azerbaijan, Republic of", "Spain (Andalucia)", "Spain (Canary Islands)", "Finland (Grade 7)", "Honduras, Republic of", "Croatia", "Morocco (Grade 6)", "Malta (Maltese)", "Northern Ireland", "The Netherlands (50 additional schools)", "New Zealand (TIMSS data processing)", "Singapore (Chinese Grade 7)", "Serbia", "United States (Alabama)", "United States (California)", "United States (Colorado)", "United States (Connecticut)", "United States (Florida)", "United States (North Carolina)", "Yemen (Grade 6)", "Argentina, Buenos Aires", "England and Northern Ireland (UK)", "Romania", "Mexico (Distrito Federal)", "Mexico (International Telesecundaria)", "Mexico (Jalisco)", "Mexico (Nuevo Leon)", "Mexico (Quintana Roo)", "Mexico (San Luis Potosi)", "Mexico (Tamaulipas)", "Mexico (Telesecundaria-Distrito Federal)", "Mexico (Telesecundaria-Jalisco)", "Mexico (Telesecundaria-Nuevo Leon)", "Mexico (Telesecundaria-Quintana Roo)", "Mexico (Telesecundaria-San Luis Potosi)", "Mexico (Telesecundaria-Tamaulipas)", "Costa Rica", "Nicaragua", "Peru", "Canada (Newfoundland and Labrador)", "China (Shanghai)", "Russia (8+ sample)", "Norway (4)", "Norway (8)", "Germany, North-Rhine Westphalia", "Spain, Madrid", "Macao SAR", "Russian Federation, Moscow", "South Africa (Eng/Afr)", "Denmark (Grade 3)", "Spain, Madrid, Bilingual", "South Africa (Gauteng)", "Vietnam", "Uruguay", "Ecuador", "Albania", "Montenegro", "Pakistan", "Kosovo", "South Africa (Western Cape Province)", "Burkina Faso", "Ethiopia", "India", "Kenya", "Rwanda", "Uganda", "Uzbekistan", "South Africa (Grade 6)", "Germany, Schleswig-Holstein", "United Arab Emirates (Sharjah)", "Ivory Coast", "Iraq", "Nigeria", "Senegal", "Canada (New Brunswick)", "Baku, Sumgait (Azerbaijan)", "Ceará, Pará, São Paulo (Brazil)", "Hangzhou (China)"))
PISA.data.files <- list(
  PISA.pre2015.TXT.files = list(
    "2000" = c("intcogn_v4.txt",
               "intscho.txt",
               "intstud_math_v3.txt",
               "intstud_read_v3.txt",
               "intstud_scie_v3.txt"),
    "2003" = c("INT_cogn_2003_v2.txt",
               "INT_schi_2003.txt",
               "INT_stui_2003_v2.txt"),
    "2006" = c("INT_Cogn06_S_Dec07.txt",
               "INT_Cogn06_T_Dec07.txt",
               "INT_Par06_Dec07.txt",
               "INT_Sch06_Dec07.txt",
               "INT_Stu06_Dec07.txt"),
    "2009" = c("INT_COG09_S_DEC11.txt",
               "INT_COG09_TD_DEC11.txt",
               "INT_PAR09_DEC11.txt",
               "INT_SCQ09_Dec11.txt",
               "INT_STQ09_DEC11.txt"),
    "2012" = c("INT_COG12_DEC03.txt",
               "INT_COG12_S_DEC03.txt",
               "INT_PAQ12_DEC03.txt",
               "INT_SCQ12_DEC03.txt",
               "INT_STU12_DEC03.txt")
  ),
  PISA.pre2015.SPS.files = list(
    "2000" = c("PISA2000_SPSS_cognitive_item.sps",
               "PISA2000_SPSS_school_questionnaire.sps",
               "PISA2000_SPSS_student_mathematics.sps",
               "PISA2000_SPSS_student_reading.sps",
               "PISA2000_SPSS_student_science.sps"),
    "2003" = c("PISA2003_SPSS_cognitive_item.sps",
               "PISA2003_SPSS_school.sps",
               "PISA2003_SPSS_student.sps"),
    "2006" = c("PISA2006_SPSS_scored_cognitive_item.sps",
               "PISA2006_SPSS_cognitive_item.sps",
               "PISA2006_SPSS_parent.sps",
               "PISA2006_SPSS_school.sps",
               "PISA2006_SPSS_student.sps"),
    "2009" = c("PISA2009_SPSS_score_cognitive_item.sps",
               "PISA2009_SPSS_cognitive_item.sps",
               "PISA2009_SPSS_parent.sps",
               "PISA2009_SPSS_school.sps",
               "PISA2009_SPSS_student.sps"),
    "2012" = c("PISA2012_SPSS_cognitive_item.sps",
               "PISA2012_SPSS_scored_cognitive_item.sps",
               "PISA2012_SPSS_parent.sps",
               "PISA2012_SPSS_school.sps",
               "PISA2012_SPSS_student.sps")
  ),
  PISA.2015.plus.SPSS.files = list(
    "2015" = c("CY6_MS_CM2_SCH_QQQ.sav",
               "CY6_MS_CM2_STU_COG.sav",
               "CY6_MS_CM2_STU_QQQ.sav",
               "CY6_MS_CM2_STU_QTM.sav",
               "CY6_MS_CM2_TCH_QQQ.sav",
               "CY6_MS_CMB_SCH_QQQ.sav",
               "Cy6_ms_cmb_stu_cog.sav",
               "CY6_MS_CMB_STU_CPS.sav",
               "CY6_MS_CMB_STU_FLT.sav",
               "CY6_MS_CMB_STU_QQ2.sav",
               "CY6_MS_CMB_STU_QQQ.sav",
               "Cy6_ms_cmb_stu_qtm.sav",
               "Cy6_ms_cmb_tch_qqq.sav"),
    "2018" = c("CY07_MSU_FLT_COG.SAV",
               "CY07_MSU_FLT_QQQ.SAV",
               "CY07_MSU_FLT_TIM.SAV",
               "CY07_MSU_FLT_TTM.SAV",
               "CY07MSU_QMC_FLT_COG.SAV",
               "CY07MSU_QMC_FLT_QQQ.SAV",
               "CY07MSU_QMC_FLT_TIM.SAV",
               "CY07MSU_QMC_SCH_QQQ.sav",
               "CY07MSU_QMC_STU_COG.sav",
               "CY07MSU_QMC_STU_QQQ.sav",
               "CY07MSU_QMC_STU_TIM.sav",
               "CY07_MSU_SCH_QQQ.sav",
               "CY07_MSU_STU_COG.sav",
               "CY07_MSU_STU_QQQ.sav",
               "CY07_MSU_STU_TIM.sav",
               "CY07_MSU_STU_TTM.SAV",
               "CY07_MSU_TCH_QQQ.sav",
               "CY07_QMC_FLT_TTM.SAV",
               "CY07_QMC_STU_TTM.SAV",
               "CY07_VNM_STU_COG.sav",
               "CY07_VNM_STU_PVS.sav"),
    "2022" = c("CY08MSP_SCH_QQQ.sav",
               "CY08MSP_STU_COG.SAV",
               "CY08MSP_STU_QQQ.sav",
               "CY08MSP_STU_TIM.SAV",
               "CY08MSP_TCH_QQQ.sav",
               "CY08MSP_FLT_COG.SAV",
               "CY08MSP_FLT_QQQ.SAV",
               "CY08MSP_FLT_TIM.SAV")
  )
)
PISA.for.Development.data.files <- list(
  PISA.for.Development.2019.files = list(
    "2019" = c("CY1MDAI_SCH_QQQ.sav",
               "CY1MDAI_STU_COG.sav",
               "CY1MDAI_STU_QQQ.sav",
               "CY1MDAI_TCH_QQQ.sav",
               "CY1MDCI_COG.SAV",
               "CY1MDCI_QQQ.SAV",
               "CY1MDCI_TIM.SAV")
  )
)
studies.and.cycles <- list(
  TIMSS = list(
    first.chars = c("acg", "asa", "asg", "ash", "asr", "ast", "atg", "asp", "bcg", "bsa", "bsg", "bsr", "bst", "btm", "bts", "bsp"), "1995" = "m1", "1999" = "m2", "2003" = "m3", "2007" = "m4", "2011" = "m5", "2015" = "m6", "2019" = "m7", "2023" = "m8", "2027" = "m9"
  ),
  "TIMSS Bridge" = list(
    first.chars = c("acg", "asa", "asg", "ash", "asr", "ast", "atg", "bcg", "bsa", "bsg", "bsr", "bst", "btm", "bts"), "2007" = "b4", "2019" = "b7"),
  preTIMSS = list(
    first.chars = c("acg", "asa", "asg", "ash", "asr", "ast", "atg"), "2015" = "n1"
  ),
  "eTIMSS PSI" = list(
    first.chars = c("acg", "asa", "asg", "ash", "asr", "ast", "atg", "bcg", "bsa", "bsg", "bsr", "bst", "btm", "bts"), "2019" = "z7", "2023" = "z8", "2027" = "z9"
  ),
  "TIMSS Advanced" = list(
    first.chars = c("mcg", "msa", "msg", "msr", "mst", "mtg", "pcg", "psa", "psg", "psr", "pst", "ptg"), "1995" = "m1", "2008" = "m2", "2015" = "m3"
  ),
  PIRLS = list(
    first.chars = c("acg", "asa", "asg", "ash", "asr", "ast", "atg", "asp"), "2001" = "r1", "2006" = "r2", "2011" = "r3", "2016" = "r4", "2021" = "r5", "2026" = "r6"
  ),
  "PIRLS Bridge" = list(
    first.chars = c("acg", "asa", "asg", "ash", "asr", "ast", "atg"), "2021" = "a5"
  ),
  prePIRLS = list(
    first.chars = c("acg", "asa", "asg", "ash", "asr", "ast", "atg"), "2011" = "l1", "2016" = "l2"
  ),
  ePIRLS = list(
    first.chars = c("acg", "asa", "asg", "ash", "asr", "ast", "atg"), "2016" = "e1"
  ),
  TiPi = list(
    first.chars = c("acg", "asa", "asg", "ash", "ast", "atg"), "2011" = "b1"
  ),
  RLII = list(
    first.chars = "asc", "1991" = "t1", "2001" = "t2"
  ),
  SITES = list(
    first.chars = c("axg", "bxg", "cxg", "bcg", "btm", "bts"), "1998" = "s0", "2006" = "s1"
  ),
  CivED = list(
    first.chars = c("bc_", "bl_", "bs_", "bt_", "cs_"), "1999" = "f2"
  ),
  ICCS = list(
    first.chars = c("icg", "isa", "ise", "isg", "isl", "isr", "iss", "itg", "isp", "jsa", "jse", "jsg", "jsl", "jss", "jsr"), "2009" = "c2", "2016" = "c3", "2022" = "c4", "2027" = "c5"
  ),
  "ICCS Bridge" = list(
    first.chars = c("icg", "isa", "ise", "isg", "isl", "isr", "iss", "itg"), "2022" = "b4"
  ),
  ICILS = list(
    first.chars = c("bcg", "bsg", "btg"), "2013" = "i1", "2018" = "i2", "2023" = "i3"
  ),
  REDS = list(
    first.chars = c("bcg", "bsg", "btg"), "2021" = "v1"
  ),
  TALIS = list(
    first.chars = c("acg", "atg", "bcg", "btg", "ccg", "ctg", "pcg", "ptg"), "2008" = "t1", "2013" = "t2", "2018" = "t3", "2024" = "t4"
  ),
  "TALIS 3S" = list(
    first.chars = c("alg", "asg", "blg", "bsg"), "2018" = "s1"
  ),
  "TEDS-M" = list(
    first.chars = c("dig", "deg", "dpg", "dsg", "dpr", "dsr"), "2008" = "t1"
  )
)
respondents.and.cycles <- list(
  "Student background" = list(
    resp.type = c("asc", "asg", "bsg", "isg", "jsg", "bs_", "cs_"),
    round = c(
      "b1",
      "c2", "c3", "c4", "c5", "c6",
      "e1", "e2", "e3", "e4", "e5", "e6",
      "f2",
      "i1", "i2", "i3", "i4", "i5", "i6",
      "v1",
      "l1", "l2", "l3", "l4", "l5", "l6",
      "m1", "m2", "m3", "m4", "m5", "m6", "m7", "m8", "m9",
      "n1", "n2", "n3", "n4", "n5", "n6",
      "z7", "z8", "z9",
      "r1", "r2", "r3", "r4", "r5", "r6", "r7",
      "t1", "t2"
    )
  ),
  "Mathematics student background" = list(
    resp.type = "msg",
    round = c("m1", "m2", "m3", "m4")
  ),
  "Physics student background" = list(
    resp.type = "psg",
    round = c("m1", "m2", "m3", "m4")
  ),
  "Student achievement items" = list(
    resp.type = c("asa", "bsa", "isa", "jsa"),
    round = c(
      "c2", "c3", "c4", "c5", "c6",
      "e1", "e2", "e3", "e4", "e5", "e6",
      "l1", "l2", "l3", "l4", "l5", "l6",
      "m1", "m2", "m3", "m4", "m5", "m6", "m7", "m8", "m9",
      "n1", "n2", "n3", "n4", "n5", "n6",
      "z7", "z8", "z9",
      "r1", "r2", "r3", "r4", "r5", "r6", "r7"
    )
  ),
  "Student home" = list(
    resp.type = "ash",
    round = c(
      "b1",
      "e1", "e2", "e3", "e4", "e5", "e6",
      "l1", "l2", "l3", "l4", "l5", "l6",
      "m1", "m2", "m3", "m4", "m5", "m6", "m7", "m8", "m9",
      "n1", "n2", "n3", "n4", "n5", "n6",
      "z7", "z8", "z9",
      "r1", "r2", "r3", "r4", "r5", "r6", "r7"
    )
  ),
  "European student module" = list(
    resp.type = "ise",
    round = c("c2", "c3", "c4", "c5", "c6")
  ),
  "Latin American student module" = list(
    resp.type = "isl",
    round = c("c2", "c3", "c4", "c5", "c6")
  ),
  "Asian student module" = list(
    resp.type = "iss",
    round = c("c2", "c3", "c4", "c5", "c6")
  ),
  "Teacher background" = list(
    resp.type = c("atg", "btg", "ctg", "ptg", "itg", "bt_"),
    round = c(
      "b1",
      "c2", "c3", "c4", "c5", "c6",
      "e1", "e2", "e3", "e4", "e5", "e6",
      "f2",
      "i1", "i2", "i3", "i4", "i5", "i6",
      "v1",
      "l1", "l2", "l3", "l4", "l5", "l6",
      "m1", "m2", "m3", "m4", "m5", "m6", "m7", "m8", "m9",
      "n1", "n2", "n3", "n4", "n5", "n6",
      "z7", "z8", "z9",
      "r1", "r2", "r3", "r4", "r5", "r6", "r7",
      "t1", "t2", "t3", "t4", "t5", "t6"
    )
  ),
  "Mathematics teacher background" = list(
    resp.type = c("btm", "mtg"),
    round = c(
      "m1", "m2", "m3", "m4", "m5", "m6", "m7", "m8", "m9",
      "z7", "z8", "z9",
      "s1"
    )
  ),
  "Physics teacher background" = list(
    resp.type = "ptg",
    round = c("m1", "m2", "m3", "m4", "m5", "m6", "m7", "m8", "m9")
  ),
  "Science teacher background" = list(
    resp.type = "bts",
    round = c(
      "m1", "m2", "m3", "m4", "m5", "m6", "m7", "m8", "m9",
      "z7", "z8", "z9",
      "s1"
    )
  ),
  "School background" = list(
    resp.type = c("acg", "bcg", "ccg", "pcg", "icg", "bc_"),
    round = c(
      "f2",
      "c2", "c3", "c4", "c5", "c6",
      "i1", "i2", "i3", "i4", "i5", "i6",
      "v1",
      "e1", "e2", "e3", "e4", "e5", "e6",
      "l1", "l2", "l3", "l4", "l5", "l6",
      "m1", "m2", "m3", "m4", "m5", "m6", "m7", "m8", "m9",
      "z7", "z8", "z9",
      "r1", "r2", "r3", "r4", "r5", "r6", "r7",
      "s1",
      "t1", "t2", "t3", "t4", "t5", "t6"
    )
  ),
  "Mathematics school background" = list(
    resp.type = "mcg",
    round = c("m1", "m2", "m3", "m4", "m5", "m6", "m7", "m8", "m9")
  ),
  "Physics school background" = list(
    resp.type = "pcg",
    round = c("m1", "m2", "m3", "m4", "m5", "m6", "m7", "m8", "m9")
  ),
  "Leader background data" = list(
    resp.type = c("alg", "blg"),
    round = c("s1", "s2", "s3", "s4")
  ),
  "Staff background data" = list(
    resp.type = c("asg", "bsg"),
    round = c("s1", "s2", "s3", "s4")
  ),
  "Institutional program background" = list(
    resp.type = "dig",
    round = "t1"
  ),
  "Educator background" = list(
    resp.type = "deg",
    round = "t1"
  ),
  "Future primary teacher background" = list(
    resp.type = "dpg",
    round = "t1"
  ),
  "Future lower-secondary teacher background" = list(
    resp.type = "dsg",
    round = "t1"
  ),
  "Student process data" = list(
    resp.type = c("isp", "asp", "bsp"),
    round = c(
      "c4",
      "r5",
      "m8"
    )
  )
)
file.merged.respondents <- list(
  "educ.bckg"                                     = "Educator background",
  "inst.bckg"                                     = "Institutional background",
  "inst.bckg.low-sec.tch.bckg"                    = "Institutional background<br/>Lower-secondary future teacher background",
  "inst.bckg.prim.tch.bckg"                       = "Institutional background<br/>Primary future teacher background",
  "leader.bckg"                                   = "Leader background",
  "leader.bckg.staff.bckg"                        = "Leader background<br/>Staff background",
  "low-sec.tch.bckg"                              = "Future lower-secondary teacher background",
  "math.sch.bckg"                                 = "Advanced mathematics school background",
  "math.std.ach"                                  = "Advanced mathematics student achievement",
  "math.std.ach.math.sch.bckg"                    = "Advanced mathematics student achievement<br/>Advanced mathematics school background",
  "math.std.ach.math.sch.bckg.math.tch.bckg"      = "Advanced mathematics student achievement<br/>Advanced mathematics school background<br/>Advanced mathematics teacher background",
  "math.std.ach.math.tch.bckg"                    = "Advanced mathematics student achievement<br/>Advanced mathematics teacher background",
  "math.std.bckg"                                 = "Advanced mathematics student background",
  "math.std.bckg.ach"                             = "Advanced mathematics student background<br/>Advanced mathematics student achievement",
  "math.std.bckg.ach.math.sch.bckg"               = "Advanced mathematics student background<br/>Advanced mathematics student achievement<br/>Advanced mathematics school background",
  "math.std.bckg.ach.math.sch.bckg.math.tch.bckg" = "Advanced mathematics student background<br/>Advanced mathematics student achievement<br/>Advanced mathematics school background<br/>Advanced mathematics teacher background",
  "math.std.bckg.ach.math.tch.bckg"               = "Advanced mathematics student background<br/>Advanced mathematics student achievement<br/>Advanced mathematics teacher background",
  "math.std.bckg.math.sch.bckg"                   = "Advanced mathematics student background<br/>Advanced mathematics school background",
  "math.std.bckg.math.sch.bckg.math.tch.bckg"     = "Advanced mathematics student background<br/>Advanced mathematics school background<br/>Advanced mathematics teacher background",
  "math.std.bckg.math.tch.bckg"                   = "Advanced mathematics student background<br/>Advanced mathematics teacher background",
  "math.tch.bckg"                                 = "Advanced mathematics teacher background",
  "math.tch.bckg.math.sch.bckg"                   = "Advanced mathematics teacher background<br/>Advanced mathematics school background",
  "phys.sch.bckg"                                 = "Advanced physics school background",
  "phys.std.ach"                                  = "Advanced physics student achievement",
  "phys.std.ach.phys.sch.bckg"                    = "Advanced physics student achievement<br/>Advanced physics school background",
  "phys.std.ach.phys.sch.bckg.phys.tch.bckg"      = "Advanced physics student achievement<br/>Advanced physics school background<br/>Advanced physics teacher background",
  "phys.std.ach.phys.tch.bckg"                    = "Advanced physics student achievement<br/>Advanced physics teacher background",
  "phys.std.bckg"                                 = "Advanced physics student background",
  "phys.std.bckg.ach"                             = "Advanced physics student background<br/>Advanced physics student achievement",
  "phys.std.bckg.ach.phys.sch.bckg"               = "Advanced physics student background<br/>Advanced physics student achievement<br/>Advanced physics school background",
  "phys.std.bckg.ach.phys.sch.bckg.phys.tch.bckg" = "Advanced physics student background<br/>Advanced physics student achievement<br/>Advanced physics school background<br/>Advanced physics teacher background",
  "phys.std.bckg.ach.phys.tch.bckg"               = "Advanced physics student background<br/>Advanced physics student achievement<br/>Advanced physics teacher background",
  "phys.std.bckg.phys.sch.bckg"                   = "Advanced physics student background<br/>Advanced physics school background",
  "phys.std.bckg.phys.sch.bckg.phys.tch.bckg"     = "Advanced physics student background<br/>Advanced physics school background<br/>Advanced physics teacher background",
  "phys.std.bckg.phys.tch.bckg"                   = "Advanced physics student background<br/>Advanced physics teacher background",
  "phys.tch.bckg.phys.sch.bckg"                   = "Advanced physics teacher background<br/>Advanced physics school background",
  "prim.tch.bckg"                                 = "Future primary teacher background",
  "sch.bckg"                                      = "School background",
  "sch.bckg.math.tch.bckg"                        = "School background<br/>Mathematics teacher background",
  "sch.bckg.sci.tch.bckg"                         = "School background<br/>Science teacher background",
  "sch.bckg.tch.bckg"                             = "School background<br/>Teacher background",
  "sci.tch.bckg"                                  = "Science teacher background",
  "staff.bckg"                                    = "Staff background",
  "std.AM"                                        = "Student Asian module",
  "std.AM.sch.bckg"                               = "Student Asian module<br/>School background",
  "std.EUM"                                       = "Student European module",
  "std.EUM.sch.bckg"                              = "Student European module<br/>School background",
  "std.LAM"                                       = "Student Latin American module",
  "std.LAM.sch.bckg"                              = "Student Latin American module<br/>School background",
  "std.ach"                                       = "Student achievement",
  "std.ach.AM"                                    = "Student achievement<br/>Asian module",
  "std.ach.AM.sch.bckg"                           = "Student achievement<br/>Asian module<br/>School background",
  "std.ach.EUM"                                   = "Student achievement<br/>European module",
  "std.ach.EUM.sch.bckg"                          = "Student achievement<br/>European module<br/>School background",
  "std.ach.LAM"                                   = "Student achievement<br/>Latin American module",
  "std.ach.LAM.sch.bckg "                         = "Student achievement<br/>Latin American module<br/>School background",
  "std.ach.home"                                  = "Student achievement<br/>Student home background",
  "std.ach.home.sch.bckg"                         = "Student achievement<br/>Student home background<br/>School background",
  "std.ach.home.sch.bckg.tch.bckg"                = "Student achievement<br/>Student home background<br/>School background<br/>Teacher background",
  "std.ach.home.tch.bckg"                         = "Student achievement<br/>Student home background<br/>Teacher background",
  "std.ach.math.tch.bckg"                         = "Student achievement<br/>Mathematics teacher background",
  "std.ach.sch.bckg"                              = "Student achievement<br/>School background",
  "std.ach.sch.bckg.math.tch.bckg"                = "Student achievement<br/>School background<br/>Mathematics teacher background",
  "std.ach.sch.bckg.sci.tch.bckg"                 = "Student achievement<br/>School background<br/>Science teacher background",
  "std.ach.sch.bckg.tch.bckg"                     = "Student achievement<br/>School background<br/>Teacher background",
  "std.ach.sci.tch.bckg"                          = "Student achievement<br/>Science teacher background",
  "std.ach.tch.bckg"                              = "Student achievement<br/>Teacher background",
  "std.bckg"                                      = "Student background",
  "std.bckg.AM"                                   = "Student background<br/>Asian module",
  "std.bckg.AM.sch.bckg"                          = "Student background<br/>Asian module<br/>School background",
  "std.bckg.EUM"                                  = "Student background<br/>European module",
  "std.bckg.EUM.sch.bckg"                         = "Student background<br/>European module<br/>School background",
  "std.bckg.LAM"                                  = "Student background<br/>Latin American module",
  "std.bckg.LAM.sch.bckg"                         = "Student background<br/>Latin American module<br/>School background",
  "std.bckg.ach"                                  = "Student background<br/>Student achievement",
  "std.bckg.ach.AM"                               = "Student background<br/>Student achievement<br/>Asian module",
  "std.bckg.ach.EUM"                              = "Student background<br/>Student achievement<br/>European module",
  "std.bckg.ach.LAM"                              = "Student background<br/>Student achievement<br/>Latin American module",
  "std.bckg.ach.home"                             = "Student background<br/>Student achievement<br/>Student home background",
  "std.bckg.ach.home.sch.bckg"                    = "Student background<br/>Student achievement<br/>Student home background<br/>School background",
  "std.bckg.ach.home.sch.bckg.tch.bckg"           = "Student background<br/>Student achievement<br/>Student home background<br/>School background<br/>Teacher background",
  "std.bckg.ach.home.tch.bckg"                    = "Student background<br/>Student achievement<br/>Student home background<br/>Teacher background",
  "std.bckg.ach.math.tch.bckg"                    = "Student background<br/>Student achievement<br/>Mathematics teacher background",
  "std.bckg.ach.sch.bckg"                         = "Student background<br/>Student achievement<br/>School background",
  "std.bckg.ach.sch.bckg.math.tch.bckg"           = "Student background<br/>Student achievement<br/>School background<br/>Mathematics teacher background",
  "std.bckg.ach.sch.bckg.sci.tch.bckg"            = "Student background<br/>Student achievement<br/>School background<br/>Science teacher background",
  "std.bckg.ach.sch.bckg.tch.bckg"                = "Student background<br/>Student achievement<br/>School background<br/>Teacher background",
  "std.bckg.ach.sci.tch.bckg"                     = "Student background<br/>Student achievement<br/>Science teacher background",
  "std.bckg.ach.tch.bckg"                         = "Student background<br/>Student achievement<br/>Teacher background",
  "std.bckg.home"                                 = "Student background<br/>Student home background",
  "std.bckg.home.sch.bckg"                        = "Student background<br/>Student home background<br/>School background",
  "std.bckg.home.sch.bckg.tch.bckg"               = "Student background<br/>Student home background<br/>School background<br/>Teacher background",
  "std.bckg.home.tch.bckg"                        = "Student background<br/>Student home background<br/>Teacher background",
  "std.bckg.math.tch.bckg"                        = "Student background<br/>Mathematics teacher background",
  "std.bckg.sch.bckg"                             = "Student background<br/>School background",
  "std.bckg.sch.bckg.math.tch.bckg"               = "Student background<br/>School background<br/>Mathematics teacher background",
  "std.bckg.sch.bckg.sci.tch.bckg"                = "Student background<br/>School background<br/>Science teacher background",
  "std.bckg.sch.bckg.tch.bckg"                    = "Student background<br/>School background<br/>Teacher background",
  "std.bckg.sci.tch.bckg"                         = "Student background<br/>Science teacher background",
  "std.bckg.std.ach.AM.sch.bckg"                  = "Student background<br/>Student achievement<br/>Asian module<br/>School background",
  "std.bckg.std.ach.EUM.sch.bckg"                 = "Student background<br/>Student achievement<br/>European module<br/>School background",
  "std.bckg.std.ach.LAM.sch.bckg"                 = "Student background<br/>Student achievement<br/>Latin American module<br/>School background",
  "std.bckg.tch.bckg"                             = "Student background<br/>Teacher background",
  "std.home.sch.bckg"                             = "Student home background<br/>School background",
  "std.home.sch.bckg.tch.bckg"                    = "Student home background<br/>School background<br/>Teacher background",
  "std.home.tch.bckg"                             = "Student home background<br/>Teacher background",
  "tch.bckg"                                      = "Teacher background",
  "std.home"                                      = "Student home background",
  "std.proc"                                      = "Student process data",
  "std.bckg.proc"                                 = "Student background<br/>Student process data",
  "std.ach.proc"                                  = "Student achievement<br/>Student process data",
  "std.proc.sch.bckg"                             = "Student process data<br/>School background",
  "std.proc.tch.bckg"                             = "Student process data<br/>Teacher background",
  "std.proc.math.tch.bckg"                        = "Student process data<br/>Mathematics teacher background",
  "std.proc.sci.tch.bckg"                        = "Student process data<br/>Science teacher background",
  "std.bckg.proc.home"                            = "Student background<br/>Student process data",
  "std.bckg.proc.ach"                             = "Student background<br/>Student achievement<br/>Student process data",
  "std.bckg.proc.sch.bckg"                        = "Student background<br/>Student process data<br/>School background",
  "std.ach.proc.sch.bckg"                         = "Student achievement<br/>Student process data<b/>School background",
  "std.bckg.proc.ach.home"                        = "Student background<br/>Student achievement<br/>Student home background<br/>Student process data",
  "std.bckg.proc.ach.sch.bckg"                    = "Student background<br/>Student achievement<br/>Student process data<br/>School background",
  "std.bckg.proc.home.sch.bckg"                   = "Student background<br/>Student home background<br/>Student process data<br/>School background",
  "std.ach.proc.home.sch.bckg"                    = "Student achievement<br/>Student process data<br/>Student home background<br/>School background",
  "std.bckg.proc.ach.home.sch.bckg"               = "Student background<br/>Student achievement<br/>Student home background<br/>Student process data<br/>School background",
  "std.proc.EUM"                                  = "European module<br/>Student process data",
  "std.proc.LAM"                                  = "Latin American module<br/>Student process data",
  "std.proc.AM"                                  = "Asian module<br/>Student process data",
  "std.ach.proc.EUM"                              = "Student achievement<br/>European module<br/>Student process data",
  "std.ach.proc.LAM"                              = "Student achievement<br/>Latin American module<br/>Student process data",
  "std.ach.proc.AM"                               = "Student achievement<br/>Asian module<br/>Student process data",
  "std.bckg.proc.EUM"                             = "Student background<br/>European module<br/>Student process data",
  "std.bckg.proc.LAM"                             = "Student background<br/>Latin American module<br/>Student process data",
  "std.bckg.proc.AM"                              = "Student background<br/>Asian module<br/>Student process data",
  "std.proc.EUM.sch.bckg"                         = "European module<br/>Student process data<br/>School background",
  "std.proc.LAM.sch.bckg"                         = "Latin American module<br/>Student process data<br/>School background",
  "std.proc.AM.sch.bckg"                          = "Asian module<br/>Student process data<br/>School background",
  "std.bckg.proc.ach.LAM"                         = "Student background<br/>Student achievement<br/>Latin American module<br/>Student process data",
  "std.bckg.proc.ach.EUM"                         = "Student background<br/>Student achievement<br/>European module<br/>Student process data",
  "std.bckg.proc.ach.AM"                          = "Student background<br/>Student achievement<br/>Asian module<br/>Student process data",
  "std.bckg.proc.EUM.sch.bckg"                    = "Student background<br/>European module<br/>Student process data<br/>School background",
  "std.bckg.proc.LAM.sch.bckg"                    = "Student background<br/>Latin American module<br/>Student process data<br/>School background",
  "std.ach.proc.LAM.sch.bckg"                     = "Student achievement<br/>Latin American module<br/>Student process data<br/>School background",
  "std.ach.proc.AM.sch.bckg"                      = "Student achievement<br/>Asian module<br/>Student process data<br/>School background",
  "std.ach.proc.EUM.sch.bckg"                     = "Student achievement<br/>European module<br/>Student process data<br/>School background",
  "std.bckg.std.ach.proc.EUM.sch.bckg"            = "Student background<br/>Student achievement<br/>European module<br/>Student process data<br/>School background",
  "std.bckg.std.ach.proc.LAM.sch.bckg"            = "Student background<br/>Student achievement<br/>Latin American module<br/>Student process data<br/>School background",
  "std.bckg.std.ach.proc.AM.sch.bckg"             = "Student background<br/>Student achievement<br/>Asian module<br/>Student process data<br/>School background",
  "std.proc.home.sch.bckg"                        = "Student home background<br/>Student processdata<br/>School background",
  "std.bckg.proc.tch.bckg"                        = "Student background<br/>Student process data<br/>Teacher background",
  "std.ach.proc.tch.bckg"                         = "Student achievement<br/>Student process data<br/>Teacher background",
  "std.proc.home.tch.bckg"                        = "Student home background<br/>Student process data<br/>Teacher background",
  "std.bckg.proc.home.tch.bckg"                   = "Student background<br/>Student home background<br/>Student process data<br/>Teacher background",
  "std.bckg.proc.ach.tch.bckg"                    = "Student background<br/>Student achievement<br/>Student process data<br/>Teacher background",
  "std.ach.proc.home.tch.bckg"                    = "Student achievement<br/>Student home background<br/>Student process data<br/>Teacher background",
  "std.bckg.proc.sch.bckg.tch.bckg"               = "Student background<br/>Student process data<br/>School background<br/>Teacher background",
  "std.proc.home.sch.bckg.tch.bckg"               = "Student home background<br/>Student process data<br/>School background<br/>Teacher background",
  "std.ach.proc.sch.bckg.tch.bckg"                = "Student achievement<br/>Student process data<br/>School background<br/>Teacher background",
  "std.bckg.proc.ach.sch.bckg.tch.bckg"           = "Student background<br/>Student achievement<br/>Student process data<br/>School background<br/>Teacher background",
  "std.bckg.proc.home.sch.bckg.tch.bckg"          = "Student background<br/>Student home background<br/>Student process data<br/>School background<br/>Teacher background",
  "std.ach.proc.home.sch.bckg.tch.bckg"           = "Student achievement<br/>Student home background<br/>Student process data<br/>School background<br/>Teacher background",
  "std.bckg.proc.ach.home.tch.bckg"               = "Student background<br/>Student achievement<br/>Student home background<br/>Student process data<br/>Teacher background",
  "std.bckg.proc.ach.home.sch.bckg.tch.bckg"      = "Student background<br/>Student achievement<br/>Student home background<br/>Student process data<br/>School backround<br/>Teacher background",
  "sch.bckg.proc.math.tch.bckg"                   = "Student process data<br/>School background<br/>Mathematics teacher data",
  "sch.bckg.proc.sci.tch.bckg"                    = "Student process data<br/>School background<br/>Science teacher data",
  "std.bckg.proc.math.tch.bckg"                   = "Student background<br/>Student process data<br/>Mathematics teacher data",
  "std.bckg.proc.sci.tch.bckg"                    = "Student background<br/>Student process data<br/>Science teacher data",
  "std.ach.proc.math.tch.bckg"                    = "Student achievement<br/>Student process data<br/>Mathematics teacher data",
  "std.ach.proc.sci.tch.bckg"                     = "Student achievement<br/>Student process data<br/>Science teacher data",
  "std.bckg.proc.sch.bckg.math.tch.bckg"          = "Student background<br/>Student process data<br/>School background<br/>Mathematics teacher data",
  "std.bckg.proc.sch.bckg.sci.tch.bckg"           = "Student background<br/>Student process data<br/>School background<br/>Science teacher data",
  "std.ach.proc.sch.bckg.math.tch.bckg"           = "Student achievement<br/>Student process data<br/>School background<br/>Mathematics teacher data",
  "std.ach.proc.sch.bckg.sci.tch.bckg"            = "Student achievement<br/>Student process data<br/>School background<br/>Science teacher data",
  "std.bckg.proc.ach.math.tch.bckg"               = "Student background<br/>Student achievement<br/>Student process data<br/>Mathematics teacher data",
  "std.bckg.proc.ach.sci.tch.bckg"                = "Student background<br/>Student achievement<br/>Student process data<br/>Science teacher data",
  "std.bckg.proc.ach.sch.bckg.math.tch.bckg" = "Student background<br/>Student achievement<br/>Student process data<br/>School background<br/>Mathematics teacher data",
  "std.bckg.proc.ach.sch.bckg.sci.tch.bckg" = "Student background<br/>Student achievement<br/>Student process data<br/>School background<br/>Science teacher data"
)
extract.IEA.study.and.cycle <- function(list.abbrev, file.string) {
  tmp <- lapply(X = list.abbrev, FUN = function(i) {
    study.name <- file.string[1][file.string[1] %in% i[["first.chars"]]]
    study.cycle <- file.string[2][file.string[2] %in% i[names(i) != "first.chars"]]
    c(study.name, study.cycle)
  })
  tmp <- Filter(function(i) {length(i) > 1}, tmp)
  study.ID <- names(tmp)
  cycle.ID <- names(unlist(list.abbrev[[study.ID]])[unlist(list.abbrev[[study.ID]]) == tmp[[names(tmp)]][2]])
  list(study.ID, cycle.ID)
}
extract.PISA.2015.plus.study.and.cycle <- function(list.abbrev, file.string) {
  tmp <- Filter(length, lapply(list.abbrev, function(i) {
    Filter(isTRUE, lapply(X = i, FUN = function(j) {
      all(grepl(pattern = file.string, x = j, ignore.case = TRUE) == TRUE)
    }))
  }))
  cycle.ID <- sapply(X = tmp, FUN = names)
  if(length(cycle.ID) == 1) {
    cycle.ID <- cycle.ID
  } else {
    cycle.ID <- "Unknown"
  }
  if(length(cycle.ID) == 1 && cycle.ID %in% unlist(sapply(list.abbrev, names))) {
    study.ID <- "PISA"
  } else {
    study.ID <- "Unknown"
  }
  list(study.ID, cycle.ID)
}
extract.PISA.pre.2015.study.and.cycle <- function(list.abbrev, file.string) {
  tmp <- unlist(Filter(length, lapply(list.abbrev, function(i) {
    Filter(length, lapply(X = i, FUN = function(j) {
      grep(pattern = file.string, x = j, ignore.case = TRUE, value = TRUE)
    }))
  })))
  study.ID <- unique(substr(x = unlist(tmp), start = 1, stop = 4))
  cycle.ID <- unique(substr(x = unlist(tmp), start = 5, stop = 8))
  if(length(cycle.ID) == 1) {
    cycle.ID <- cycle.ID
  } else {
    cycle.ID <- "Unknown"
  }
  if(length(cycle.ID) == 1 && cycle.ID %in% unlist(sapply(list.abbrev, names))) {
    study.ID <- "PISA"
  } else {
    study.ID <- "Unknown"
  }
  list(study.ID, cycle.ID)
}
extract.PISA.for.Development.study.and.cycle <- function(list.abbrev, file.string) {
  tmp <- Filter(length, lapply(list.abbrev, function(i) {
    Filter(isTRUE, lapply(X = i, FUN = function(j) {
      all(grepl(pattern = file.string, x = j, ignore.case = TRUE) == TRUE)
    }))
  }))
  cycle.ID <- sapply(X = tmp, FUN = names)
  if(length(cycle.ID) == 1) {
    cycle.ID <- cycle.ID
  } else {
    cycle.ID <- "Unknown"
  }
  if(length(cycle.ID) == 1 && cycle.ID %in% unlist(sapply(list.abbrev, names))) {
    study.ID <- "PISA for Development"
  } else {
    study.ID <- "Unknown"
  }
  list(study.ID, cycle.ID)
}
all.available.PVs <- c("ASMPV", "ASSPV", "ASMMAT", "ASMWHO", "ASMFAP", "ASMGEM", "ASMDAP", "ASSSCI", "ASSEAS", "ASSLIS", "ASSPHS", "ASMALG", "ASMFNS", "ASMGEO", "ASMMEA", "ASSPHY", "ASMAPP", "ASMKNO", "ASMREA", "ASMDAT", "ASMNUM", "ASSEAR", "ASSLIF", "ASSKNO", "ASSAPP", "ASSREA", "ASSENV", "BSMMAT", "BSSSCI", "BSMALG", "BSMDAP", "BSMFNS", "BSMGEO", "BSMMEA", "BSSCHE", "BSSEAS", "BSSLIS", "BSSPHY", "BSSERI", "BSSNOS", "BSMNBM", "BSSNBM", "BSMAPP", "BSMKNO", "BSMREA", "BSMDAT", "BSMNUM", "BSSEAR", "BSSBIO", "BSSKNO", "BSSAPP", "BSSREA", "BSSENV", "PSPPHY", "PSPELE", "PSPMEC", "PSPWAV", "PSPAPP", "PSPKNO", "PSPREA", "MSMMAT", "MSMALG", "MSMCAL", "MSMGEO", "MSMKNO", "MSMAPP", "MSMREA", "ASRREA", "ASRINF", "ASRLIT", "ASRIIE", "ASRRSI", "ASEREA", "ASERSI", "ASEIIE", "ASRDOC", "ASREXP", "ASRNAR", "PV[[:digit:]]+CIV", "PV[[:digit:]]+CIL", "PV[[:digit:]]+CT", "PV[[:digit:]]+MATH", "PV[[:digit:]]+READ", "PV[[:digit:]]+SCIE", "PV[[:digit:]]+PROB", "PV[[:digit:]]+INTR", "PV[[:digit:]]+SUPP", "PV[[:digit:]]+EPS", "PV[[:digit:]]+ISI", "PV[[:digit:]]+USE", "PV[[:digit:]]+MACC", "PV[[:digit:]]+MACQ", "PV[[:digit:]]+MACS", "PV[[:digit:]]+MACU", "PV[[:digit:]]+MAPE", "PV[[:digit:]]+MAPF", "PV[[:digit:]]+MAPI", "PV[[:digit:]]+SCEP", "PV[[:digit:]]+SCED", "PV[[:digit:]]+SCID", "PV[[:digit:]]+SKCO", "PV[[:digit:]]+SKPE", "PV[[:digit:]]+SSPH", "PV[[:digit:]]+SSLI", "PV[[:digit:]]+SSES", "PV[[:digit:]]+GLCM", "PV[[:digit:]]+RCLI", "PV[[:digit:]]+RCUN", "PV[[:digit:]]+RCER", "PV[[:digit:]]+RTSN", "PV[[:digit:]]+RTML")
collapse.loaded.file.PV.names <- function(PV.vector, vars.object) {
  if(length(PV.vector) > 0) {
    tmp <- vars.object[get(colnames(vars.object)[1]) %in% PV.vector, ]
  } else {
    tmp <- NULL
  }
  if(!is.null(tmp) && length(grep(pattern = "[[:digit:]]+$", x = tmp[ , get(colnames(tmp)[1])])) > 0) {
    tmp[ , colnames(tmp)[1] := gsub(pattern = "[[:digit:]]+$", replacement = "", x = get(colnames(tmp)[1]))]
  } else if(!is.null(tmp) && length(grep(pattern = "[[:digit:]]+$", x = tmp[ , get(colnames(tmp)[1])])) == 0) {
    tmp[ , colnames(tmp)[1] := gsub(pattern = "[[:digit:]]+", replacement = "#", x = get(colnames(tmp)[1]))]
  }
  if(!is.null(tmp) && nrow(tmp) > 0) {
    tmp <- split(x = tmp, by = "Variables")
    lapply(X = tmp, FUN = function(i) {
      i[ , colnames(i)[2] := paste0("1 to ", nrow(i), " PV: ", get(colnames(i)[2]))]
    })
    tmp <- rbindlist(l = tmp)
    tmp <- unique(x = tmp, by = colnames(tmp)[1])
    return(tmp)
  }
}
define.default.weight <- function(study, loaded.names.and.labels, respondent.type) {
  study.type <- names(Filter(isTRUE, sapply(X = design.weight.variables[c("IEA.JK2.studies", "IEA.BRR.studies", "OECD.BRR.studies")], FUN = function(i) {
    study %in% i
  })))
  resp.type <- names(Filter(isTRUE, sapply(X = design.weight.variables[c("IEA.JK2.dflt.std.bckg.types", "IEA.JK2.dflt.sch.bckg.types", "IEA.JK2.dflt.tch.bckg.types", "IEA.BRR.dflt.inst.bckg.types", "IEA.BRR.dflt.prim.tch.bckg.types", "IEA.BRR.dflt.low_sec.tch.bckg.types", "IEA.BRR.dflt.educ.bckg.types", "OECD.BRR.dflt.std.bckg", "OECD.BRR.dflt.sch.bckg", "OECD.BRR.dflt.tch.bckg", "OECD.BRR.dflt.lead.bckg", "OECD.BRR.dflt.staff.bckg")], FUN = function(i) {
    respondent.type %in% i
  })))
  org.and.design.resp.type <- str_extract(string = study.type, pattern = "^[[:alpha:]]+\\.[[:alpha:]]+[[:digit:]]*")
  resp.type <- grep(pattern = org.and.design.resp.type, x = resp.type, value = TRUE)
  if(length(resp.type) == 0) {
    tmp.wgt <- NULL
  } else if(study.type == "IEA.JK2.studies" && resp.type == "IEA.JK2.dflt.std.bckg.types") {
    tmp.wgt <- grep(pattern = paste(design.weight.variables[["IEA.JK2.dflt.std.bckg.wgts"]], collapse = "|"), x = loaded.names.and.labels[ , Variables], value = TRUE)
  } else if(study.type == "IEA.JK2.studies" && resp.type == "IEA.JK2.dflt.sch.bckg.types") {
    tmp.wgt <- grep(pattern = paste(design.weight.variables[["IEA.JK2.dflt.sch.bckg.wgts"]], collapse = "|"), x = loaded.names.and.labels[ , Variables], value = TRUE)
  } else if(study.type == "IEA.JK2.studies" && resp.type == "IEA.JK2.dflt.tch.bckg.types") {
    tmp.wgt <- grep(pattern = paste(design.weight.variables[["IEA.JK2.dflt.tch.bckg.wgts"]], collapse = "|"), x = loaded.names.and.labels[ , Variables], value = TRUE)
  } else if(study.type == "IEA.BRR.studies" && resp.type == "IEA.BRR.dflt.inst.bckg.types") {
    tmp.wgt <- grep(pattern = paste(design.weight.variables[["IEA.BRR.dflt.inst.bckg.wgts"]], collapse = "|"), x = loaded.names.and.labels[ , Variables], value = TRUE)
  } else if(study.type == "IEA.BRR.studies" && resp.type == "IEA.BRR.dflt.prim.tch.bckg.types") {
    tmp.wgt <- grep(pattern = paste(design.weight.variables[["IEA.BRR.dflt.prim.tch.bckg.wgts"]], collapse = "|"), x = loaded.names.and.labels[ , Variables], value = TRUE)
  } else if(study.type == "IEA.BRR.studies" && resp.type == "IEA.BRR.dflt.low_sec.tch.bckg.types") {
    tmp.wgt <- grep(pattern = paste(design.weight.variables[["IEA.BRR.dflt.low_sec.tch.bckg.wgts"]], collapse = "|"), x = loaded.names.and.labels[ , Variables], value = TRUE)
  } else if(study.type == "IEA.BRR.studies" && resp.type == "IEA.BRR.dflt.educ.bckg.types") {
    tmp.wgt <- grep(pattern = paste(design.weight.variables[["IEA.BRR.dflt.educ.bckg.wgts"]], collapse = "|"), x = loaded.names.and.labels[ , Variables], value = TRUE)
  } else if(study.type == "OECD.BRR.studies" && resp.type == "OECD.BRR.dflt.std.bckg") {
    tmp.wgt <- grep(pattern = paste(design.weight.variables[["OECD.BRR.dflt.std.bckg.wgts"]], collapse = "|"), x = loaded.names.and.labels[ , Variables], value = TRUE)
  } else if(study.type == "OECD.BRR.studies" && resp.type == "OECD.BRR.dflt.sch.bckg") {
    tmp.wgt <- grep(pattern = paste(design.weight.variables[["OECD.BRR.dflt.sch.bckg.wgts"]], collapse = "|"), x = loaded.names.and.labels[ , Variables], value = TRUE)
  } else if(study.type == "OECD.BRR.studies" && resp.type == "OECD.BRR.dflt.tch.bckg") {
    tmp.wgt <- grep(pattern = paste(design.weight.variables[["OECD.BRR.dflt.tch.bckg.wgts"]], collapse = "|"), x = loaded.names.and.labels[ , Variables], value = TRUE)
  } else if(study.type == "OECD.BRR.studies" && resp.type == "OECD.BRR.dflt.lead.bckg") {
    tmp.wgt <- grep(pattern = paste(design.weight.variables[["OECD.BRR.dflt.lead.bckg.wgts"]], collapse = "|"), x = loaded.names.and.labels[ , Variables], value = TRUE)
  } else if(study.type == "OECD.BRR.studies" && resp.type == "OECD.BRR.dflt.staff.bckg") {
    tmp.wgt <- grep(pattern = paste(design.weight.variables[["OECD.BRR.dflt.staff.bckg.wgts"]], collapse = "|"), x = loaded.names.and.labels[ , Variables], value = TRUE)
  }
}
all.studies.available.weights <- c("SCHWGT", "TOTWGT", "SENWGT", "TOTWGTCH", "SENWGTCH", "HOUSEWGT", "TOTWGTC", "TOTWGTS", "SENWGTS", "TOTWGTT", "SENWGTT", "SENWGTC", "STOTWGTU", "HOUWGT", "TCHWGT", "MTOTWGT", "STOTWGT", "CNTRWGT", "STAFFWGT", "INSWGTE", "FINWGTE", "INSWGTI", "FINWGTI", "INSWGTP", "FINWGTP", "INSWGTS", "FINWGTS", "MATWGT", "SCIWGT", "PHYWGT", "REAWGT", "WNRSCHBW", "SCWEIGHT", "W_FSCHWT", "SENWGT_SCQ", "W_SCHGRNRABWT", "W_SCHGRNRABWT", "SENWGT_PAQ", "W_FSTUWT", "SPFWT0")
string.observe.syntax.save.button <- 'function(input, session, syntax.ID, syntax.object, volumes) {
observeEvent(
eventExpr = eval(parse(text = paste0("input$", syntax.ID))),
handlerExpr = {
shinyFileSave(
input = input,
id = syntax.ID,
roots = volumes,
session = session,
filetype = list(R = "r"),
updateFreq = 100000
)
file.info <- parseSavePath(
roots = volumes,
selection = eval(parse(text = paste0("input$", syntax.ID)))
)
if (nrow(file.info) > 0) {
if(!file.exists(file.info$datapath)) {
cat(eval(parse(text = syntax.object)), sep = "\n", file = file.info$datapath)
} else {
tmp.file <- readLines(file.info$datapath)
tmp.file <- c(tmp.file, "\n", eval(parse(text = syntax.object)))
cat(tmp.file, sep = "\n", file = file.info$datapath)
}
}
}
)
}'
countries.studies.cycles.table <- data.table(
  `Alpha 3 ISO` = c(
    "AAD", "ABA", "ADU", "ALB", "ARE", "ARG", "ARM", "ASH", "AUS", "AUT", "AZE",
    "BEL", "BFA", "BFL", "BFR", "BGR", "BHR", "BIH", "BLR", "BLZ", "BRA", "BRN",
    "BSQ", "BWA", "CAB", "CAN", "CBC", "CHE", "CHL", "CIV", "CNB", "CNL", "CNS",
    "COL", "COT", "CQU", "CRI", "CSH", "CSK/CZE", "CYP", "DEU", "DN3", "DNK",
    "DNW", "DOM", "DSH", "DZA", "EAN", "ECN", "ECT", "ECU", "EGY", "EMA", "EMB",
    "ENG", "ESP", "EST", "ETH", "FI7", "FIN", "FRA", "GBR", "GEO", "GHA", "GMX",
    "GRC", "GTM", "HKG", "HND", "HRV", "HUN", "IDN", "IND", "IRL", "IRN", "IRQ",
    "IS5", "ISL", "ISR", "ITA", "JAM", "JOR", "JPN", "KAZ", "KEN", "KGZ", "KHM",
    "KOR", "KSV/XKX", "KWT", "LBN", "LIE", "LTU", "LUX", "LVA", "MA6", "MAC",
    "MAR", "MDA", "MDF", "MET", "MEX", "MJA", "MKD", "MLN", "MLT", "MNE", "MNG",
    "MNL", "MQR", "MSL", "MTM", "MUS", "MXT", "MYS", "NGA", "NIC", "NIR", "NLD",
    "NLN", "NO1", "NO2", "NO3", "NO4", "NO5", "NO8", "NOM", "NOR", "NZ1", "NZL",
    "OMN", "PAK", "PAN", "PER", "PHL", "PO2", "POL", "PRT", "PRY", "PSE", "QAA",
    "QAR", "QAT", "QAZ", "QBR", "QCA", "QCH/QCI", "QCN", "QES", "QHP", "QMR",
    "QRS", "QRT", "QTN", "QUA", "QUB", "QUC", "QUD", "QUE", "QUR", "QVE", "RMO",
    "ROM/ROU", "RTR", "RUM", "RUS", "RWA", "SAU", "SCG/SRB", "SCO", "SE3", "SEN",
    "SG7", "SGP", "SLV", "SVK", "SVN", "SWE", "SYR", "TAP/TWN", "TDF", "THA",
    "TJA", "TMX", "TNL", "TQR", "TSL", "TTM", "TTO", "TUN", "TUR", "UAL", "UCA",
    "UCO", "UCT", "UFL", "UGA", "UIN", "UK1", "UKR", "UMA", "UMN", "UNC", "URY",
    "USA", "UZB", "VNM", "YE6", "YEM", "YUG", "ZA4", "ZA5", "ZA6", "ZAF", "ZGT",
    "ZMB", "ZWC"
  ),
  `Numeric Code` = c(
    "7842", "32001", "7841", "8", "784", "32", "51", "7843", "36", "40", "31",
    "56", "854", "956", "957", "100", "48", "70", "112", "84", "76", "96", "3724",
    "72", "9134", "124", "9135", "756", "152", "384", "124008", "9137/9130",
    "9136", "170", "9132", "9133", "188", "156001", "200/203", "196", "276",
    "208001", "208", "276001", "214", "276005", "12", "72401", "72404", "7241",
    "218", "818", "724005", "724004", "926", "724", "233", "231", "7246", "246",
    "250", "826", "268", "288", "48401", "300", "320", "344", "340", "191", "348",
    "360", "356", "372", "364", "368", "9352", "352", "376", "380", "388", "400",
    "392", "398", "404", "417", "116", "410", "383/411", "414", "422", "438",
    "440", "442", "428", "6504", "446", "504", "498", "48411", "48420", "484",
    "48412", "807", "9470", "470", "499", "496", "48415", "48416", "48417",
    "48418", "480", "48499", "458", "566", "558", "928", "528", "9528", "57891",
    "57892", "57893", "5784", "9578", "5788", "57894", "578", "7554", "554",
    "512", "586", "591", "604", "608", "6162", "616", "620", "600", "275",
    "310001", "974", "634", "311", "760005", "156003", "970/975", "156", "971",
    "35601", "982", "6430059", "983", "35602", "8400100", "8400200", "8400300",
    "630", "973", "901", "862", "643001", "642/9642", "643002", "6431", "643",
    "646", "682", "891/688", "927", "3752", "686", "7702", "702", "222", "703",
    "705", "752", "760", "158", "48421", "764", "48422", "48402", "48425",
    "48426", "48427", "48428", "780", "788", "792", "10400", "11100", "10800",
    "10900", "11200", "800", "11800", "8261", "804", "12500", "12700", "13700",
    "858", "840", "860", "704", "6887", "887", "891", "4710", "7105", "7106",
    "710", "710003", "894", "710004"
  ),
  `Country Name` = c(
    "United Arab Emirates (Abu Dhabi)", "Argentina, Buenos Aires",
    "United Arab Emirates (Dubai)", "Albania", "United Arab Emirates",
    "Argentina", "Armenia", "United Arab Emirates (Sharjah)", "Australia",
    "Austria", "Azerbaijan, Republic of", "Belgium", "Burkina Faso",
    "Belgium (Flemish)", "Belgium (French)", "Bulgaria", "Bahrain",
    "Bosnia and Herzegovina", "Belarus", "Belize", "Brazil", "Brunei Darussalam",
    "Spain (Basque Country)", "Botswana", "Canada (Alberta)", "Canada",
    "Canada (British Columbia)", "Switzerland", "Chile", "Ivory Coast",
    "Canada (New Brunswick)", "Canada (Newfoundland and Labrador)",
    "Canada (Nova Scotia)", "Colombia", "Canada (Ontario)", "Canada (Quebec)",
    "Costa Rica", "China (Shanghai)", "Czech Republic", "Cyprus", "Germany",
    "Denmark (Grade 3)", "Denmark", "Germany, North-Rhine Westphalia",
    "Dominican Republic", "Germany, Schleswig-Holstein", "Algeria",
    "Spain (Andalucia)", "Spain (Canary Islands)", "Spain (Catalonia)", "Ecuador",
    "Egypt", "Spain, Madrid", "Spain, Madrid, Bilingual", "England", "Spain",
    "Estonia", "Ethiopia", "Finland (Grade 7)", "Finland", "France",
    "United Kingdom", "Georgia", "Ghana", "Mexico (Generales/Tecnicas/Privadas)",
    "Greece", "Guatemala", "Hong Kong, SAR", "Honduras, Republic of", "Croatia",
    "Hungary", "Indonesia", "India", "Ireland", "Iran, Islamic Republic of",
    "Iraq", "Iceland (Grade 5)", "Iceland", "Israel", "Italy", "Jamaica",
    "Jordan", "Japan", "Kazakhstan", "Kenya", "Kyrgyzstan", "Cambodia",
    "Korea, Republic of", "Kosovo", "Kuwait", "Lebanon", "Liechtenstein",
    "Lithuania", "Luxembourg", "Latvia", "Morocco (Grade 6)", "Macao SAR",
    "Morocco", "Moldova", "Mexico (Distrito Federal)",
    "Mexico (International Telesecundaria)", "Mexico", "Mexico (Jalisco)",
    "North Macedonia", "Malta (Maltese)", "Malta", "Montenegro", "Mongolia",
    "Mexico (Nuevo Leon)", "Mexico (Quintana Roo)", "Mexico (San Luis Potosi)",
    "Mexico (Tamaulipas)", "Mauritius", "Mexico (Talis-Nacional)", "Malaysia",
    "Nigeria", "Nicaragua", "Northern Ireland", "Netherlands",
    "The Netherlands (50 additional schools)", "Norway (ALU)", "Norway (ALU +)",
    "Norway (PPU)", "Norway (4)", "Norway (Grade 5)", "Norway (8)",
    "Norway (MASTERS)", "Norway", "New Zealand (TIMSS data processing)",
    "New Zealand", "Oman", "Pakistan", "Panama", "Peru", "Philippines",
    "Poland (Second-Cycle Programs)", "Poland", "Portugal", "Paraguay",
    "Palestinian National Authority", "Baku, Sumgait (Azerbaijan)",
    "Argentina (Ciudad Autonoma de Buenos)", "Qatar", "Baku (Azerbaijan)",
    "Cear\U{E1}, Par\U{E1}, S\U{E3}o Paulo (Brazil)", "Hangzhou (China)",
    "B-S-J-G (China)", "Shanghai-China", "Spain (Regions)",
    "Himachal Pradesh-India", "Moscow Region (RUS)", "Perm (Russian Federation)",
    "Tatarstan (RUS)", "Tamil Nadu-India", "Florida (USA)", "Connecticut (USA)",
    "Massachusetts (USA)", "Puerto Rico (USA)", "North Carolina (USA)",
    "Ukrainian regions (18 of 27)", "Miranda-Venezuela",
    "Russian Federation, Moscow", "Romania", "Russia (8+ sample)",
    "Russian Federation (Moscow)", "Russian Federation", "Rwanda", "Saudi Arabia",
    "Serbia", "Scotland", "Sweden (Grade 3)", "Senegal",
    "Singapore (Chinese Grade 7)", "Singapore", "El Salvador", "Slovak Republic",
    "Slovenia", "Sweden", "Syria, Arab Republic of", "Chinese Taipei",
    "Mexico (Telesecundaria-Distrito Federal)", "Thailand",
    "Mexico (Telesecundaria-Jalisco)", "Mexico (Telesecundarias)",
    "Mexico (Telesecundaria-Nuevo Leon)", "Mexico (Telesecundaria-Quintana Roo)",
    "Mexico (Telesecundaria-San Luis Potosi)",
    "Mexico (Telesecundaria-Tamaulipas)", "Trinidad And Tobago", "Tunisia",
    "Turkey", "United States (Alabama)", "United States (California)",
    "United States (Colorado)", "United States (Connecticut)",
    "United States (Florida)", "Uganda", "United States (Indiana)",
    "England and Northern Ireland (UK)", "Ukraine",
    "United States (Massachusetts)", "United States (Minnesota)",
    "United States (North Carolina)", "Uruguay", "United States", "Uzbekistan",
    "Vietnam", "Yemen (Grade 6)", "Yemen", "Yugoslavia", "South Africa (Grade 4)",
    "South Africa (Eng/Afr)", "South Africa (Grade 6)", "South Africa",
    "South Africa (Gauteng)", "Zambia", "South Africa (Western Cape Province)"
  ),
  `CivED 1999 G12` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA
    ),
    c(
      27L, 2L, 4L, 1L, 4L, 2L, 2L, 1L, 13L, 1L, 10L, 1L, 10L, 1L, 15L, 1L, 32L, 1L,
      8L, 2L, 27L, 1L, 10L, 2L, 39L
    )
  ),
  `CivED 1999 G8` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA
    ),
    c(
      8L, 1L, 5L, 2L, 11L, 2L, 4L, 1L, 4L, 3L, 1L, 1L, 11L, 1L, 1L, 1L, 2L, 1L, 5L,
      1L, 1L, 1L, 2L, 1L, 8L, 1L, 12L, 1L, 1L, 1L, 32L, 1L, 8L, 2L, 24L, 1L, 2L, 1L,
      9L, 3L, 26L, 1L, 12L
    )
  ),
  `ICCS 2009 G8` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA
    ),
    c(
      9L, 1L, 3L, 1L, 1L, 1L, 11L, 2L, 4L, 1L, 4L, 2L, 2L, 1L, 1L, 1L, 9L, 3L, 2L,
      1L, 5L, 3L, 3L, 1L, 1L, 1L, 5L, 1L, 7L, 1L, 3L, 4L, 6L, 1L, 3L, 1L, 12L, 1L,
      8L, 1L, 1L, 1L, 6L, 1L, 1L, 1L, 26L, 1L, 9L, 3L, 1L, 1L, 1L, 1L, 35L
    )
  ),
  `ICCS 2009 G9` = rep(c(NA, "X", NA, "X", NA, "X", NA), c(65L, 1L, 61L, 1L, 48L, 2L, 39L)),
  `ICCS 2016 G8` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA
    ),
    c(
      13L, 1L, 1L, 1L, 12L, 1L, 4L, 1L, 8L, 3L, 11L, 1L, 2L, 1L, 7L, 1L, 1L, 1L, 9L,
      1L, 7L, 1L, 4L, 1L, 1L, 1L, 6L, 1L, 3L, 1L, 12L, 1L, 8L, 1L, 5L, 1L, 31L, 1L,
      10L, 2L, 1L, 1L, 37L
    )
  ),
  `ICCS 2022 G8` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA
    ),
    c(
      15L, 1L, 4L, 1L, 12L, 1L, 5L, 1L, 2L, 2L, 1L, 1L, 9L, 2L, 3L, 1L, 8L, 1L, 9L,
      1L, 12L, 1L, 1L, 1L, 10L, 1L, 12L, 1L, 8L, 1L, 8L, 1L, 25L, 1L, 5L, 1L, 6L,
      3L, 1L, 1L, 37L
    )
  ),
  `ICILS 2013 G8` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA
    ),
    c(
      1L, 1L, 6L, 1L, 18L, 2L, 2L, 1L, 2L, 1L, 3L, 1L, 1L, 1L, 1L, 1L, 24L, 1L, 1L,
      1L, 17L, 1L, 4L, 1L, 25L, 1L, 8L, 1L, 8L, 1L, 28L, 1L, 9L, 2L, 4L, 1L, 8L, 1L,
      26L
    )
  ),
  `ICILS 2018 G8` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA
    ),
    c(28L, 1L, 11L, 1L, 1L, 2L, 15L, 2L, 18L, 1L, 3L, 1L, 3L, 1L, 5L, 1L, 43L, 1L, 23L, 1L, 41L, 2L, 12L)
  ),
  `ICILS 2023 G8` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA
    ),
    c(
      9L, 2L, 2L, 1L, 3L, 1L, 10L, 1L, 9L, 3L, 1L, 2L, 11L, 1L, 3L, 2L, 4L, 1L, 3L,
      2L, 8L, 1L, 3L, 1L, 3L, 2L, 4L, 2L, 10L, 1L, 12L, 1L, 8L, 1L, 2L, 1L, 6L, 1L,
      24L, 1L, 5L, 1L, 6L, 3L, 1L, 1L, 23L, 2L, 12L
    )
  ),
  `PIRLS 2001 G4` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA
    ),
    c(
      5L, 1L, 9L, 1L, 3L, 1L, 5L, 1L, 7L, 3L, 2L, 3L, 13L, 1L, 5L, 1L, 4L, 1L, 1L,
      1L, 2L, 1L, 3L, 1L, 2L, 3L, 9L, 1L, 2L, 1L, 1L, 1L, 2L, 2L, 4L, 1L, 14L, 1L,
      8L, 1L, 1L, 1L, 32L, 1L, 2L, 1L, 3L, 2L, 2L, 1L, 1L, 3L, 12L, 1L, 13L, 1L,
      12L
    )
  ),
  `PIRLS 2006 G4` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA
    ),
    c(
      9L, 1L, 3L, 3L, 8L, 1L, 1L, 1L, 5L, 1L, 1L, 2L, 4L, 1L, 1L, 1L, 11L, 2L, 4L,
      1L, 1L, 1L, 4L, 1L, 2L, 2L, 2L, 1L, 1L, 4L, 9L, 1L, 2L, 3L, 2L, 2L, 4L, 1L,
      14L, 1L, 5L, 1L, 2L, 1L, 1L, 1L, 6L, 1L, 5L, 1L, 19L, 1L, 2L, 1L, 3L, 1L, 3L,
      1L, 1L, 3L, 1L, 1L, 8L, 1L, 15L, 1L, 8L, 1L, 3L
    )
  ),
  `PIRLS 2011 G4` = rep(
    rep(c("X", NA), 36),
    c(
      1L, 1L, 1L, 1L, 1L, 3L, 3L, 3L, 2L, 7L, 3L, 7L, 3L, 2L, 1L, 1L, 1L, 1L, 1L,
      4L, 1L, 6L, 2L, 3L, 2L, 1L, 1L, 4L, 5L, 1L, 2L, 3L, 2L, 9L, 1L, 2L, 1L, 2L,
      1L, 1L, 1L, 6L, 2L, 11L, 2L, 8L, 1L, 1L, 2L, 5L, 2L, 4L, 1L, 19L, 1L, 2L, 1L,
      1L, 1L, 5L, 1L, 1L, 3L, 1L, 1L, 8L, 1L, 15L, 1L, 8L, 1L, 3L
    )
  ),
  `prePIRLS 2011 G4` = rep(c(NA, "X", NA, "X", NA, "X", NA), c(23L, 1L, 9L, 1L, 179L, 1L, 3L)),
  `PIRLS 2016 G4` = rep(
    rep(c("X", NA), 39),
    c(
      3L, 1L, 1L, 3L, 3L, 2L, 4L, 8L, 1L, 2L, 1L, 5L, 2L, 2L, 1L, 1L, 1L, 1L, 1L,
      4L, 1L, 4L, 1L, 1L, 2L, 3L, 2L, 1L, 1L, 4L, 1L, 2L, 1L, 2L, 2L, 3L, 2L, 3L,
      1L, 8L, 1L, 1L, 1L, 1L, 2L, 7L, 1L, 11L, 2L, 4L, 1L, 3L, 1L, 1L, 2L, 5L, 2L,
      4L, 1L, 18L, 1L, 3L, 1L, 1L, 1L, 5L, 1L, 1L, 3L, 1L, 1L, 8L, 1L, 15L, 1L, 6L,
      1L, 5L
    )
  ),
  `ePIRLS 2016 G4` = rep(
    rep(c("X", NA), 14),
    c(
      1L, 1L, 1L, 1L, 1L, 20L, 1L, 16L, 1L, 19L, 1L, 10L, 1L, 4L, 2L, 47L, 1L, 9L,
      1L, 35L, 1L, 2L, 2L, 1L, 1L, 24L, 1L, 12L
    )
  ),
  `prePIRLS 2016 G4` = rep(
    c(NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA),
    c(41L, 1L, 9L, 1L, 22L, 1L, 14L, 1L, 7L, 1L, 115L, 1L, 3L)
  ),
  `PIRLS 2021 G4` = rep(
    rep(c("X", NA), 41),
    c(
      1L, 1L, 3L, 3L, 3L, 2L, 4L, 3L, 1L, 3L, 1L, 1L, 1L, 4L, 1L, 3L, 1L, 2L, 3L,
      1L, 1L, 8L, 1L, 2L, 2L, 3L, 2L, 1L, 1L, 4L, 1L, 1L, 2L, 2L, 2L, 3L, 2L, 1L,
      1L, 1L, 1L, 4L, 1L, 3L, 1L, 1L, 1L, 1L, 2L, 5L, 1L, 1L, 2L, 10L, 2L, 8L, 1L,
      1L, 2L, 5L, 2L, 4L, 1L, 18L, 1L, 3L, 1L, 1L, 2L, 4L, 1L, 1L, 3L, 1L, 1L, 10L,
      1L, 13L, 2L, 6L, 2L, 3L
    )
  ),
  `PIRLS 2021 G4 Bridge` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA
    ),
    c(
      4L, 1L, 8L, 1L, 24L, 1L, 1L, 1L, 1L, 1L, 12L, 1L, 3L, 1L, 9L, 2L, 7L, 2L, 3L,
      1L, 8L, 1L, 12L, 1L, 21L, 1L, 1L, 1L, 7L, 1L, 4L, 1L, 18L, 1L, 3L, 1L, 1L, 1L,
      5L, 1L, 1L, 3L, 1L, 1L, 37L
    )
  ),
  `PISA 2000` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA
    ),
    c(
      3L, 1L, 1L, 1L, 2L, 2L, 1L, 1L, 3L, 1L, 4L, 1L, 4L, 1L, 1L, 2L, 9L, 1L, 1L,
      1L, 1L, 1L, 12L, 1L, 3L, 3L, 3L, 1L, 1L, 1L, 2L, 2L, 1L, 1L, 3L, 3L, 2L, 1L,
      4L, 1L, 3L, 1L, 1L, 2L, 6L, 1L, 1L, 1L, 14L, 1L, 8L, 1L, 1L, 1L, 3L, 1L, 2L,
      2L, 24L, 1L, 2L, 1L, 11L, 1L, 3L, 1L, 22L, 1L, 12L
    )
  ),
  `PISA 2003` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA
    ),
    c(
      8L, 2L, 1L, 1L, 8L, 1L, 4L, 1L, 1L, 1L, 10L, 1L, 1L, 1L, 1L, 1L, 12L, 1L, 3L,
      3L, 3L, 1L, 1L, 1L, 2L, 2L, 1L, 1L, 3L, 1L, 1L, 1L, 2L, 1L, 4L, 1L, 3L, 1L,
      1L, 2L, 1L, 1L, 4L, 1L, 16L, 1L, 8L, 1L, 1L, 1L, 6L, 2L, 27L, 1L, 9L, 1L, 1L,
      1L, 3L, 1L, 7L, 2L, 12L, 2L, 4L, 1L, 7L
    )
  ),
  `PISA 2006` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA
    ),
    c(
      5L, 1L, 2L, 4L, 3L, 1L, 4L, 1L, 4L, 1L, 1L, 2L, 4L, 1L, 4L, 1L, 1L, 1L, 1L,
      1L, 12L, 2L, 2L, 3L, 3L, 1L, 1L, 1L, 1L, 3L, 1L, 1L, 3L, 3L, 1L, 2L, 2L, 1L,
      1L, 1L, 3L, 4L, 1L, 1L, 4L, 1L, 4L, 1L, 11L, 1L, 8L, 1L, 1L, 1L, 6L, 2L, 4L,
      1L, 19L, 1L, 2L, 1L, 2L, 1L, 6L, 3L, 1L, 1L, 1L, 1L, 7L, 2L, 12L, 2L, 12L
    )
  ),
  `PISA 2009` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA
    ),
    c(
      3L, 3L, 2L, 4L, 3L, 1L, 4L, 1L, 4L, 1L, 1L, 2L, 4L, 1L, 2L, 1L, 1L, 1L, 1L,
      1L, 1L, 1L, 12L, 2L, 2L, 4L, 2L, 1L, 1L, 1L, 1L, 3L, 1L, 1L, 3L, 3L, 1L, 3L,
      1L, 1L, 1L, 1L, 3L, 4L, 1L, 1L, 1L, 1L, 2L, 1L, 3L, 2L, 5L, 1L, 1L, 1L, 3L,
      1L, 8L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 4L, 1L, 4L, 1L, 1L, 1L, 3L, 1L, 6L, 1L,
      1L, 1L, 2L, 1L, 2L, 1L, 4L, 1L, 1L, 3L, 1L, 1L, 1L, 1L, 6L, 3L, 12L, 2L, 12L
    )
  ),
  `PISA 2012` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA
    ),
    c(
      3L, 3L, 2L, 2L, 1L, 1L, 3L, 1L, 4L, 1L, 4L, 1L, 1L, 2L, 4L, 1L, 2L, 1L, 1L,
      1L, 1L, 1L, 1L, 1L, 12L, 2L, 2L, 3L, 3L, 1L, 1L, 1L, 1L, 3L, 1L, 1L, 3L, 3L,
      1L, 3L, 3L, 1L, 3L, 4L, 1L, 1L, 4L, 1L, 4L, 1L, 7L, 1L, 3L, 1L, 8L, 1L, 1L,
      1L, 3L, 1L, 2L, 2L, 4L, 1L, 4L, 1L, 3L, 1L, 2L, 3L, 5L, 1L, 2L, 1L, 2L, 1L,
      4L, 1L, 1L, 3L, 1L, 1L, 1L, 1L, 7L, 2L, 12L, 2L, 1L, 1L, 10L
    )
  ),
  `PISA 2015` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA
    ),
    c(
      3L, 2L, 3L, 2L, 1L, 1L, 3L, 1L, 4L, 1L, 4L, 1L, 1L, 2L, 4L, 1L, 2L, 1L, 1L,
      1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 8L, 2L, 2L, 4L, 2L, 1L, 1L, 1L, 1L, 3L,
      1L, 1L, 3L, 3L, 1L, 2L, 4L, 2L, 1L, 1L, 1L, 3L, 1L, 1L, 1L, 1L, 2L, 1L, 1L,
      1L, 1L, 2L, 11L, 1L, 8L, 1L, 1L, 1L, 3L, 1L, 2L, 2L, 3L, 2L, 3L, 1L, 1L, 1L,
      7L, 3L, 3L, 1L, 2L, 1L, 7L, 1L, 1L, 3L, 1L, 1L, 1L, 1L, 6L, 3L, 12L, 2L, 1L,
      1L, 10L
    )
  ),
  `PISA 2018` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA
    ),
    c(
      3L, 3L, 2L, 2L, 1L, 1L, 3L, 1L, 1L, 2L, 1L, 2L, 3L, 1L, 1L, 2L, 4L, 1L, 2L,
      1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 10L, 2L, 2L, 4L, 2L, 1L, 1L, 1L, 1L, 3L,
      1L, 1L, 3L, 3L, 1L, 3L, 3L, 2L, 1L, 1L, 1L, 3L, 1L, 3L, 2L, 1L, 1L, 1L, 1L,
      2L, 7L, 1L, 3L, 1L, 8L, 1L, 1L, 1L, 2L, 3L, 1L, 2L, 4L, 2L, 2L, 1L, 3L, 1L,
      1L, 1L, 9L, 1L, 2L, 1L, 1L, 2L, 4L, 1L, 1L, 3L, 1L, 1L, 1L, 1L, 8L, 1L, 8L,
      1L, 3L, 2L, 1L, 1L, 10L
    )
  ),
  `PISA 2022` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA
    ),
    c(
      3L, 3L, 2L, 2L, 1L, 1L, 3L, 1L, 4L, 2L, 3L, 1L, 1L, 2L, 4L, 1L, 2L, 1L, 1L,
      1L, 1L, 1L, 1L, 1L, 1L, 1L, 10L, 2L, 2L, 4L, 2L, 3L, 1L, 3L, 1L, 1L, 3L, 7L,
      2L, 3L, 3L, 1L, 1L, 1L, 1L, 3L, 2L, 1L, 1L, 1L, 1L, 3L, 6L, 1L, 3L, 1L, 8L,
      1L, 1L, 1L, 2L, 3L, 1L, 4L, 2L, 2L, 15L, 1L, 2L, 1L, 4L, 2L, 4L, 5L, 1L, 1L,
      1L, 1L, 8L, 1L, 12L, 4L, 10L
    )
  ),
  `PISA for Development 2019 IS` = rep(
    c(NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA),
    c(50L, 1L, 15L, 1L, 1L, 1L, 17L, 1L, 51L, 1L, 32L, 1L, 43L, 1L, 1L)
  ),
  `PISA for Development 2019 OS` = rep(
    c(NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA),
    c(66L, 1L, 1L, 1L, 63L, 1L, 5L, 1L, 32L, 1L, 45L)
  ),
  `REDS 2021 G8` = rep(
    c(NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA),
    c(4L, 1L, 7L, 1L, 29L, 1L, 14L, 1L, 14L, 1L, 11L, 1L, 80L, 2L, 9L, 1L, 26L, 1L, 1L, 1L, 11L)
  ),
  `RLII 1991 G4` = rep(
    c(NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA),
    c(65L, 1L, 4L, 1L, 6L, 1L, 1L, 1L, 49L, 1L, 43L, 1L, 2L, 2L, 26L, 1L, 12L)
  ),
  `RLII 2001 G4` = rep(
    c(NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA),
    c(65L, 1L, 4L, 1L, 6L, 1L, 1L, 1L, 49L, 1L, 43L, 1L, 2L, 2L, 26L, 1L, 12L)
  ),
  `SITES 1998 M1 POP A` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA
    ),
    c(25L, 1L, 13L, 1L, 19L, 2L, 6L, 1L, 9L, 3L, 2L, 1L, 44L, 1L, 1L, 1L, 43L, 1L, 2L, 1L, 2L, 1L, 37L)
  ),
  `SITES 1998 M1 POP B` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA
    ),
    c(
      14L, 2L, 9L, 1L, 12L, 2L, 2L, 1L, 16L, 2L, 6L, 1L, 2L, 1L, 6L, 3L, 2L, 1L, 9L,
      2L, 33L, 1L, 1L, 1L, 35L, 1L, 7L, 1L, 2L, 1L, 2L, 1L, 1L, 1L, 31L, 1L, 3L
    )
  ),
  `SITES 1998 M1 POP C` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA
    ),
    c(
      14L, 2L, 9L, 1L, 12L, 2L, 20L, 1L, 6L, 1L, 9L, 3L, 2L, 1L, 9L, 3L, 32L, 1L,
      37L, 1L, 7L, 1L, 1L, 2L, 2L, 1L, 33L, 1L, 3L
    )
  ),
  `SITES 2006 M2` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA
    ),
    c(
      8L, 1L, 15L, 1L, 3L, 1L, 5L, 1L, 7L, 1L, 6L, 1L, 6L, 1L, 2L, 2L, 6L, 1L, 10L,
      2L, 2L, 1L, 9L, 1L, 34L, 1L, 36L, 2L, 7L, 1L, 1L, 2L, 2L, 1L, 1L, 1L, 31L, 1L,
      3L
    )
  ),
  `TALIS 2008 ISCED 2` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA
    ),
    c(
      8L, 2L, 3L, 1L, 1L, 1L, 4L, 1L, 21L, 1L, 12L, 2L, 13L, 1L, 2L, 1L, 3L, 1L, 1L,
      1L, 7L, 1L, 4L, 1L, 8L, 1L, 3L, 1L, 8L, 1L, 3L, 1L, 8L, 1L, 8L, 2L, 37L, 2L,
      13L, 1L, 26L
    )
  ),
  `TALIS 2013 ISCED 1` = rep(
    c(NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA),
    c(13L, 1L, 28L, 1L, 16L, 1L, 41L, 1L, 25L, 1L, 8L, 1L, 80L)
  ),
  `TALIS 2013 ISCED 2` = rep(
    rep(c("X", NA), 30),
    c(
      1L, 7L, 1L, 4L, 1L, 1L, 1L, 4L, 1L, 3L, 1L, 3L, 1L, 8L, 2L, 3L, 1L, 11L, 3L,
      2L, 2L, 1L, 1L, 6L, 1L, 8L, 2L, 2L, 1L, 4L, 1L, 6L, 1L, 6L, 1L, 12L, 1L, 3L,
      1L, 8L, 1L, 1L, 1L, 6L, 2L, 24L, 1L, 2L, 1L, 2L, 1L, 4L, 1L, 1L, 1L, 1L, 1L,
      26L, 1L, 12L
    )
  ),
  `TALIS 2013 ISCED 3` = rep(
    rep(c("X", NA), 9),
    c(1L, 7L, 1L, 33L, 1L, 16L, 1L, 19L, 1L, 21L, 1L, 25L, 1L, 8L, 1L, 36L, 1L, 43L)
  ),
  `TALIS 2013 PISA Link` = rep(
    c(NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA),
    c(8L, 1L, 46L, 1L, 3L, 1L, 34L, 1L, 6L, 1L, 35L, 1L, 24L, 1L, 10L, 1L, 43L)
  ),
  `TALIS 2018 ISCED 1` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA
    ),
    c(
      1L, 1L, 2L, 1L, 3L, 1L, 4L, 1L, 28L, 1L, 11L, 2L, 4L, 1L, 21L, 1L, 4L, 1L,
      30L, 1L, 58L, 1L, 1L, 1L, 10L, 1L, 15L, 1L, 10L
    )
  ),
  `TALIS 2018 ISCED 2` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA
    ),
    c(
      1L, 1L, 2L, 1L, 3L, 2L, 1L, 1L, 3L, 1L, 4L, 1L, 3L, 1L, 3L, 1L, 4L, 1L, 3L,
      3L, 2L, 1L, 11L, 3L, 2L, 2L, 1L, 1L, 6L, 2L, 7L, 2L, 2L, 2L, 3L, 1L, 4L, 1L,
      1L, 1L, 6L, 1L, 3L, 1L, 12L, 1L, 8L, 1L, 1L, 1L, 7L, 1L, 24L, 1L, 2L, 1L, 1L,
      1L, 5L, 1L, 1L, 3L, 1L, 1L, 10L, 1L, 13L, 1L, 1L, 1L, 6L, 1L, 3L
    )
  ),
  `TALIS 2018 ISCED 3` = rep(
    c(NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA),
    c(4L, 1L, 15L, 1L, 3L, 1L, 17L, 1L, 26L, 1L, 67L, 1L, 38L, 2L, 1L, 1L, 10L, 1L, 15L, 1L, 10L)
  ),
  `TALIS 2018 PISA Link` = rep(
    c(NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA),
    c(1L, 1L, 6L, 1L, 24L, 1L, 4L, 1L, 3L, 1L, 19L, 1L, 42L, 1L, 84L, 1L, 15L, 1L, 10L)
  ),
  `TALIS 2024 ISCED 1` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA
    ),
    c(
      4L, 1L, 3L, 1L, 2L, 1L, 1L, 2L, 5L, 1L, 34L, 1L, 4L, 1L, 21L, 1L, 4L, 1L, 9L,
      1L, 20L, 1L, 10L, 1L, 37L, 1L, 8L, 1L, 13L, 1L, 26L
    )
  ),
  `TALIS 2024 ISCED 2` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA
    ),
    c(
      3L, 2L, 3L, 4L, 1L, 4L, 3L, 1L, 3L, 1L, 3L, 1L, 4L, 1L, 2L, 4L, 2L, 1L, 12L,
      2L, 2L, 2L, 8L, 2L, 6L, 3L, 2L, 2L, 3L, 2L, 3L, 1L, 1L, 1L, 2L, 1L, 5L, 1L,
      1L, 2L, 11L, 1L, 8L, 1L, 1L, 1L, 6L, 2L, 24L, 1L, 4L, 2L, 4L, 1L, 1L, 3L, 12L,
      1L, 13L, 3L, 6L, 1L, 3L
    )
  ),
  `TALIS 2024 ISCED 3` = rep(
    c(NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA),
    c(4L, 1L, 8L, 1L, 28L, 1L, 26L, 1L, 67L, 1L, 29L, 1L, 8L, 1L, 13L, 1L, 26L)
  ),
  `TALIS 3S 2018 ISCED 0.2` = rep(
    c(NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA),
    c(28L, 1L, 11L, 1L, 1L, 1L, 35L, 1L, 3L, 1L, 4L, 1L, 39L, 1L, 62L, 1L, 26L)
  ),
  `TALIS 3S 2018 ISCED U3` = rep(
    c(NA, "X", NA, "X", NA, "X", NA, "X", NA),
    c(40L, 1L, 1L, 1L, 35L, 1L, 48L, 1L, 89L)
  ),
  `TEDS-M 2008` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA
    ),
    c(
      23L, 1L, 1L, 1L, 1L, 2L, 11L, 1L, 14L, 1L, 6L, 1L, 51L, 1L, 12L, 1L, 2L, 1L,
      3L, 1L, 1L, 1L, 28L, 1L, 7L, 1L, 5L, 1L, 1L, 1L, 22L, 1L, 12L
    )
  ),
  `TIMSS 1995 G4` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA
    ),
    c(
      8L, 2L, 15L, 1L, 12L, 2L, 14L, 1L, 10L, 1L, 1L, 1L, 2L, 1L, 2L, 2L, 2L, 2L,
      3L, 1L, 4L, 1L, 1L, 1L, 4L, 1L, 23L, 1L, 8L, 1L, 1L, 1L, 7L, 1L, 31L, 1L, 3L,
      1L, 2L, 1L, 4L, 1L, 22L, 1L, 12L
    )
  ),
  `TIMSS 1995 G8` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA
    ),
    c(
      8L, 2L, 3L, 3L, 9L, 1L, 1L, 1L, 5L, 1L, 4L, 3L, 1L, 1L, 11L, 2L, 4L, 1L, 4L,
      1L, 1L, 1L, 2L, 1L, 2L, 2L, 2L, 3L, 2L, 1L, 4L, 1L, 1L, 1L, 2L, 1L, 1L, 1L,
      23L, 1L, 8L, 1L, 1L, 1L, 7L, 1L, 24L, 1L, 2L, 1L, 3L, 1L, 3L, 1L, 1L, 3L, 3L,
      1L, 22L, 1L, 8L, 1L, 3L
    )
  ),
  `TIMSS 1999 G8` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA
    ),
    c(
      8L, 1L, 4L, 1L, 1L, 1L, 9L, 1L, 2L, 1L, 9L, 2L, 14L, 1L, 4L, 1L, 7L, 1L, 2L,
      2L, 2L, 1L, 3L, 2L, 1L, 2L, 4L, 1L, 4L, 1L, 1L, 1L, 2L, 2L, 4L, 1L, 10L, 1L,
      3L, 1L, 10L, 1L, 4L, 1L, 27L, 1L, 2L, 1L, 7L, 1L, 1L, 2L, 2L, 1L, 1L, 1L, 7L,
      2L, 13L, 1L, 8L, 1L, 3L
    )
  ),
  `TIMSS 2003 G4` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA
    ),
    c(
      6L, 1L, 1L, 1L, 4L, 1L, 20L, 2L, 3L, 1L, 14L, 1L, 12L, 1L, 2L, 1L, 3L, 1L, 4L,
      1L, 2L, 1L, 9L, 1L, 1L, 1L, 2L, 2L, 19L, 1L, 8L, 1L, 1L, 1L, 4L, 1L, 30L, 1L,
      3L, 1L, 3L, 1L, 2L, 1L, 2L, 1L, 9L, 1L, 7L, 1L, 6L, 1L, 3L, 1L, 8L
    )
  ),
  `TIMSS 2003 G8` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA
    ),
    c(
      6L, 1L, 1L, 1L, 4L, 1L, 1L, 2L, 5L, 2L, 4L, 1L, 5L, 2L, 3L, 1L, 11L, 1L, 2L,
      1L, 1L, 1L, 6L, 1L, 3L, 1L, 2L, 2L, 2L, 1L, 3L, 2L, 1L, 2L, 4L, 1L, 2L, 1L,
      1L, 1L, 1L, 1L, 2L, 2L, 4L, 1L, 10L, 1L, 3L, 1L, 8L, 1L, 1L, 1L, 4L, 1L, 4L,
      1L, 22L, 1L, 2L, 1L, 1L, 3L, 3L, 1L, 1L, 5L, 9L, 1L, 7L, 1L, 6L, 1L, 8L, 1L,
      3L
    )
  ),
  `TIMSS 2007 G4` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA
    ),
    c(
      2L, 1L, 3L, 1L, 1L, 2L, 14L, 1L, 1L, 1L, 6L, 3L, 2L, 1L, 1L, 1L, 1L, 1L, 3L,
      1L, 7L, 1L, 7L, 1L, 4L, 1L, 2L, 1L, 3L, 1L, 4L, 1L, 2L, 2L, 5L, 1L, 2L, 1L,
      1L, 1L, 2L, 1L, 9L, 1L, 10L, 1L, 8L, 1L, 1L, 1L, 12L, 1L, 22L, 1L, 3L, 1L, 3L,
      5L, 1L, 1L, 9L, 1L, 9L, 3L, 2L, 1L, 3L, 1L, 8L
    )
  ),
  `TIMSS 2007 G4 Bridge` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA
    ),
    c(
      6L, 1L, 1L, 1L, 25L, 2L, 18L, 1L, 12L, 1L, 2L, 1L, 3L, 1L, 4L, 1L, 2L, 1L, 9L,
      1L, 1L, 1L, 23L, 1L, 8L, 1L, 1L, 1L, 35L, 1L, 3L, 1L, 3L, 1L, 2L, 1L, 2L, 1L,
      9L, 1L, 14L, 1L, 12L
    )
  ),
  `TIMSS 2007 G8` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA
    ),
    c(
      2L, 1L, 3L, 1L, 1L, 1L, 6L, 3L, 4L, 2L, 2L, 1L, 6L, 3L, 2L, 2L, 6L, 1L, 4L,
      1L, 2L, 1L, 7L, 2L, 3L, 1L, 2L, 2L, 2L, 1L, 3L, 2L, 1L, 2L, 4L, 1L, 1L, 2L,
      1L, 1L, 4L, 1L, 7L, 1L, 1L, 1L, 6L, 1L, 12L, 1L, 2L, 1L, 8L, 1L, 2L, 1L, 19L,
      1L, 2L, 1L, 1L, 3L, 3L, 2L, 1L, 4L, 1L, 1L, 7L, 2L, 8L, 3L, 2L, 1L, 12L
    )
  ),
  `TIMSS 2007 G8 Bridge` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA
    ),
    c(
      6L, 1L, 1L, 1L, 6L, 2L, 5L, 2L, 10L, 2L, 3L, 1L, 11L, 1L, 2L, 1L, 8L, 1L, 3L,
      1L, 2L, 2L, 2L, 1L, 3L, 2L, 1L, 2L, 4L, 1L, 2L, 1L, 1L, 1L, 21L, 1L, 12L, 1L,
      11L, 1L, 22L, 1L, 2L, 1L, 2L, 2L, 3L, 1L, 2L, 2L, 1L, 1L, 9L, 1L, 14L, 1L,
      12L
    )
  ),
  `TIMSS 2011 G4` = rep(
    rep(c("X", NA), 40),
    c(
      1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 3L, 2L, 1L, 2L, 1L, 6L, 2L, 3L, 1L, 5L, 2L,
      2L, 1L, 1L, 1L, 1L, 1L, 11L, 2L, 3L, 1L, 2L, 1L, 4L, 4L, 2L, 2L, 4L, 1L, 2L,
      2L, 3L, 1L, 1L, 1L, 2L, 1L, 4L, 1L, 7L, 1L, 11L, 2L, 8L, 1L, 1L, 2L, 5L, 2L,
      4L, 1L, 19L, 1L, 2L, 1L, 1L, 2L, 4L, 1L, 1L, 3L, 1L, 1L, 1L, 1L, 7L, 2L, 13L,
      1L, 2L, 2L, 8L
    )
  ),
  `TIMSS 2011 G8` = rep(
    rep(c("X", NA), 37),
    c(
      1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 7L, 1L, 6L, 2L, 3L, 1L, 5L, 2L, 18L, 1L,
      4L, 1L, 2L, 2L, 3L, 2L, 1L, 2L, 2L, 1L, 3L, 2L, 1L, 3L, 3L, 1L, 2L, 1L, 1L,
      1L, 4L, 1L, 5L, 1L, 10L, 1L, 12L, 1L, 1L, 2L, 8L, 1L, 2L, 1L, 19L, 1L, 2L, 1L,
      1L, 1L, 5L, 1L, 2L, 4L, 1L, 1L, 7L, 2L, 8L, 1L, 4L, 1L, 8L, 1L, 3L
    )
  ),
  `TIMSS 2015 G4` = rep(
    rep(c("X", NA), 36),
    c(
      3L, 1L, 1L, 1L, 1L, 1L, 1L, 4L, 1L, 1L, 2L, 8L, 1L, 2L, 1L, 5L, 2L, 2L, 3L,
      1L, 1L, 11L, 2L, 3L, 2L, 1L, 1L, 4L, 1L, 1L, 3L, 1L, 2L, 4L, 1L, 2L, 2L, 3L,
      1L, 1L, 1L, 2L, 1L, 4L, 1L, 19L, 2L, 4L, 1L, 3L, 1L, 1L, 2L, 5L, 2L, 4L, 1L,
      22L, 1L, 1L, 2L, 4L, 1L, 1L, 3L, 1L, 1L, 10L, 1L, 13L, 1L, 12L
    )
  ),
  `TIMSS 2015 G8` = rep(
    rep(c("X", NA), 36),
    c(
      3L, 1L, 1L, 1L, 1L, 1L, 1L, 7L, 1L, 6L, 1L, 1L, 1L, 2L, 1L, 5L, 2L, 15L, 1L,
      2L, 1L, 7L, 1L, 4L, 1L, 2L, 1L, 2L, 2L, 3L, 2L, 1L, 3L, 3L, 1L, 1L, 2L, 1L,
      1L, 4L, 1L, 7L, 1L, 8L, 1L, 10L, 1L, 1L, 1L, 1L, 2L, 11L, 1L, 22L, 1L, 1L, 1L,
      5L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 8L, 1L, 13L, 1L, 8L, 1L, 3L
    )
  ),
  `preTIMSS 2015 G4` = rep(
    c(NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA),
    c(1L, 1L, 14L, 1L, 54L, 1L, 2L, 1L, 6L, 1L, 7L, 1L, 7L, 1L, 115L, 1L, 3L)
  ),
  `TIMSS 2019 G4` = rep(
    rep(c("X", NA), 42),
    c(
      1L, 1L, 3L, 1L, 1L, 1L, 3L, 2L, 1L, 1L, 3L, 7L, 1L, 2L, 1L, 5L, 2L, 2L, 3L,
      1L, 1L, 9L, 1L, 1L, 2L, 3L, 2L, 1L, 1L, 4L, 1L, 1L, 2L, 2L, 2L, 4L, 1L, 2L,
      2L, 3L, 3L, 2L, 1L, 1L, 1L, 2L, 1L, 5L, 1L, 1L, 2L, 10L, 2L, 8L, 1L, 1L, 3L,
      2L, 1L, 1L, 2L, 4L, 1L, 18L, 1L, 3L, 1L, 1L, 2L, 4L, 1L, 1L, 1L, 1L, 1L, 1L,
      1L, 10L, 1L, 13L, 1L, 8L, 1L, 3L
    )
  ),
  `TIMSS 2019 G4 Bridge` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA
    ),
    c(
      4L, 1L, 4L, 1L, 15L, 1L, 2L, 1L, 9L, 1L, 1L, 1L, 1L, 1L, 11L, 2L, 3L, 2L, 1L,
      1L, 4L, 1L, 1L, 2L, 8L, 1L, 7L, 1L, 4L, 1L, 25L, 1L, 8L, 1L, 9L, 1L, 4L, 1L,
      22L, 1L, 7L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 24L, 1L, 12L
    )
  ),
  `TIMSS 2019 G8` = rep(
    c(
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X"
    ),
    c(
      1L, 1L, 1L, 1L, 1L, 3L, 1L, 7L, 1L, 11L, 1L, 5L, 2L, 3L, 1L, 11L, 1L, 2L, 1L,
      4L, 2L, 1L, 1L, 4L, 1L, 2L, 1L, 2L, 2L, 3L, 2L, 1L, 3L, 3L, 1L, 1L, 2L, 1L,
      1L, 4L, 1L, 16L, 1L, 12L, 1L, 1L, 2L, 6L, 1L, 4L, 1L, 18L, 2L, 2L, 1L, 1L, 1L,
      5L, 1L, 3L, 1L, 1L, 1L, 10L, 1L, 13L, 1L, 8L, 2L, 1L, 1L
    )
  ),
  `TIMSS 2019 G8 Bridge` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X",
      NA, "X", NA
    ),
    c(
      4L, 1L, 23L, 1L, 25L, 1L, 7L, 1L, 4L, 1L, 2L, 1L, 7L, 2L, 7L, 1L, 4L, 1L, 21L,
      1L, 12L, 1L, 14L, 1L, 22L, 1L, 7L, 1L, 3L, 1L, 1L, 1L, 10L, 1L, 13L, 1L, 12L
    )
  ),
  `eTIMSS PSI 2019 G4` = rep(
    rep(c("X", NA), 32),
    c(
      1L, 1L, 1L, 1L, 1L, 4L, 1L, 15L, 1L, 2L, 1L, 5L, 2L, 2L, 1L, 1L, 1L, 1L, 1L,
      9L, 1L, 1L, 2L, 3L, 2L, 1L, 1L, 4L, 1L, 1L, 2L, 8L, 1L, 7L, 1L, 4L, 1L, 12L,
      1L, 12L, 1L, 8L, 1L, 9L, 1L, 4L, 1L, 18L, 1L, 3L, 1L, 7L, 1L, 1L, 1L, 1L, 1L,
      1L, 1L, 10L, 1L, 13L, 1L, 12L
    )
  ),
  `eTIMSS PSI 2019 G8` = rep(
    rep(c("X", NA), 24),
    c(
      1L, 1L, 1L, 1L, 1L, 23L, 1L, 5L, 2L, 18L, 1L, 4L, 2L, 1L, 1L, 4L, 1L, 2L, 1L,
      7L, 2L, 7L, 1L, 4L, 1L, 21L, 1L, 12L, 1L, 9L, 1L, 4L, 1L, 18L, 1L, 3L, 1L, 7L,
      1L, 3L, 1L, 1L, 1L, 10L, 1L, 13L, 1L, 12L
    )
  ),
  `TIMSS 2023 G4` = rep(
    rep(c("X", NA), 38),
    c(
      1L, 1L, 3L, 1L, 3L, 1L, 1L, 2L, 5L, 2L, 1L, 4L, 1L, 2L, 1L, 5L, 2L, 2L, 3L,
      1L, 1L, 11L, 2L, 3L, 2L, 1L, 1L, 4L, 1L, 2L, 1L, 2L, 2L, 4L, 1L, 1L, 3L, 3L,
      3L, 2L, 1L, 1L, 1L, 1L, 2L, 5L, 1L, 2L, 1L, 11L, 1L, 8L, 1L, 1L, 2L, 5L, 2L,
      4L, 1L, 19L, 1L, 4L, 2L, 4L, 1L, 1L, 3L, 1L, 1L, 10L, 1L, 13L, 2L, 7L, 1L, 3L
    )
  ),
  `TIMSS 2023 G8` = rep(
    rep(c("X", NA), 35),
    c(
      1L, 1L, 1L, 1L, 1L, 2L, 4L, 5L, 1L, 3L, 1L, 7L, 2L, 8L, 2L, 14L, 1L, 4L, 2L,
      1L, 1L, 4L, 1L, 2L, 1L, 2L, 2L, 3L, 2L, 1L, 3L, 3L, 1L, 1L, 1L, 2L, 1L, 4L,
      1L, 7L, 1L, 8L, 1L, 12L, 1L, 1L, 2L, 6L, 1L, 1L, 1L, 2L, 1L, 19L, 1L, 4L, 1L,
      5L, 1L, 3L, 1L, 1L, 1L, 10L, 1L, 13L, 2L, 7L, 1L, 3L
    )
  ),
  `TIMSS Advanced Mathematics 1995` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA
    ),
    c(
      8L, 2L, 15L, 1L, 1L, 1L, 10L, 3L, 1L, 1L, 17L, 1L, 4L, 1L, 12L, 2L, 12L, 1L,
      72L, 1L, 10L, 2L, 26L, 1L, 12L
    )
  ),
  `TIMSS Advanced Physics 1995` = rep(
    c(
      NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA,
      "X", NA, "X", NA, "X", NA, "X", NA
    ),
    c(
      8L, 2L, 15L, 1L, 1L, 1L, 10L, 3L, 1L, 1L, 17L, 1L, 4L, 1L, 12L, 2L, 12L, 1L,
      72L, 1L, 10L, 2L, 26L, 1L, 12L
    )
  ),
  `TIMSS Advanced Mathematics 2008` = rep(
    c(NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA),
    c(6L, 1L, 67L, 1L, 4L, 1L, 10L, 1L, 27L, 1L, 8L, 1L, 6L, 1L, 30L, 1L, 10L, 2L, 39L)
  ),
  `TIMSS Advanced Physics 2008` = rep(
    c(NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA),
    c(6L, 1L, 67L, 1L, 4L, 1L, 10L, 1L, 27L, 1L, 8L, 1L, 6L, 1L, 30L, 1L, 10L, 2L, 39L)
  ),
  `TIMSS Advanced Mathematics 2015` = rep(
    c(NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA),
    c(60L, 1L, 18L, 1L, 10L, 1L, 36L, 1L, 9L, 1L, 25L, 1L, 1L, 1L, 10L, 2L, 26L, 1L, 12L)
  ),
  `TIMSS Advanced Physics 2015` = rep(
    c(NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA, "X", NA),
    c(60L, 1L, 18L, 1L, 10L, 1L, 36L, 1L, 9L, 1L, 25L, 1L, 1L, 1L, 10L, 2L, 26L, 1L, 12L)
  ),
  `TiPi 2011 G4` = rep(
    rep(c("X", NA), 28),
    c(
      1L, 1L, 1L, 1L, 1L, 3L, 3L, 12L, 1L, 11L, 1L, 2L, 1L, 1L, 1L, 14L, 1L, 3L, 1L,
      2L, 1L, 4L, 4L, 2L, 2L, 4L, 1L, 12L, 1L, 4L, 1L, 7L, 1L, 11L, 1L, 9L, 1L, 2L,
      1L, 5L, 2L, 4L, 1L, 19L, 1L, 2L, 1L, 1L, 1L, 5L, 1L, 1L, 3L, 1L, 1L, 37L
    )
  ),
  key = "Alpha 3 ISO"
)


#$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
output$welcomeToRALSA <- renderText("Welcome to RALSA")
output$welcomeText <- renderText({HTML('The R Analyzer for Large-Scale Assessments (RALSA) is an R package for preparation and analysis of data from large-scale assessments and surveys which use complex sampling and assessment design. Currently, RALSA supports a number of studies with different design and a number of analysis types (see below). Both of these will increase in future.<br/>
RALSA is a free and open source software licensed under GPL v2.0.<br/><br/>
Use the menu on the left to:<br/><br/>
<ul><li>Prepare data for analysis</li></ul>
<ul><ul><li>Download studies\' SPSS datasets with option to convert them</li></ul></ul>
<ul><ul><li>Convert data (SPSS, or text in case of PISA prior 2015)</li></ul></ul>
<ul><ul><li>Merge study data files from different countries and/or respondents</li></ul></ul>
<ul><ul><li>View variable properties (name, class, variable label, response categories/unique values, user-defined missing values)</li></ul></ul>
<ul><ul><li>Data diagnostic tables (quick weighted or unweighted frequencies and descriptives for inspecting the data and elaborate hypotheses)</li></ul></ul>
<ul><ul><li>Recode variables</li></ul></ul>
<ul><ul><li>Cut variables</li></ul></ul>
<ul><ul><li>Aggregate variables</li></ul></ul>
<ul><ul><li>Select PISA countries for analysis</li></ul></ul>
<ul><li>Perform analyses (more analysis types will be added in future)</li></ul>
<ul><ul><li>Percentages of respondents in certain groups and averages (means, medians or modes) on variables of interest, per group</li></ul></ul>
<ul><ul><li>Percentiles of continuous variables within groups of respondents</li></ul></ul>
<ul><ul><li>Percentages of respondents reaching or surpassing benchmarks of achievement</li></ul></ul>
<ul><ul><li>Crosstabulations with Rao-Scott first- and second-order chi-square adjustments</li></ul></ul>
<ul><ul><li>Correlations (Pearson or Spearman)</li></ul></ul>
<ul><ul><li>Linear regression</li></ul></ul>
<ul><ul><li>Binary logistic regression</li></ul></ul>
<br/>The percentages and means, percentiles and benchmarks functions are also capable producing graphs for the estimates.<br>
<br/>All data preparation and analysis functions automatically recognize the study design and apply the appropriate techniques to handle the complex sampling assessment design issues, while giving freedom to tweak the analysis (e.g. change the default weight, apply the \"shortcut\" method in TIMSS and PIRLS and so on).<br><br>
Currently, RALSA can work with data for all cycles of the following studies (more will be added in future):<br/><br/>
<ul><li>CivED</li></ul>
<ul><li>ICCS</li></ul>
<ul><li>ICILS</li></ul>
<ul><li>RLII</li></ul>
<ul><li>PIRLS (including PIRLS Literacy and ePIRLS)</li></ul>
<ul><li>TIMSS (including TIMSS Numeracy and eTIMSS PSI)</li></ul>
<ul><li>TiPi (TIMSS and PIRLS joint study)</li></ul>
<ul><li>TIMSS Advanced</li></ul>
<ul><li>SITES</li></ul>
<ul><li>TEDS-M</li></ul>
<ul><li>PISA</li></ul>
<ul><li>PISA for Development</li></ul>
<ul><li>TALIS</li></ul>
<ul><li>TALIS Starting Strong Survey (a.k.a. TALIS 3S)</li></ul>
<ul><li>REDS</li></ul>
<br>For questions, feature requests and bug reports, please write to <a href="mailto:ralsa@ineri.org">ralsa@ineri.org</a>.<br/><br/><br/><br/><br/><br/>')})
available.volumes <- getVolumes()()
output$h1DownloadData <- renderText("Download data")
output$downloadIntro <- renderText({HTML("Select study, cycle and population and download countries' large-scale assessment SPSS data files.<br/><br/>")})
working.cnt.table <- copy(countries.studies.cycles.table)
setnames(x = working.cnt.table, gsub(pattern = "[[:space:]]", replacement = "_", x = colnames(working.cnt.table)))
working.cnt.table[ , Numeric_Code := NULL]
downloadAllStdAndCnt <- reactiveValues(downloadAllAvailStdAndCnt = working.cnt.table, selectedStudy = NULL, selectedCycle = NULL, selectedPOP = NULL, selectedSnakeStdCycPOP = NULL, downloadFilteredPartCnt = data.table(), downloadSelectedCnt = data.table(), downloadSyntax = NULL)
observe({
  downloadAllStdAndCnt$selectedStudy <- input$selectDownloadStudyDropdown
  if(is.null(downloadAllStdAndCnt$selectedStudy) || !is.null(downloadAllStdAndCnt$selectedStudy) & downloadAllStdAndCnt$selectedStudy == "") {
    NULL
  } else {
    downloadAllStdAndCnt$selectedCycle <- input$selectDownloadCycleDropdown
  }
  if(any(is.null(downloadAllStdAndCnt$selectedStudy), is.null(downloadAllStdAndCnt$selectedCycle)) || any(c(downloadAllStdAndCnt$selectedStudy, downloadAllStdAndCnt$selectedCycle) == "")) {
    NULL
  } else {
    downloadAllStdAndCnt$selectedPOP <- input$selectDownloadPopulationDropdown
  }
  if(any(is.null(downloadAllStdAndCnt$selectedStudy), is.null(downloadAllStdAndCnt$selectedCycle), is.null(downloadAllStdAndCnt$selectedPOP)) || any(c(downloadAllStdAndCnt$selectedStudy, downloadAllStdAndCnt$selectedCycle, downloadAllStdAndCnt$selectedPOP) == "")) {
    NULL
  } else {
    if(!downloadAllStdAndCnt$selectedStudy %in% c("TALIS", "TALIS 3S", "PISA", "PISA for Development", "TIMSS Advanced Mathematics", "TIMSS Advanced Physics")) {
      downloadAllStdAndCnt$selectedSnakeStdCycPOP <- gsub(pattern = "[[:space:]]", replacement = "_", x = gsub(pattern = "rade[[:space:]]", replacement = "", x = paste(downloadAllStdAndCnt$selectedStudy, downloadAllStdAndCnt$selectedCycle, downloadAllStdAndCnt$selectedPOP, sep = "_")))
    } else if(downloadAllStdAndCnt$selectedStudy %in% c("TALIS", "TALIS 3S")) {
      downloadAllStdAndCnt$selectedSnakeStdCycPOP <- gsub(pattern = "[[:space:]]", replacement = "_", x = paste(downloadAllStdAndCnt$selectedStudy, downloadAllStdAndCnt$selectedCycle, downloadAllStdAndCnt$selectedPOP, sep = "_"))
    } else if(downloadAllStdAndCnt$selectedStudy == "PISA") {
      downloadAllStdAndCnt$selectedSnakeStdCycPOP <- gsub(pattern = "\\_15[[:space:]]year\\-olds$", replacement = "", x = paste(downloadAllStdAndCnt$selectedStudy, downloadAllStdAndCnt$selectedCycle, downloadAllStdAndCnt$selectedPOP, sep = "_"))
    } else if(downloadAllStdAndCnt$selectedStudy == "PISA for Development") {
      downloadAllStdAndCnt$selectedSnakeStdCycPOP <- gsub(pattern = "[[:space:]]for[[:space:]]|evelopment\\_", replacement = "_", x = gsub(pattern = "n school$|ut of school$", replacement = "S", x = paste(downloadAllStdAndCnt$selectedStudy, downloadAllStdAndCnt$selectedCycle, downloadAllStdAndCnt$selectedPOP, sep = "_")))
    } else if(downloadAllStdAndCnt$selectedStudy %in% c("TIMSS Advanced Mathematics", "TIMSS Advanced Physics")) {
      downloadAllStdAndCnt$selectedSnakeStdCycPOP <- gsub(pattern = "[[:space:]]", replacement = "_", x = gsub(pattern = "\\_Grade 12$", replacement = "", x = paste(downloadAllStdAndCnt$selectedStudy, downloadAllStdAndCnt$selectedCycle, downloadAllStdAndCnt$selectedPOP, sep = "_")))
    }
  }
})
output$selectDownloadStudyDropdown <- renderUI({
  pickerInput(
    inputId = "selectDownloadStudyDropdown", label = "Select study",
    choices = c("", gsub(pattern = "\\_", replacement = " ", x = trimws(unique(gsub(pattern = "\\_[[:digit:]]{4}.*$", replacement = "", x = colnames(downloadAllStdAndCnt$downloadAllAvailStdAndCnt)[!colnames(downloadAllStdAndCnt$downloadAllAvailStdAndCnt) %in% c("Alpha_3_ISO", "Country_Name")]))))),
    options = list('actions-box' = TRUE),
    width = "220px"
  )
})
output$selectDownloadCycleDropdown <- renderUI({
  if(!is.null(downloadAllStdAndCnt$selectedStudy) && downloadAllStdAndCnt$selectedStudy != "") {
    pickerInput(
      inputId = "selectDownloadCycleDropdown", label = "Select cycle",
      if(downloadAllStdAndCnt$selectedStudy == "PISA") {
        choices = c("", intersect(sort(unique(gsub(pattern = ".*([0-9]{4}).*", replacement = "\\1", x = grep(pattern = downloadAllStdAndCnt$selectedStudy, x = colnames(downloadAllStdAndCnt$downloadAllAvailStdAndCnt), value = TRUE)))), c("2015", "2018", "2022")))
      } else if(downloadAllStdAndCnt$selectedStudy %in% c("PISA for Development", "TALIS 3S", "eTIMSS PSI", "TIMSS Advanced Mathematics", "TIMSS Advanced Physics")) {
        choices = c("", sort(unique(gsub(pattern = ".*([0-9]{4}).*", replacement = "\\1", x = grep(pattern = paste0("^", gsub(pattern = "[[:space:]]", replacement = "_", x = downloadAllStdAndCnt$selectedStudy), "\\_[[:digit:]]+"), x = colnames(downloadAllStdAndCnt$downloadAllAvailStdAndCnt), value = TRUE)))))
      } else {
        choices = c("", sort(unique(gsub(pattern = ".*([0-9]{4}).*", replacement = "\\1", x = grep(pattern = paste0("^", downloadAllStdAndCnt$selectedStudy, "\\_[[:digit:]]+"), x = colnames(downloadAllStdAndCnt$downloadAllAvailStdAndCnt), value = TRUE)))))
      }
      ,
      options = list('actions-box' = TRUE),
      width = "220px"
    )
  } else {
    NULL
  }
})
observe({
  if(!is.null(downloadAllStdAndCnt$selectedStudy) && downloadAllStdAndCnt$selectedStudy == "TEDS-M") {
    showNotification(ui = HTML("Due to confidentiality issues, the TEDS-M<br/>data is not available for download and can<br/>only be requested directly from the IEA."), duration = NULL, type = "error")
  }
})
output$selectDownloadPopulationDropdown <- renderUI({
  if(!is.null(downloadAllStdAndCnt$selectedStudy) && downloadAllStdAndCnt$selectedStudy != "" && !is.null(downloadAllStdAndCnt$selectedCycle) && downloadAllStdAndCnt$selectedCycle != "") {
    pickerInput(
      inputId = "selectDownloadPopulationDropdown", label = "Select population",
      if(input$selectDownloadStudyDropdown == "CivED" & input$selectDownloadCycleDropdown == "1999") {
        choices = c("", "Grade 8", "Grade 12")
      } else if(input$selectDownloadStudyDropdown == "ICCS" & input$selectDownloadCycleDropdown == "2009") {
        choices = c("", "Grade 8", "Grade 9")
      } else if(input$selectDownloadStudyDropdown == "ICCS" & input$selectDownloadCycleDropdown %in% c("2016", "2022")) {
        choices = c("", "Grade 8")
      } else if(input$selectDownloadStudyDropdown == "ICILS" & input$selectDownloadCycleDropdown %in% c("2013", "2018", "2023")) {
        choices = c("", "Grade 8")
      } else if(input$selectDownloadStudyDropdown == "RLII" & input$selectDownloadCycleDropdown %in% c("1991", "2001")) {
        choices = c("", "Grade 4")
      } else if(input$selectDownloadStudyDropdown == "PIRLS" & input$selectDownloadCycleDropdown %in% c("2001", "2006", "2011", "2016", "2021")) {
        choices = c("", "Grade 4")
      } else if(input$selectDownloadStudyDropdown == "prePIRLS" & input$selectDownloadCycleDropdown %in% c("2011", "2016")) {
        choices = c("", "Grade 4")
      } else if(input$selectDownloadStudyDropdown == "ePIRLS" & input$selectDownloadCycleDropdown == "2016") {
        choices = c("", "Grade 4")
      } else if(input$selectDownloadStudyDropdown == "preTIMSS" & input$selectDownloadCycleDropdown == "2015") {
        choices = c("", "Grade 4")
      } else if(input$selectDownloadStudyDropdown == "TiPi" & input$selectDownloadCycleDropdown == "2011") {
        choices = c("", "Grade 4")
      } else if(input$selectDownloadStudyDropdown == "REDS" & input$selectDownloadCycleDropdown == "2021") {
        choices = c("", "Grade 8")
      } else if(input$selectDownloadStudyDropdown == "SITES" & input$selectDownloadCycleDropdown == "1998") {
        choices = c("", "M1 POP A", "M1 POP B", "M1 POP C")
      } else if(input$selectDownloadStudyDropdown == "SITES" & input$selectDownloadCycleDropdown == "2006") {
        choices = c("", "M2")
      } else if(input$selectDownloadStudyDropdown == "TALIS" & input$selectDownloadCycleDropdown == "2008") {
        choices = c("", "ISCED 2")
      } else if(input$selectDownloadStudyDropdown == "TALIS" & input$selectDownloadCycleDropdown %in% c("2013", "2018")) {
        choices = c("", "ISCED 1", "ISCED 2", "ISCED 3", "PISA Link")
      } else if(input$selectDownloadStudyDropdown == "TALIS" & input$selectDownloadCycleDropdown %in% c("2024")) {
        choices = c("", "ISCED 1", "ISCED 2", "ISCED 3")
      } else if(input$selectDownloadStudyDropdown == "TALIS 3S" & input$selectDownloadCycleDropdown == "2018") {
        choices = c("", "ISCED 0.2", "ISCED U3")
      } else if(input$selectDownloadStudyDropdown == "TIMSS" & input$selectDownloadCycleDropdown == "1999") {
        choices = c("", "Grade 8")
      } else if(input$selectDownloadStudyDropdown %in% c("TIMSS", "eTIMSS PSI") & input$selectDownloadCycleDropdown != "1999") {
        choices = c("", "Grade 4", "Grade 8")
      } else if(input$selectDownloadStudyDropdown %in% c("TIMSS Advanced Mathematics", "TIMSS Advanced Physics") & input$selectDownloadCycleDropdown %in% c("1995", "2008", "2015")) {
        choices = c("", "Grade 12")
      } else if(input$selectDownloadStudyDropdown == "PISA" & input$selectDownloadCycleDropdown %in% c("2015", "2018", "2022")) {
        choices = c("", "15 year-olds")
      } else if(input$selectDownloadStudyDropdown == "PISA for Development" & input$selectDownloadCycleDropdown == "2019") {
        choices = c("", "In school", "Out of school")
      } else if(input$selectDownloadStudyDropdown == "TEDS-M" & input$selectDownloadCycleDropdown == "2008") {
        choices = c("", "Future primary teachers", "Future lower-secondary teachers")
      }
      ,
      options = list('actions-box' = TRUE),
      width = "220px"
    )
  } else {
    NULL
  }
})
output$downloadAvailableCntsText <- renderText({
  if(!is.null(downloadAllStdAndCnt$selectedStudy) && downloadAllStdAndCnt$selectedStudy != "" && !is.null(downloadAllStdAndCnt$selectedCycle) && downloadAllStdAndCnt$selectedCycle != "" && !is.null(downloadAllStdAndCnt$selectedPOP) && downloadAllStdAndCnt$selectedPOP != "" && !downloadAllStdAndCnt$selectedStudy %in% c("PISA", "PISA for Development", "TEDS-M") && downloadAllStdAndCnt$selectedStudy != "SITES" && downloadAllStdAndCnt$selectedCycle != "1998" && downloadAllStdAndCnt$selectedStudy != "TALIS" && downloadAllStdAndCnt$selectedCycle != "2024") {
    HTML('Use the panels below to select the countries for which the datasets shall be downloaded.')
  } else if(!is.null(downloadAllStdAndCnt$selectedStudy) && downloadAllStdAndCnt$selectedStudy %in% c("PISA", "PISA for Development", "TEDS-M", "SITES", "TALIS") && !is.null(downloadAllStdAndCnt$selectedCycle) && downloadAllStdAndCnt$selectedCycle %in% c("1998", "2015", "2018", "2019", "2022", "2024") && !is.null(downloadAllStdAndCnt$selectedPOP) && downloadAllStdAndCnt$selectedPOP != "") {
    HTML(paste0(downloadAllStdAndCnt$selectedStudy, " ", downloadAllStdAndCnt$selectedCycle, " provides combined files for all countries only."))
  } else {
    NULL
  }
})
observe({
  if(nrow(downloadAllStdAndCnt$downloadFilteredPartCnt) > 0) {
    downloadAllStdAndCnt$downloadFilteredPartCnt[ , Alpha_3_ISO := gsub(pattern = "^KSV\\/", replacement = "", x = Alpha_3_ISO)]
    downloadAllStdAndCnt$downloadFilteredPartCnt[ , Alpha_3_ISO := gsub(pattern = "^CSK\\/", replacement = "", x = Alpha_3_ISO)]
    if(downloadAllStdAndCnt$selectedSnakeStdCycPOP %in% c("ICCS_2009_G8", "ICCS_2009_G9", "ICCS_2016_G8", "ICCS_2022_G8", "ICILS_2013_G8", "ICILS_2018_G8", "ICILS_2023_G8")) {
      downloadAllStdAndCnt$downloadFilteredPartCnt[ , Alpha_3_ISO := gsub(pattern = "^ROM\\/", replacement = "", x = Alpha_3_ISO)]
    }
    if(downloadAllStdAndCnt$selectedSnakeStdCycPOP %in% c("ICCS_2009_G8", "ICCS_2009_G9", "ICCS_2016_G8", "ICCS_2022_G8", "ICILS_2013_G8", "ICILS_2018_G8", "ICILS_2023_G8", "PIRLS_2001_G4", "PIRLS_2006_G4", "PIRLS_2011_G4", "prePIRLS_2011_G4", "PIRLS_2016_G4", "ePIRLS_2016_G4", "prePIRLS_2016_G4", "PIRLS_2021_G4", "PIRLS_2021_G4_Bridge", "TALIS_2008_ISCED_2", "TALIS_2013_ISCED_1", "TALIS_2013_ISCED_2", "TALIS_2013_ISCED_3", "TALIS_2013_PISA_Link", "TALIS_2018_ISCED_1", "TALIS_2018_ISCED_2", "TALIS_2018_ISCED_3", "TALIS_2024_ISCED_1", "TALIS_2024_ISCED_2", "TALIS_2024_ISCED_3", "TALIS_2018_PISA_Link", "TALIS_3S_2018_ISCED_0.2", "TALIS_3S_2018_ISCED_U3", "TIMSS_2011_G4", "TIMSS_2011_G8", "TIMSS_2015_G4", "TIMSS_2015_G8", "preTIMSS_2015_G4", "TIMSS_2019_G4", "TIMSS_2019_G4_Bridge", "TIMSS_2019_G8", "TIMSS_2019_G8_Bridge", "eTIMSS_PSI_2019_G4", "eTIMSS_PSI_2019_G8", "TIMSS_2023_G4", "TIMSS_2023_G8")) {
      downloadAllStdAndCnt$downloadFilteredPartCnt[ , Alpha_3_ISO := gsub(pattern = "^SCG\\/", replacement = "", x = Alpha_3_ISO)]
    }
    if(downloadAllStdAndCnt$selectedSnakeStdCycPOP %in% c("TIMSS_2003_G4", "TIMSS_2003_G8", "TIMSS_2007_G4", "TIMSS_2007_G4_Bridge", "TIMSS_2007_G8", "TIMSS_2007_G8_Bridge")) {
      downloadAllStdAndCnt$downloadFilteredPartCnt[ , Alpha_3_ISO := gsub(pattern = "\\/SRB$", replacement = "", x = Alpha_3_ISO)]
    }
    downloadAllStdAndCnt$downloadFilteredPartCnt[ , Alpha_3_ISO := gsub(pattern = "^TAP\\/", replacement = "", x = Alpha_3_ISO)]
  }
})
observe({
  if(!is.null(downloadAllStdAndCnt$selectedSnakeStdCycPOP) && downloadAllStdAndCnt$selectedSnakeStdCycPOP %in% colnames(working.cnt.table)) {
    downloadAllStdAndCnt$downloadFilteredPartCnt <- setkeyv(x = na.omit(cbind(downloadAllStdAndCnt$downloadAllAvailStdAndCnt[ , mget(c("Alpha_3_ISO", "Country_Name", downloadAllStdAndCnt$selectedSnakeStdCycPOP))], order_col = 1:nrow(downloadAllStdAndCnt$downloadAllAvailStdAndCnt))), cols = "order_col")
    downloadAllStdAndCnt$downloadSelectedCnt <- data.table()
  }
})
observe({
  if(nrow(downloadAllStdAndCnt$downloadSelectedCnt) > 0 && nrow(downloadAllStdAndCnt$downloadFilteredPartCnt) == 0) {
    downloadAllStdAndCnt$downloadFilteredPartCnt <- data.table()
  } else if(nrow(downloadAllStdAndCnt$downloadSelectedCnt) == 0 && nrow(downloadAllStdAndCnt$downloadFilteredPartCnt) > 0) {
    downloadAllStdAndCnt$downloadSelectedCnt <- data.table()
  }
})
output$downloadArrowRight <- renderUI({
  if(any(is.null(downloadAllStdAndCnt$selectedStudy), is.null(downloadAllStdAndCnt$selectedCycle), is.null(downloadAllStdAndCnt$selectedPOP)) || any(c(downloadAllStdAndCnt$selectedStudy, downloadAllStdAndCnt$selectedCycle, downloadAllStdAndCnt$selectedPOP) == "") || !downloadAllStdAndCnt$selectedSnakeStdCycPOP %in% colnames(downloadAllStdAndCnt$downloadAllAvailStdAndCnt) || downloadAllStdAndCnt$selectedStudy %in% c("PISA", "PISA for Development", "TEDS-M") || downloadAllStdAndCnt$selectedStudy == "SITES" & downloadAllStdAndCnt$selectedCycle == "1998" || downloadAllStdAndCnt$selectedStudy == "TALIS" & downloadAllStdAndCnt$selectedCycle == "2024") {
    return(NULL)
  } else {
    actionButton(inputId = "downloadArrowRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
  }
})
output$downloadDblArrowRight <- renderUI({
  if(any(is.null(downloadAllStdAndCnt$selectedStudy), is.null(downloadAllStdAndCnt$selectedCycle), is.null(downloadAllStdAndCnt$selectedPOP)) || any(c(downloadAllStdAndCnt$selectedStudy, downloadAllStdAndCnt$selectedCycle, downloadAllStdAndCnt$selectedPOP) == "") || !downloadAllStdAndCnt$selectedSnakeStdCycPOP %in% colnames(downloadAllStdAndCnt$downloadAllAvailStdAndCnt) || downloadAllStdAndCnt$selectedStudy %in% c("PISA", "PISA for Development", "TEDS-M") || downloadAllStdAndCnt$selectedStudy == "SITES" & downloadAllStdAndCnt$selectedCycle == "1998" || downloadAllStdAndCnt$selectedStudy == "TALIS" & downloadAllStdAndCnt$selectedCycle == "2024") {
    return(NULL)
  } else {
    actionButton(inputId = "downloadDblArrowRight", label = NULL, icon("angle-double-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
  }
})
output$downloadArrowLeft <- renderUI({
  if(any(is.null(downloadAllStdAndCnt$selectedStudy), is.null(downloadAllStdAndCnt$selectedCycle), is.null(downloadAllStdAndCnt$selectedPOP)) || any(c(downloadAllStdAndCnt$selectedStudy, downloadAllStdAndCnt$selectedCycle, downloadAllStdAndCnt$selectedPOP) == "") || !downloadAllStdAndCnt$selectedSnakeStdCycPOP %in% colnames(downloadAllStdAndCnt$downloadAllAvailStdAndCnt) || downloadAllStdAndCnt$selectedStudy %in% c("PISA", "PISA for Development", "TEDS-M") || downloadAllStdAndCnt$selectedStudy == "SITES" & downloadAllStdAndCnt$selectedCycle == "1998" || downloadAllStdAndCnt$selectedStudy == "TALIS" & downloadAllStdAndCnt$selectedCycle == "2024") {
    return(NULL)
  } else {
    actionButton(inputId = "downloadArrowLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
  }
})
output$downloadDblArrowLeft <- renderUI({
  if(any(is.null(downloadAllStdAndCnt$selectedStudy), is.null(downloadAllStdAndCnt$selectedCycle), is.null(downloadAllStdAndCnt$selectedPOP)) || any(c(downloadAllStdAndCnt$selectedStudy, downloadAllStdAndCnt$selectedCycle, downloadAllStdAndCnt$selectedPOP) == "") || !downloadAllStdAndCnt$selectedSnakeStdCycPOP %in% colnames(downloadAllStdAndCnt$downloadAllAvailStdAndCnt) || downloadAllStdAndCnt$selectedStudy %in% c("PISA", "PISA for Development", "TEDS-M") || downloadAllStdAndCnt$selectedStudy == "SITES" & downloadAllStdAndCnt$selectedCycle == "1998" || downloadAllStdAndCnt$selectedStudy == "TALIS" & downloadAllStdAndCnt$selectedCycle == "2024") {
    return(NULL)
  } else {
    actionButton(inputId = "downloadDblArrowLeft", label = NULL, icon("angle-double-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
  }
})
observeEvent(input$downloadArrowRight, {
  req(input$downloadFilteredPartCnt_rows_selected)
  downloadAllStdAndCnt$downloadSelectedCnt <- rbind(isolate(downloadAllStdAndCnt$downloadSelectedCnt), downloadAllStdAndCnt$downloadFilteredPartCnt[input$downloadFilteredPartCnt_rows_selected, , drop = FALSE])
  downloadAllStdAndCnt$downloadSelectedCnt <- downloadAllStdAndCnt$downloadSelectedCnt[complete.cases(downloadAllStdAndCnt$downloadSelectedCnt), , drop = FALSE]
  downloadAllStdAndCnt$downloadFilteredPartCnt <- isolate(downloadAllStdAndCnt$downloadFilteredPartCnt[-input$downloadFilteredPartCnt_rows_selected, , drop = FALSE])
})
observeEvent(input$downloadDblArrowRight, {
  downloadAllStdAndCnt$downloadSelectedCnt <- rbindlist(l = list(isolate(downloadAllStdAndCnt$downloadFilteredPartCnt), downloadAllStdAndCnt$downloadSelectedCnt), use.names = FALSE)
  downloadAllStdAndCnt$downloadFilteredPartCnt <- data.table(V1 = as.character(), V2 = as.character(), V3 = as.character(), V4 = as.character())
})
observeEvent(input$downloadArrowLeft, {
  req(input$downloadSelectedCnt_rows_selected)
  downloadAllStdAndCnt$downloadFilteredPartCnt <- rbind(isolate(downloadAllStdAndCnt$downloadFilteredPartCnt), downloadAllStdAndCnt$downloadSelectedCnt[input$downloadSelectedCnt_rows_selected, , drop = FALSE])
  downloadAllStdAndCnt$downloadFilteredPartCnt <- downloadAllStdAndCnt$downloadFilteredPartCnt[complete.cases(downloadAllStdAndCnt$downloadFilteredPartCnt), , drop = FALSE]
  downloadAllStdAndCnt$downloadSelectedCnt <- isolate(downloadAllStdAndCnt$downloadSelectedCnt[-input$downloadSelectedCnt_rows_selected, , drop = FALSE])
})
observeEvent(input$downloadDblArrowLeft, {
  downloadAllStdAndCnt$downloadFilteredPartCnt <- rbind(downloadAllStdAndCnt$downloadFilteredPartCnt, isolate(downloadAllStdAndCnt$downloadSelectedCnt))
  downloadAllStdAndCnt$downloadSelectedCnt <- data.table(V1 = as.character(), V2 = as.character(), V3 = as.character(), V4 = as.character())
})
output$downloadFilteredPartCnt <- renderDT({
  if(any(is.null(downloadAllStdAndCnt$selectedStudy), is.null(downloadAllStdAndCnt$selectedCycle), is.null(downloadAllStdAndCnt$selectedPOP)) || any(c(downloadAllStdAndCnt$selectedStudy, downloadAllStdAndCnt$selectedCycle, downloadAllStdAndCnt$selectedPOP) == "") || !downloadAllStdAndCnt$selectedSnakeStdCycPOP %in% colnames(downloadAllStdAndCnt$downloadAllAvailStdAndCnt) || downloadAllStdAndCnt$selectedStudy %in% c("PISA", "PISA for Development", "TEDS-M") || downloadAllStdAndCnt$selectedStudy == "SITES" & downloadAllStdAndCnt$selectedCycle == "1998" || downloadAllStdAndCnt$selectedStudy == "TALIS" & downloadAllStdAndCnt$selectedCycle == "2024") {
    NULL
  } else {
    if(nrow(downloadAllStdAndCnt$downloadFilteredPartCnt) > 0) {
      setkeyv(x = downloadAllStdAndCnt$downloadFilteredPartCnt, cols = "order_col")
    } else {
      data.table(V1 = as.character(), V2 = as.character(), V3 = as.character(), V4 = as.character())
    }
  }
},
caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Available countries"),
rownames = FALSE,
filter = "top",
colnames = c("ISO codes", "Country names", "participation", "sortingcol"),
class = "cell-border stripe;compact cell-border;",
extensions = list("Scroller"),
options = list(
  language = list(zeroRecords = "No countries available"),
  initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
  dom = "ti",
  searchHighlight = FALSE,
  searchDelay = 100,
  ordering = FALSE,
  pageLength = 5000,
  autoWidth = TRUE,
  columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = c(2, 3))),
  rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
  deferRender = TRUE, scrollY = 400, scroller = TRUE
))
output$downloadSelectedCnt <- renderDT({
  if(any(is.null(downloadAllStdAndCnt$selectedStudy), is.null(downloadAllStdAndCnt$selectedCycle), is.null(downloadAllStdAndCnt$selectedPOP)) || any(c(downloadAllStdAndCnt$selectedStudy, downloadAllStdAndCnt$selectedCycle, downloadAllStdAndCnt$selectedPOP) == "") || !downloadAllStdAndCnt$selectedSnakeStdCycPOP %in% colnames(downloadAllStdAndCnt$downloadAllAvailStdAndCnt) || downloadAllStdAndCnt$selectedStudy %in% c("PISA", "PISA for Development", "TEDS-M") || downloadAllStdAndCnt$selectedStudy == "SITES" & downloadAllStdAndCnt$selectedCycle == "1998" || downloadAllStdAndCnt$selectedStudy == "TALIS" & downloadAllStdAndCnt$selectedCycle == "2024") {
    return(NULL)
  } else if(!is.null(downloadAllStdAndCnt$selectedStudy) && downloadAllStdAndCnt$selectedStudy != "" && !is.null(downloadAllStdAndCnt$selectedCycle) && downloadAllStdAndCnt$selectedCycle != "" && !is.null(downloadAllStdAndCnt$selectedPOP) && downloadAllStdAndCnt$selectedPOP != "") {
    if(nrow(downloadAllStdAndCnt$downloadSelectedCnt) > 0) {
      setkeyv(x = downloadAllStdAndCnt$downloadSelectedCnt, cols = "order_col")
    } else {
      data.table(V1 = as.character(), V2 = as.character(), V3 = as.character(), V4 = as.character())
    }
  }
},
caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Selected countries"),
rownames = FALSE,
filter = "top",
colnames = c("ISO codes", "Country names", "participation", "sortingcol"),
class = "cell-border stripe;compact cell-border;",
extensions = list("Scroller"),
options = list(
  language = list(zeroRecords = "No countries have been selected"),
  initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
  dom = "ti",
  searchHighlight = FALSE,
  searchDelay = 100,
  ordering = FALSE,
  pageLength = 5000,
  autoWidth = TRUE,
  columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = c(2, 3))),
  rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
  deferRender = TRUE, scrollY = 400, scroller = TRUE
))
shinyDirChoose(input, "downloadChooseOutDir", roots = available.volumes, filetype = list(sav = "sav", RData = "RData"), updateFreq = 1000)
output$downloadOutPathDisplay <- renderText({
  if(downloadAllStdAndCnt$selectedStudy != "" && downloadAllStdAndCnt$selectedCycle != "" && !is.null(downloadAllStdAndCnt$selectedPOP) && downloadAllStdAndCnt$selectedPOP != "" && downloadAllStdAndCnt$selectedSnakeStdCycPOP %in% c("PISA_2015", "PISA_2018", "PISA_2022", "PISA_D_2019_IS", "PISA_D_2019_OS", "SITES_1998_M1_POP_A", "SITES_1998_M1_POP_B", "SITES_1998_M1_POP_C", "TEDS-M_2008")
  ) {
    parseDirPath(available.volumes, input$downloadChooseOutDir)
  } else if(downloadAllStdAndCnt$selectedStudy != "" && downloadAllStdAndCnt$selectedCycle != "" && !is.null(downloadAllStdAndCnt$selectedPOP) && downloadAllStdAndCnt$selectedPOP != "" && !downloadAllStdAndCnt$selectedSnakeStdCycPOP %in% c("PISA_2015", "PISA_2018", "PISA_2022", "PISA_D_2019_IS", "PISA_D_2019_OS", "SITES_1998_M1_POP_A", "SITES_1998_M1_POP_B", "SITES_1998_M1_POP_C", "TEDS-M_2008") && nrow(downloadAllStdAndCnt$downloadSelectedCnt) > 0
  ) {
    parseDirPath(available.volumes, input$downloadChooseOutDir)
  } else {
    return(NULL)
  }
})
syntaxDownloadData <- reactive({
  if(
    length(parseSavePath(available.volumes, input$downloadChooseOutDir)$datapath) > 0 &&
    !is.null(downloadAllStdAndCnt$selectedStudy) && downloadAllStdAndCnt$selectedStudy != "" &&
    !is.null(downloadAllStdAndCnt$selectedCycle) && downloadAllStdAndCnt$selectedCycle != "" &&
    !is.null(downloadAllStdAndCnt$selectedPOP) && downloadAllStdAndCnt$selectedPOP != "" &&
    !is.null(downloadAllStdAndCnt$selectedPOP) && downloadAllStdAndCnt$selectedPOP != "" &&
    !is.null(downloadAllStdAndCnt$downloadSelectedCnt) && nrow(downloadAllStdAndCnt$downloadSelectedCnt) > 0
  ) {
    downloadAllStdAndCnt$downloadSyntax <- paste0(
      'lsa.download.data(study = "',
      downloadAllStdAndCnt$selectedStudy,
      '", cycle = ', downloadAllStdAndCnt$selectedCycle,
      ', POP = "',
      gsub(pattern = "rade[[:space:]]|SCED[[:space:]]|ISA Link$", replacement = "", x = downloadAllStdAndCnt$selectedPOP),
      if(length(downloadAllStdAndCnt$downloadFilteredPartCnt) >  0 && length(downloadAllStdAndCnt$downloadSelectedCnt[ , Alpha_3_ISO]) == 1) {
        paste0('", ISO = "', tolower(downloadAllStdAndCnt$downloadSelectedCnt[ , Alpha_3_ISO]))
      } else if(length(downloadAllStdAndCnt$downloadFilteredPartCnt) >  0 && length(downloadAllStdAndCnt$downloadSelectedCnt[ , Alpha_3_ISO]) > 1) {
        paste0('", ISO = c("', paste(tolower(downloadAllStdAndCnt$downloadSelectedCnt[ , Alpha_3_ISO]), collapse = '", "'), '")')
      } else if(length(downloadAllStdAndCnt$downloadFilteredPartCnt) ==  0 && length(downloadAllStdAndCnt$downloadSelectedCnt[ , Alpha_3_ISO]) > 1) {
        ''
      },
      if(length(downloadAllStdAndCnt$downloadFilteredPartCnt) >  0 && length(downloadAllStdAndCnt$downloadSelectedCnt[ , Alpha_3_ISO]) > 1) {
        ''
      } else {
        '"'
      },
      if(isTRUE(input$downloadAppend)) {
        ''
      } else {
        ', append = FALSE'
      },
      if(isTRUE(input$downloadConvert)) {
        ''
      } else {
        ', convert = FALSE'
      },
      if(isTRUE(input$downloadConvert) && isTRUE(input$downloadMissToNA)) {
        ', convert = TRUE, missing.to.NA = TRUE'
      } else if(isTRUE(input$downloadConvert) && isFALSE(input$downloadMissToNA)) {
        ''
      },
      paste0(', out.folder = "', parseSavePath(available.volumes, input$downloadChooseOutDir)$datapath, '")')
    )
  } else if(
    length(parseSavePath(available.volumes, input$downloadChooseOutDir)$datapath) > 0 &&
    !is.null(downloadAllStdAndCnt$selectedStudy) && downloadAllStdAndCnt$selectedStudy != "" &&
    !is.null(downloadAllStdAndCnt$selectedCycle) && downloadAllStdAndCnt$selectedCycle != "" &&
    !is.null(downloadAllStdAndCnt$selectedPOP) && downloadAllStdAndCnt$selectedPOP != "" &&
    !is.null(downloadAllStdAndCnt$selectedPOP) && downloadAllStdAndCnt$selectedPOP != "" &&
    downloadAllStdAndCnt$selectedSnakeStdCycPOP %in% c("PISA_2015", "PISA_2018", "PISA_2022", "PISA_D_2019_IS", "PISA_D_2019_OS", "SITES_1998_M1_POP_A", "SITES_1998_M1_POP_B", "SITES_1998_M1_POP_C", "TEDS-M_2008", "TALIS_2024_ISCED_1", "TALIS_2024_ISCED_2", "TALIS_2024_ISCED_3")
  ) {
    downloadAllStdAndCnt$downloadSyntax <- paste0(
      'lsa.download.data(study = "',
      downloadAllStdAndCnt$selectedStudy,
      '", cycle = ', downloadAllStdAndCnt$selectedCycle,
      ', POP = "',
      if(downloadAllStdAndCnt$selectedStudy == "PISA") {
        gsub(pattern = "15 year-olds", replacement = "Y15", x = downloadAllStdAndCnt$selectedPOP)
      } else if(downloadAllStdAndCnt$selectedStudy == "PISA for Development") {
        gsub(pattern = "n school$|ut of school$", replacement = "S", x = downloadAllStdAndCnt$selectedPOP)
      } else if(downloadAllStdAndCnt$selectedStudy == "SITES") {
        downloadAllStdAndCnt$selectedPOP
      } else if(downloadAllStdAndCnt$selectedStudy == "TALIS" & downloadAllStdAndCnt$selectedCycle == "2024") {
        gsub(pattern = "SCED ", replacement = "", x = downloadAllStdAndCnt$selectedPOP)
      },
      if(isTRUE(input$downloadAppend)) {
        '"'
      } else {
        '", append = FALSE'
      },
      if(isTRUE(input$downloadConvert)) {
        ''
      } else {
        ', convert = FALSE'
      },
      if(isTRUE(input$downloadConvert) && isTRUE(input$downloadMissToNA)) {
        ', convert = TRUE, missing.to.NA = TRUE'
      } else if(isTRUE(input$downloadConvert) && isFALSE(input$downloadMissToNA)) {
        ''
      },
      paste0(', out.folder = "', parseSavePath(available.volumes, input$downloadChooseOutDir)$datapath, '")')
    )
  }
})
output$downloadSyntaxHead <- renderText({
  if(downloadAllStdAndCnt$selectedStudy != "" && downloadAllStdAndCnt$selectedCycle != "" && !is.null(downloadAllStdAndCnt$selectedPOP) && downloadAllStdAndCnt$selectedPOP != "" && downloadAllStdAndCnt$selectedSnakeStdCycPOP %in% c("PISA_2015", "PISA_2018", "PISA_2022", "PISA_D_2019_IS", "PISA_D_2019_OS", "SITES_1998_M1_POP_A", "SITES_1998_M1_POP_B", "SITES_1998_M1_POP_C", "TEDS-M_2008", "TALIS_2024_ISCED_1", "TALIS_2024_ISCED_2", "TALIS_2024_ISCED_3") && length(parseDirPath(available.volumes, input$downloadChooseOutDir)) > 0
  ) {
    HTML("Syntax")
  } else if(downloadAllStdAndCnt$selectedStudy != "" && downloadAllStdAndCnt$selectedCycle != "" && !is.null(downloadAllStdAndCnt$selectedPOP) && downloadAllStdAndCnt$selectedPOP != "" && !downloadAllStdAndCnt$selectedSnakeStdCycPOP %in% c("PISA_2015", "PISA_2018", "PISA_2022", "PISA_D_2019_IS", "PISA_D_2019_OS", "SITES_1998_M1_POP_A", "SITES_1998_M1_POP_B", "SITES_1998_M1_POP_C", "TEDS-M_2008", "TALIS_2024_ISCED_1", "TALIS_2024_ISCED_2", "TALIS_2024_ISCED_3") && nrow(downloadAllStdAndCnt$downloadSelectedCnt) > 0 && length(parseDirPath(available.volumes, input$downloadChooseOutDir)) > 0
  ) {
    HTML("Syntax")
  } else {
    return(NULL)
  }
})
output$copyDownloadSyntax <- renderUI({
  if(downloadAllStdAndCnt$selectedStudy != "" && downloadAllStdAndCnt$selectedCycle != "" && !is.null(downloadAllStdAndCnt$selectedPOP) && downloadAllStdAndCnt$selectedPOP != "" && downloadAllStdAndCnt$selectedSnakeStdCycPOP %in% c("PISA_2015", "PISA_2018", "PISA_2022", "PISA_D_2019_IS", "PISA_D_2019_OS", "SITES_1998_M1_POP_A", "SITES_1998_M1_POP_B", "SITES_1998_M1_POP_C", "TEDS-M_2008", "TALIS_2024_ISCED_1", "TALIS_2024_ISCED_2", "TALIS_2024_ISCED_3") && length(parseDirPath(available.volumes, input$downloadChooseOutDir)) > 0
  ) {
    rclipButton(inputId = "copyDownloadSyntax", label = "Copy syntax", clipText = syntaxDownloadData(), icon = icon("copy"), style = "color: #ffffff; background-color: #000000; border-radius: 5px; font-size: 80%; margin-bottom: 1px; padding: 1px; width: 85px; margin-top: 1px")
  } else if(downloadAllStdAndCnt$selectedStudy != "" && downloadAllStdAndCnt$selectedCycle != "" && !is.null(downloadAllStdAndCnt$selectedPOP) && downloadAllStdAndCnt$selectedPOP != "" && !downloadAllStdAndCnt$selectedSnakeStdCycPOP %in% c("PISA_2015", "PISA_2018", "PISA_2022", "PISA_D_2019_IS", "PISA_D_2019_OS", "SITES_1998_M1_POP_A", "SITES_1998_M1_POP_B", "SITES_1998_M1_POP_C", "TEDS-M_2008", "TALIS_2024_ISCED_1", "TALIS_2024_ISCED_2", "TALIS_2024_ISCED_3") && nrow(downloadAllStdAndCnt$downloadSelectedCnt) > 0 && length(parseDirPath(available.volumes, input$downloadChooseOutDir)) > 0
  ) {
    rclipButton(inputId = "copyDownloadSyntax", label = "Copy syntax", clipText = syntaxDownloadData(), icon = icon("copy"), style = "color: #ffffff; background-color: #000000; border-radius: 5px; font-size: 80%; margin-bottom: 1px; padding: 1px; width: 85px; margin-top: 1px")
  } else {
    return(NULL)
  }
})
output$downloadSyntax <- renderText({
  if(downloadAllStdAndCnt$selectedStudy != "" && downloadAllStdAndCnt$selectedCycle != "" && !is.null(downloadAllStdAndCnt$selectedPOP) && downloadAllStdAndCnt$selectedPOP != "" && downloadAllStdAndCnt$selectedSnakeStdCycPOP %in% c("PISA_2015", "PISA_2018", "PISA_2022", "PISA_D_2019_IS", "PISA_D_2019_OS", "SITES_1998_M1_POP_A", "SITES_1998_M1_POP_B", "SITES_1998_M1_POP_C", "TEDS-M_2008", "TALIS_2024_ISCED_1", "TALIS_2024_ISCED_2", "TALIS_2024_ISCED_3") && length(parseDirPath(available.volumes, input$downloadChooseOutDir)) > 0
  ) {
    syntaxDownloadData()
  } else if(downloadAllStdAndCnt$selectedStudy != "" && downloadAllStdAndCnt$selectedCycle != "" && !is.null(downloadAllStdAndCnt$selectedPOP) && downloadAllStdAndCnt$selectedPOP != "" && !downloadAllStdAndCnt$selectedSnakeStdCycPOP %in% c("PISA_2015", "PISA_2018", "PISA_2022", "PISA_D_2019_IS", "PISA_D_2019_OS", "SITES_1998_M1_POP_A", "SITES_1998_M1_POP_B", "SITES_1998_M1_POP_C", "TEDS-M_2008", "TALIS_2024_ISCED_1", "TALIS_2024_ISCED_2", "TALIS_2024_ISCED_3") && nrow(downloadAllStdAndCnt$downloadSelectedCnt) > 0 && length(parseDirPath(available.volumes, input$downloadChooseOutDir)) > 0
  ) {
    syntaxDownloadData()
  } else {
    return(NULL)
  }
})
output$downloadExecBtnHead <- renderText({
  if(downloadAllStdAndCnt$selectedStudy != "" && downloadAllStdAndCnt$selectedCycle != "" && !is.null(downloadAllStdAndCnt$selectedPOP) && downloadAllStdAndCnt$selectedPOP != "" && downloadAllStdAndCnt$selectedSnakeStdCycPOP %in% c("PISA_2015", "PISA_2018", "PISA_2022", "PISA_D_2019_IS", "PISA_D_2019_OS", "SITES_1998_M1_POP_A", "SITES_1998_M1_POP_B", "SITES_1998_M1_POP_C", "TEDS-M_2008", "TALIS_2024_ISCED_1", "TALIS_2024_ISCED_2", "TALIS_2024_ISCED_3") && length(parseDirPath(available.volumes, input$downloadChooseOutDir)) > 0
  ) {
    HTML("Press the button below to execute the syntax")
  } else if(downloadAllStdAndCnt$selectedStudy != "" && downloadAllStdAndCnt$selectedCycle != "" && !is.null(downloadAllStdAndCnt$selectedPOP) && downloadAllStdAndCnt$selectedPOP != "" && !downloadAllStdAndCnt$selectedSnakeStdCycPOP %in% c("PISA_2015", "PISA_2018", "PISA_2022", "PISA_D_2019_IS", "PISA_D_2019_OS", "SITES_1998_M1_POP_A", "SITES_1998_M1_POP_B", "SITES_1998_M1_POP_C", "TEDS-M_2008", "TALIS_2024_ISCED_1", "TALIS_2024_ISCED_2", "TALIS_2024_ISCED_3") && nrow(downloadAllStdAndCnt$downloadSelectedCnt) > 0 && length(parseDirPath(available.volumes, input$downloadChooseOutDir)) > 0
  ) {
    HTML("Press the button below to execute the syntax")
  } else {
    return(NULL)
  }
})
output$execDownloadData <- renderUI({
  if(downloadAllStdAndCnt$selectedStudy != "" && downloadAllStdAndCnt$selectedCycle != "" && !is.null(downloadAllStdAndCnt$selectedPOP) && downloadAllStdAndCnt$selectedPOP != "" && downloadAllStdAndCnt$selectedSnakeStdCycPOP %in% c("PISA_2015", "PISA_2018", "PISA_2022", "PISA_D_2019_IS", "PISA_D_2019_OS", "SITES_1998_M1_POP_A", "SITES_1998_M1_POP_B", "SITES_1998_M1_POP_C", "TEDS-M_2008", "TALIS_2024_ISCED_1", "TALIS_2024_ISCED_2", "TALIS_2024_ISCED_3") && length(parseDirPath(available.volumes, input$downloadChooseOutDir)) > 0
  ) {
    actionButton(inputId = "execDownloadData", label = "Execute syntax", icon = icon("cogs"), style = "color: #ffffff; background-color: #000000; border-radius: 10px")
  } else if(downloadAllStdAndCnt$selectedStudy != "" && downloadAllStdAndCnt$selectedCycle != "" && !is.null(downloadAllStdAndCnt$selectedPOP) && downloadAllStdAndCnt$selectedPOP != "" && !downloadAllStdAndCnt$selectedSnakeStdCycPOP %in% c("PISA_2015", "PISA_2018", "PISA_2022", "PISA_D_2019_IS", "PISA_D_2019_OS", "SITES_1998_M1_POP_A", "SITES_1998_M1_POP_B", "SITES_1998_M1_POP_C", "TEDS-M_2008", "TALIS_2024_ISCED_1", "TALIS_2024_ISCED_2", "TALIS_2024_ISCED_3") && nrow(downloadAllStdAndCnt$downloadSelectedCnt) > 0 && length(parseDirPath(available.volumes, input$downloadChooseOutDir)) > 0
  ) {
    actionButton(inputId = "execDownloadData", label = "Execute syntax", icon = icon("cogs"), style = "color: #ffffff; background-color: #000000; border-radius: 10px")
  } else {
    return(NULL)
  }
})
observeEvent(input$execDownloadData, {
  showNotification(ui = HTML("<br/>   Execution started.   <br/><br/>"), type = "message")
  withCallingHandlers({html("consoleDownloadData", "")
    expr = eval(parse(text = downloadAllStdAndCnt$downloadSyntax))
  },
  message = function(i) {
    shinyjs::html(id = "consoleDownloadData", html = i$message, add = TRUE)
  },
  warning = function(w) {
    shinyjs::html(id = "consoleDownloadData", html = paste0("Warning: ", w$message, "\n"), add = TRUE)
  })
  session$sendCustomMessage(type = "scrollCallback", 1)
  showNotification(ui = HTML("<br/>   All operations complete!   <br/><br/>"), type = "message", duration = NULL)
}, ignoreInit = TRUE)
observe({
  if(downloadAllStdAndCnt$selectedStudy != "" && downloadAllStdAndCnt$selectedCycle != "" && !is.null(downloadAllStdAndCnt$selectedPOP) && downloadAllStdAndCnt$selectedPOP != "" && downloadAllStdAndCnt$selectedSnakeStdCycPOP %in% c("PISA_2015", "PISA_2018", "PISA_2022", "PISA_D_2019_IS", "PISA_D_2019_OS", "SITES_1998_M1_POP_A", "SITES_1998_M1_POP_B", "SITES_1998_M1_POP_C", "TEDS-M_2008", "TALIS_2024_ISCED_1", "TALIS_2024_ISCED_2", "TALIS_2024_ISCED_3") ||
     downloadAllStdAndCnt$selectedStudy != "" && downloadAllStdAndCnt$selectedCycle != "" && !is.null(downloadAllStdAndCnt$selectedPOP) && downloadAllStdAndCnt$selectedPOP != "" && !downloadAllStdAndCnt$selectedSnakeStdCycPOP %in% c("PISA_2015", "PISA_2018", "PISA_2022", "PISA_D_2019_IS", "PISA_D_2019_OS", "SITES_1998_M1_POP_A", "SITES_1998_M1_POP_B", "SITES_1998_M1_POP_C", "TEDS-M_2008", "TALIS_2024_ISCED_1", "TALIS_2024_ISCED_2", "TALIS_2024_ISCED_3") && nrow(downloadAllStdAndCnt$downloadSelectedCnt) > 0
  ) {
    show("downloadChooseOutDir")
  } else {
    hide("downloadChooseOutDir")
  }
  if(downloadAllStdAndCnt$selectedStudy != "" && downloadAllStdAndCnt$selectedCycle != "" && !is.null(downloadAllStdAndCnt$selectedPOP) && downloadAllStdAndCnt$selectedPOP != "" && downloadAllStdAndCnt$selectedSnakeStdCycPOP %in% c("PISA_2015", "PISA_2018", "PISA_2022", "PISA_D_2019_IS", "PISA_D_2019_OS", "SITES_1998_M1_POP_A", "SITES_1998_M1_POP_B", "SITES_1998_M1_POP_C", "TALIS_2024_ISCED_1", "TALIS_2024_ISCED_2", "TALIS_2024_ISCED_3") && length(parseSavePath(available.volumes, input$downloadChooseOutDir)$datapath) > 0 ||
     downloadAllStdAndCnt$selectedStudy != "" && downloadAllStdAndCnt$selectedCycle != "" && !is.null(downloadAllStdAndCnt$selectedPOP) && downloadAllStdAndCnt$selectedPOP != "" && !downloadAllStdAndCnt$selectedSnakeStdCycPOP %in% c("PISA_2015", "PISA_2018", "PISA_2022", "PISA_D_2019_IS", "PISA_D_2019_OS", "SITES_1998_M1_POP_A", "SITES_1998_M1_POP_B", "SITES_1998_M1_POP_C", "TALIS_2024_ISCED_1", "TALIS_2024_ISCED_2", "TALIS_2024_ISCED_3") && nrow(downloadAllStdAndCnt$downloadSelectedCnt) > 0 && length(parseSavePath(available.volumes, input$downloadChooseOutDir)$datapath) > 0
  ) {
    show("downloadAppend")
    show("downloadConvert")
    show("downloadMissToNA")
    show("saveDownloadSyntax")
    show("consoleDownloadData")
  } else {
    hide("downloadAppend")
    hide("downloadConvert")
    hide("downloadMissToNA")
    hide("saveDownloadSyntax")
    hide("consoleDownloadData")
  }
})
hide("convertMissToNA")
hide("convertChooseOutDir")
hide("consoleConvertData")
hide("saveConvertSyntax")
hide("copyConvertSyntax")
output$h1ConvertData <- renderText("Convert data")
output$convertIntro <- renderText({HTML("Select and convert data from SPSS or text files (in case of PISA prior its 2015 cycle) into LSA \".RData\" data files.")})
shinyDirChoose(input, "convertChooseSrcDir", roots = available.volumes, filetype = list(sav = "sav", txt = "txt", sps = "sps"), updateFreq = 1000)
full.file.list <- reactiveValues(all.files = NULL, SAV.files = NULL, TXT.files = NULL, SPS.files = NULL, convertSyntax = NULL)
observeEvent(eventExpr = input$convertChooseSrcDir, {
  full.file.list$all.files <- NULL
  full.file.list$SAV.files <- NULL
  full.file.list$TXT.files <- NULL
  full.file.list$SPS.files <- NULL
  full.file.list$convertSyntax <- NULL
  full.file.list$all.files <- list.files(path = parseDirPath(available.volumes, input$convertChooseSrcDir), full.names = FALSE, pattern = "\\.sav$|\\.SAV$|\\.txt$|\\.sps$", recursive = FALSE, ignore.case = FALSE)
  full.file.list$SAV.files <- grep(pattern = "\\.sav$|\\.SAV$", x = full.file.list$all.files, value = TRUE, ignore.case = TRUE)
  full.file.list$TXT.files <- grep(pattern = "\\.txt$", x = full.file.list$all.files, value = TRUE, ignore.case = TRUE)
  full.file.list$SPS.files <- grep(pattern = "\\.sps$", x = full.file.list$all.files, value = TRUE, ignore.case = TRUE)
  full.file.list$SAV.files.lengths <- unname(sapply(X = full.file.list$SAV.files, FUN = nchar))
  full.file.list$TXT.files.lengths <- unname(sapply(X = full.file.list$TXT.files, FUN = nchar))
  full.file.list$SPS.files.unique <- unique(unname(sapply(X = full.file.list$SPS.files, FUN = function(i) {
    substr(x = i, start = 1, stop = 8)
  })))
  output$convertSrcPathDisplay <- renderText({parseDirPath(available.volumes, input$convertChooseSrcDir)})
})
observe({
  if(length(parseDirPath(available.volumes, input$convertChooseSrcDir)) > 0 && length(full.file.list$SAV.files.lengths) == 0 && length(full.file.list$TXT.files.lengths) == 0 && length(full.file.list$SPS.files.unique) == 0) {
    showNotification(ui = HTML("The selected folder does not<br/>contain any of the expected file types:<br/>*.sav or *.txt along with *.sps."), type = "error")
  }
  if(length(parseDirPath(available.volumes, input$convertChooseSrcDir)) > 0 && length(full.file.list$TXT.files.lengths) > 0 && length(full.file.list$SPS.files.unique) == 0) {
    showNotification(ui = HTML("The selected folder contains<br/>*.txt data files, but no control<br/>*.sps files"), type = "error")
  }
  if(length(parseDirPath(available.volumes, input$convertChooseSrcDir)) > 0 && length(full.file.list$TXT.files.lengths) == 0 && length(full.file.list$SPS.files.unique) > 0) {
    showNotification(ui = HTML("The selected folder contains<br/>control *.sps files, but no *.txt<br/>data files."), type = "error")
  }
  if(length(full.file.list$SAV.files.lengths) != 0 & !all(grepl(pattern = "^cy|^int", x = full.file.list$SAV.files, ignore.case = TRUE) == TRUE) & length(unique(full.file.list$SAV.files.lengths)) > 1) {
    showNotification(ui = HTML("The selected folder contains<br/>SPSS files with varying name length.<br/>The folder must contain files from one<br/>study and its cycle. Please check the<br>folder content."), duration = 5, type = "error")
  } else if(length(full.file.list$SAV.files.lengths) != 0 & length(unique(full.file.list$SAV.files.lengths)) == 1 || length(full.file.list$SAV.files.lengths) > 0 & all(grepl(pattern = "^cy|^int", x = full.file.list$SAV.files, ignore.case = TRUE) == TRUE)) {
    if(length(grep(pattern = "^cy|^int", x = full.file.list$SAV.files, ignore.case = TRUE)) == 0 & all(unique(full.file.list$SAV.files.lengths) == 12)) {
      output$convertPISA2015PlusStudyName <- renderUI({NULL})
      output$convertPISA2015PlusStudyCycle <- renderUI({NULL})
      output$convertAvailablePISA2015PlusFilesText <- renderUI({NULL})
      output$convertPISA2015PlusFiles <- renderDT({NULL})
      output$convertPISApre2015StudyName <- renderUI({NULL})
      output$convertPISApre2015StudyCycle <- renderUI({NULL})
      output$convertAvailablePISApre2015FilesText <- renderUI({NULL})
      output$convertPISApre2015Files <- renderDT({NULL})
      output$convertPISADev2019PlusStudyName <- renderUI({NULL})
      output$convertPISADev2019PlusStudyCycle <- renderUI({NULL})
      output$convertAvailablePISADev2019PlusFilesText <- renderUI({NULL})
      output$convertPISADev2019PlusFiles <- renderDT({NULL})
      first.char <- unique(substr(x = full.file.list$SAV.files, start = 1, stop = 1))
      last.two.chars <- unique(substr(x = full.file.list$SAV.files, start = 7, stop = 12))
      last.two.chars <- gsub(pattern = "\\.sav$", replacement = "", x = last.two.chars)
      if(any(c(length(first.char), length(last.two.chars)) > 1)) {
        showNotification(ui = "The folder must contain SPSS files from just one study, cycle or population. Files for multiple studies, cycles and/or populations were found. Please check the folder content.", duration = 5, type = "error")
      } else {
        first.SAV.file <- tolower(c(substr(x = full.file.list$SAV.files[1], start = 1, stop = 3), substr(x = full.file.list$SAV.files[1], start = 7, stop = 8)))
        convert.study.and.cycle <- extract.IEA.study.and.cycle(list.abbrev = studies.and.cycles, file.string = first.SAV.file)
        output$convertIEAStudyName <- renderText({
          if(length(full.file.list$all.files) > 0) {
            HTML(paste0('Study: ', convert.study.and.cycle[[1]]))
          } else {
            return(NULL)
          }
        })
        output$convertIEAStudyCycle <- renderText({
          if(length(full.file.list$all.files) > 0) {
            HTML(paste0('Cycle: ', convert.study.and.cycle[[2]]))
          } else {
            return(NULL)
          }
        })
        output$convertAvailableIEACntsText <- renderText({
          if(length(full.file.list$all.files) > 0) {
            HTML('Use the panels below to select the countries for which the ', convert.study.and.cycle[[1]], ' ', convert.study.and.cycle[[2]], ' data shall be converted from SPSS to LSA ".RData" data sets.')
          } else {
            return(NULL)
          }
        })
        convert.initial.country.list <- country.ISO.and.names[ISOs %in% grep(pattern = paste(substr(x = full.file.list$SAV.files, start = 4, stop = 6), collapse = "|"), x = ISOs, ignore.case = TRUE, value = TRUE), ]
        convert.initial.country.list[ , order_col := 1:nrow(convert.initial.country.list)]
        convert.selected.IEA.files <- data.table(ISOs = as.character(), Names = as.character(), order_col = numeric())
        convertAllCountries <- reactiveValues(
          convertAvailCntIEAFiles = convert.initial.country.list, convertSelectionIEA = convert.selected.IEA.files
        )
        output$convertArrowIEARight <- renderUI({
          if(length(full.file.list$all.files) > 0) {
            actionButton(inputId = "convertArrowIEARight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
          } else {
            return(NULL)
          }
        })
        output$convertDblArrowIEARight <- renderUI({
          if(length(full.file.list$all.files) > 0) {
            actionButton(inputId = "convertDblArrowIEARight", label = NULL, icon("angle-double-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
          } else {
            return(NULL)
          }
        })
        output$convertArrowIEALeft <- renderUI({
          if(length(full.file.list$all.files) > 0) {
            actionButton(inputId = "convertArrowIEALeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
          } else {
            return(NULL)
          }
        })
        output$convertDblArrowIEALeft <- renderUI({
          if(length(full.file.list$all.files) > 0) {
            actionButton(inputId = "convertDblArrowIEALeft", label = NULL, icon("angle-double-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
          } else {
            return(NULL)
          }
        })
        observeEvent(input$convertArrowIEARight, {
          req(input$convertAvailCntIEAFiles_rows_selected)
          convertAllCountries$convertSelectionIEA <- rbind(isolate(convertAllCountries$convertSelectionIEA), convertAllCountries$convertAvailCntIEAFiles[input$convertAvailCntIEAFiles_rows_selected, , drop = FALSE])
          convertAllCountries$convertSelectionIEA <- convertAllCountries$convertSelectionIEA[complete.cases(convertAllCountries$convertSelectionIEA), , drop = FALSE]
          convertAllCountries$convertAvailCntIEAFiles <- isolate(convertAllCountries$convertAvailCntIEAFiles[-input$convertAvailCntIEAFiles_rows_selected, , drop = FALSE])
        })
        observeEvent(input$convertDblArrowIEARight, {
          convertAllCountries$convertSelectionIEA <- rbind(convertAllCountries$convertSelectionIEA, isolate(convertAllCountries$convertAvailCntIEAFiles))
          convertAllCountries$convertAvailCntIEAFiles <- convert.selected.IEA.files
        })
        observeEvent(input$convertArrowIEALeft, {
          req(input$convertSelectionIEA_rows_selected)
          convertAllCountries$convertAvailCntIEAFiles <- rbind(isolate(convertAllCountries$convertAvailCntIEAFiles), convertAllCountries$convertSelectionIEA[input$convertSelectionIEA_rows_selected, , drop = FALSE])
          convertAllCountries$convertAvailCntIEAFiles <- convertAllCountries$convertAvailCntIEAFiles[complete.cases(convertAllCountries$convertAvailCntIEAFiles), , drop = FALSE]
          convertAllCountries$convertSelectionIEA <- isolate(convertAllCountries$convertSelectionIEA[-input$convertSelectionIEA_rows_selected, , drop = FALSE])
        })
        observeEvent(input$convertDblArrowIEALeft, {
          convertAllCountries$convertAvailCntIEAFiles <- rbind(convertAllCountries$convertAvailCntIEAFiles, isolate(convertAllCountries$convertSelectionIEA))
          convertAllCountries$convertSelectionIEA <- convert.selected.IEA.files
        })
        output$convertAvailCntIEAFiles <- renderDT({
          if(length(full.file.list$all.files) > 0) {
            setkeyv(x = convertAllCountries$convertAvailCntIEAFiles, cols = "order_col")
          } else {
            return(NULL)
          }
        },
        caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Available countries"),
        rownames = FALSE,
        filter = "top",
        colnames = c("ISO codes", "Country names", "sortingcol"),
        class = "cell-border stripe;compact cell-border;",
        extensions = list("Scroller"),
        options = list(
          language = list(zeroRecords = "All countries have been selected"),
          initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
          dom = "ti",
          searchHighlight = FALSE,
          searchDelay = 100,
          ordering = FALSE,
          pageLength = 5000,
          autoWidth = TRUE,
          columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
          rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}")
          ,
          deferRender = TRUE, scrollY = 400, scroller = TRUE
        ))
        output$convertSelectionIEA <- renderDT({
          if(length(full.file.list$all.files) > 0) {
            convertAllCountries$convertSelectionIEA
          } else {
            return(NULL)
          }
        },
        caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Selected countries"),
        rownames = FALSE,
        filter = "top",
        colnames = c("ISO codes", "Country names", "sortingcol"),
        class = "cell-border stripe;compact cell-border;",
        extensions = list("Scroller"),
        options = list(
          language = list(zeroRecords = "No countries have been selected"),
          initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
          dom = "ti",
          searchHighlight = FALSE,
          searchDelay = 100,
          ordering = FALSE,
          pageLength = 5000,
          autoWidth = TRUE,
          columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
          rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
          deferRender = TRUE, scrollY = 400, scroller = TRUE
        ))
      }
    } else if(all(unique(full.file.list$SAV.files.lengths) > 12)) {
      output$convertAvailCntIEAFiles <- renderDT({NULL})
      output$convertSelectionIEA <- renderDT({NULL})
      output$convertArrowIEARight <- renderUI({NULL})
      output$convertDblArrowIEARight <- renderUI({NULL})
      output$convertArrowIEALeft <- renderUI({NULL})
      output$convertDblArrowIEALeft <- renderUI({NULL})
      output$convertIEAStudyName <- renderUI({NULL})
      output$convertIEAStudyCycle <- renderUI({NULL})
      output$convertAvailableIEACntsText <- renderUI({NULL})
      output$convertPISApre2015StudyName <- renderUI({NULL})
      output$convertPISApre2015StudyCycle <- renderUI({NULL})
      output$convertAvailablePISApre2015FilesText <- renderUI({NULL})
      output$convertPISApre2015Files <- renderDT({NULL})
      if(length(unique(tolower(substr(x = full.file.list$SAV.files, start = 1, stop = 4)))) > 1) {
        showNotification(ui = 'More than one PISA (post-2012) SPSS<br/>files were found. The conversion could<br/>still run, but it is recommended to<br/>have files from just one cycle.', duration = NULL, type = "warning")
      } else {
        convertPISASAVFiles <- reactiveValues(convertAvailPISASAVFiles = full.file.list$SAV.files)
        first.SAV.file <- tolower(substr(x = convertPISASAVFiles$convertAvailPISASAVFiles[[1]], start = 1, stop = 4))
        if(first.SAV.file %in% c("cy6_", "cy07", "cy08")) {
          output$convertPISADev2019PlusStudyName <- renderUI({NULL})
          output$convertPISADev2019PlusStudyCycle <- renderUI({NULL})
          output$convertAvailablePISADev2019PlusFilesText <- renderUI({NULL})
          output$convertPISADev2019PlusFiles <- renderDT({NULL})
          convert.study.and.cycle <- extract.PISA.2015.plus.study.and.cycle(list.abbrev = PISA.data.files, file.string = first.SAV.file)
          output$convertPISA2015PlusStudyName <- renderText({
            if(length(full.file.list$all.files) > 0) {
              HTML(paste0('Study: ', convert.study.and.cycle[[1]]))
            } else {
              return(NULL)
            }
          })
          output$convertPISA2015PlusStudyCycle <- renderText({
            if(length(full.file.list$all.files) > 0) {
              HTML(paste0('Cycle: ', convert.study.and.cycle[[2]]))
            } else {
              return(NULL)
            }
          })
          output$convertAvailablePISA2015PlusFilesText <- renderText({
            if(length(full.file.list$all.files) > 0) {
              HTML('The table below shows the SPSS PISA ', convert.study.and.cycle[[2]], ' data files available in the source folder which will be converted to LSA ".RData" data sets.')
            } else {
              return(NULL)
            }
          })
          output$convertPISA2015PlusFiles <- renderDT({
            if(length(full.file.list$all.files) > 0) {
              data.table(convertPISASAVFiles$convertAvailPISASAVFiles)
            } else {return(NULL)}
          },
          caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Available files"),
          rownames = FALSE,
          filter = "top",
          colnames = "Data files",
          class = "cell-border stripe;compact cell-border;",
          extensions = list("Scroller"),
          options = list(
            initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
            dom = "ti",
            searchHighlight = FALSE,
            searchDelay = 100,
            ordering = FALSE,
            pageLength = 5000,
            autoWidth = TRUE,
            columnDefs = list(list(width = '300px', targets = 0)),
            rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
            deferRender = TRUE, scrollY = 400, scroller = TRUE
          ))
        } else if(first.SAV.file %in% c("cy1m")) {
          output$convertPISA2015PlusStudyName <- renderUI({NULL})
          output$convertPISA2015PlusStudyCycle <- renderUI({NULL})
          output$convertAvailablePISA2015PlusFilesText <- renderUI({NULL})
          output$convertPISA2015PlusFiles <- renderDT({NULL})
          convert.study.and.cycle <- extract.PISA.for.Development.study.and.cycle(list.abbrev = PISA.for.Development.data.files, file.string = first.SAV.file)
          output$convertPISADev2019PlusStudyName <- renderText({
            if(length(full.file.list$all.files) > 0) {
              HTML(paste0('Study: ', convert.study.and.cycle[[1]]))
            } else {
              return(NULL)
            }
          })
          output$convertPISADev2019PlusStudyCycle <- renderText({
            if(length(full.file.list$all.files) > 0) {
              HTML(paste0('Cycle: ', convert.study.and.cycle[[2]]))
            } else {
              return(NULL)
            }
          })
          output$convertAvailablePISADev2019PlusFilesText <- renderText({
            if(length(full.file.list$all.files) > 0) {
              HTML('The table below shows the SPSS PISA for Development ', convert.study.and.cycle[[2]], ' data files available in the source folder which will be converted to LSA ".RData" data sets.')
            } else {
              return(NULL)
            }
          })
          output$convertPISADev2019PlusFiles <- renderDT({
            if(length(full.file.list$all.files) > 0) {
              data.table(convertPISASAVFiles$convertAvailPISASAVFiles)
            } else {return(NULL)}
          },
          caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Available files"),
          rownames = FALSE,
          filter = "top",
          colnames = "Data files",
          class = "cell-border stripe;compact cell-border;",
          extensions = list("Scroller"),
          options = list(
            initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
            dom = "ti",
            searchHighlight = FALSE,
            searchDelay = 100,
            ordering = FALSE,
            pageLength = 5000,
            autoWidth = TRUE,
            columnDefs = list(list(width = '300px', targets = 0)),
            rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
            deferRender = TRUE, scrollY = 400, scroller = TRUE
          ))
        }
      }
    }
  } else if(length(full.file.list$TXT.files) != 0 & length(full.file.list$SPS.files) != 0) {
    output$convertAvailCntIEAFiles <- renderDT({NULL})
    output$convertSelectionIEA <- renderDT({NULL})
    output$convertArrowIEARight <- renderUI({NULL})
    output$convertDblArrowIEARight <- renderUI({NULL})
    output$convertArrowIEALeft <- renderUI({NULL})
    output$convertDblArrowIEALeft <- renderUI({NULL})
    output$convertIEAStudyName <- renderUI({NULL})
    output$convertIEAStudyCycle <- renderUI({NULL})
    output$convertAvailableIEACntsText <- renderUI({NULL})
    output$convertPISA2015PlusStudyName <- renderUI({NULL})
    output$convertPISA2015PlusStudyCycle <- renderUI({NULL})
    output$convertAvailablePISA2015PlusFilesText <- renderUI({})
    output$convertPISA2015PlusFiles <- renderDT({NULL})
    if(length(full.file.list$TXT.files) != length(full.file.list$SPS.files)) {
      showNotification(ui = HTML("Some TXT (data) and/or<br/>SPS (control) files do<br/>not have a matching file.<br/>Please check the folder content."), type = "warning")
    }
    if(length(full.file.list$SPS.files.unique) > 1) {
      showNotification(ui = HTML("The folder contains SPS (control)<br/>files for more than one study.<br/>Please check the folder content."), type = "warning")
    }
    convertPISASPSFiles <- reactiveValues(convertAvailPISASPSFiles = full.file.list$SPS.files)
    convertPISATXTFiles <- reactiveValues(convertAvailPISATXTFiles = full.file.list$TXT.files)
    first.SPS.file <- tolower(full.file.list$SPS.files.unique[1])
    convert.study.and.cycle <- extract.PISA.pre.2015.study.and.cycle(list.abbrev = PISA.data.files, file.string = first.SPS.file)
    output$convertPISApre2015StudyName <- renderText({
      if(length(full.file.list$TXT.files) > 0) {
        HTML(paste0('Study: ', convert.study.and.cycle[[1]]))
      } else {
        return(NULL)
      }
    })
    output$convertPISApre2015StudyCycle <- renderText({
      if(length(full.file.list$TXT.files) > 0) {
        HTML(paste0('Cycle: ', convert.study.and.cycle[[2]]))
      } else {
        return(NULL)
      }
    })
    output$convertAvailablePISApre2015FilesText <- renderText({
      if(length(full.file.list$TXT.files) > 0) {
        HTML('The table below shows the PISA TXT data files and SPS syntaxes available in the source folder which will be converted to LSA ".RData" data sets.')
      } else {
        return(NULL)
      }
    })
    default.data.files <- data.table(PISA.data.files[["PISA.pre2015.TXT.files"]][[convert.study.and.cycle[[2]]]], PISA.data.files[["PISA.pre2015.TXT.files"]][[convert.study.and.cycle[[2]]]], 1:length(unlist(PISA.data.files[["PISA.pre2015.TXT.files"]][[convert.study.and.cycle[[2]]]])))
    default.syntaxes <- data.table(PISA.data.files[["PISA.pre2015.SPS.files"]][[convert.study.and.cycle[[2]]]], PISA.data.files[["PISA.pre2015.SPS.files"]][[convert.study.and.cycle[[2]]]], 1:length(PISA.data.files[["PISA.pre2015.SPS.files"]][[convert.study.and.cycle[[2]]]]))
    setkeyv(x = default.data.files, cols = "V1")
    setkeyv(x = default.syntaxes, cols = "V1")
    found.data.files <- data.table(convertPISATXTFiles$convertAvailPISATXTFiles, convertPISATXTFiles$convertAvailPISATXTFiles)
    found.syntaxes <- data.table(convertPISASPSFiles$convertAvailPISASPSFiles, convertPISASPSFiles$convertAvailPISASPSFiles)
    setkeyv(x = found.data.files, cols = "V1")
    setkeyv(x = found.syntaxes, cols = "V1")
    final.data.files <- merge(x = default.data.files, y = found.data.files, all = TRUE)
    final.syntaxes <- merge(x = default.syntaxes, y = found.syntaxes, all = TRUE)
    setkeyv(x = final.data.files, cols = "V3")
    setkeyv(x = final.syntaxes, cols = "V3")
    final.data.and.syntaxes <- data.table(cbind(final.data.files[ , V2.y], final.syntaxes[ , V2.y]))
    final.data.and.syntaxes <- final.data.and.syntaxes[!Reduce(`&`, lapply(final.data.and.syntaxes, is.na))]
    final.data.and.syntaxes[ , V1 := lapply(.SD, function(i) {
      ifelse(test = is.na(i), yes = "* Text data not available *", no = i)
    }), .SDcols = "V1"]
    final.data.and.syntaxes[ , V2 := lapply(.SD, function(i) {
      ifelse(test = is.na(i), yes = "* Syntax file not available *", no = i)
    }), .SDcols = "V2"]
    convertPISATXTFiles <- reactiveValues(convertAvailPISATXTFiles = final.data.and.syntaxes)
    output$convertPISApre2015Files <- renderDT({
      if(length(full.file.list$TXT.files) > 0) {
        final.data.and.syntaxes
      } else {
        return(NULL)
      }
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Available files"),
    rownames = FALSE,
    filter = "top",
    colnames = c("TXT data files", "SPSS syntaxes"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 400, scroller = TRUE
    ))
  }
  observe({
    if(exists("convertAllCountries")) {
      if(nrow(convertAllCountries$convertSelectionIEA) > 0) {
        show("convertMissToNA")
        show("convertChooseOutDir")
        show("convertOutPathDisplay")
        show("saveConvertSyntax")
        show("copyConvertSyntax")
      } else if(nrow(convertAllCountries$convertSelectionIEA) == 0) {
        hide("convertMissToNA")
        hide("convertChooseOutDir")
        hide("convertOutPathDisplay")
        hide("saveConvertSyntax")
        hide("copyConvertSyntax")
      }
    } else if(exists("final.data.and.syntaxes")) {
      if(nrow(final.data.and.syntaxes) > 0) {
        show("convertMissToNA")
        show("convertChooseOutDir")
        show("convertOutPathDisplay")
        show("saveConvertSyntax")
        show("copyConvertSyntax")
      } else if(nrow(final.data.and.syntaxes) == 0) {
        hide("convertMissToNA")
        hide("convertChooseOutDir")
        hide("convertOutPathDisplay")
        hide("saveConvertSyntax")
        hide("copyConvertSyntax")
      }
    } else if(exists("convertPISASAVFiles")) {
      if(length(convertPISASAVFiles$convertAvailPISASAVFiles) > 0) {
        show("convertMissToNA")
        show("convertChooseOutDir")
        show("convertOutPathDisplay")
        show("saveConvertSyntax")
        show("copyConvertSyntax")
      } else if(length(convertPISASAVFiles$convertAvailPISASAVFiles) == 0) {
        hide("convertMissToNA")
        hide("convertChooseOutDir")
        hide("convertOutPathDisplay")
        hide("saveConvertSyntax")
        hide("copyConvertSyntax")
      }
    } else if(!exists("convertAllCountries") && !exists("final.data.and.syntaxes") && !exists("convertPISASAVFiles")) {
      hide("convertMissToNA")
      hide("convertChooseOutDir")
      hide("convertOutPathDisplay")
      hide("saveConvertSyntax")
    }
    if(
      length(parseDirPath(available.volumes, input$convertChooseSrcDir)) == 0 ||
      is.null(full.file.list$convertSyntax)
    ) {
      hide("saveConvertSyntax")
      hide("copyConvertSyntax")
    } else {
      show("saveConvertSyntax")
      show("copyConvertSyntax")
    }
  })
  syntaxConvertData <- reactive({
    if(length(parseSavePath(available.volumes, input$convertChooseOutDir)$datapath) > 0 &&
       exists("convertAllCountries") |
       exists("convertPISASAVFiles") |
       exists("convertPISATXTFiles")
    ) {
      full.file.list$convertSyntax <- paste0(
        'lsa.convert.data(inp.folder = "',
        parseSavePath(available.volumes, input$convertChooseSrcDir)$datapath,
        if(exists("convertAllCountries") && nrow(convertAllCountries$convertSelectionIEA) > 0) {
          if(nrow(convertAllCountries$convertAvailCntIEAFiles) == 0 && nrow(convertAllCountries$convertSelectionIEA) > 1) {
            '"'
          } else if(nrow(convertAllCountries$convertAvailCntIEAFiles) == 0 && nrow(convertAllCountries$convertSelectionIEA) == 1) {
            '"'
          } else if(nrow(convertAllCountries$convertAvailCntIEAFiles) != 0 && nrow(convertAllCountries$convertSelectionIEA) == 1) {
            paste0('", ISO = "', paste(unique(grep(pattern = paste(convertAllCountries$convertSelectionIEA[["ISOs"]], collapse = "|"), x = substr(x = full.file.list$SAV.files, start = 4, stop = 6), ignore.case = TRUE, value = TRUE)), collapse = '", "'), '"')
          } else if(nrow(convertAllCountries$convertAvailCntIEAFiles) != 0 && nrow(convertAllCountries$convertSelectionIEA) > 1) {
            paste0('", ISO = c("', paste(unique(grep(pattern = paste(convertAllCountries$convertSelectionIEA[["ISOs"]], collapse = "|"), x = substr(x = full.file.list$SAV.files, start = 4, stop = 6), ignore.case = TRUE, value = TRUE)), collapse = '", "'), '")')
          } else if(!exists("convertAllCountries")) {
            '"'
          }
        } else if(exists("convertPISASAVFiles")) {
          '"'
        } else if(exists("convertPISATXTFiles")) {
          full.file.list$convertSyntax <- paste0(
            '", PISApre15 = TRUE'
          )
        },
        if(input$convertMissToNA == 1) {
          ", missing.to.NA = TRUE"
        },
        paste0(', out.folder = "', parseSavePath(available.volumes, input$convertChooseOutDir)$datapath, '")')
      )
    }
  })
  shinyDirChoose(input, "convertChooseOutDir", roots = available.volumes, filetype = list(RData = "RData"), updateFreq = 1000)
  output$convertOutPathDisplay <- renderText({
    if(length(full.file.list$all.files) > 0) {
      parseDirPath(available.volumes, input$convertChooseOutDir)
    } else {
      return(NULL)
    }
  })
  observe({
    if(length(parseSavePath(available.volumes, input$convertChooseSrcDir)$datapath) > 0 && length(parseSavePath(available.volumes, input$convertChooseOutDir)$datapath) > 0 && identical(as.character(parseSavePath(available.volumes, input$convertChooseSrcDir)$datapath), as.character(parseSavePath(available.volumes, input$convertChooseOutDir)$datapath))) {
      hide("convertExecBtnHead")
      hide("execConvertData")
      hide("consoleConvertData")
      showNotification(ui = HTML("The converted data files are to be saved<br/>in the same folder where the source<br/>files are located.<b><br/><br/>Please choose a different folder<br/> to save the converted data.<br/>Until then further operations will not<br/>be permitted.</b>"), type = "error", duration = NULL)
    } else {
      show("convertExecBtnHead")
      show("execConvertData")
      show("consoleConvertData")
    }
  })
  study.type.loaded <- reactiveValues(IEA = NULL, PISA.2015.plus = NULL, PISA.pre.2015 = NULL)
  observe({
    study.type.loaded$IEA <- exists("convertAllCountries") == TRUE && nrow(convertAllCountries$convertSelectionIEA) > 0 && length(parseSavePath(available.volumes, input$convertChooseOutDir)$datapath) > 0
    study.type.loaded$PISA.2015.plus <- exists("convertPISASAVFiles") && length(convertPISASAVFiles$convertAvailPISASAVFiles) && length(parseSavePath(available.volumes, input$convertChooseOutDir)$datapath) > 0
    study.type.loaded$PISA.pre.2015 <- exists("convertPISATXTFiles") && length(convertPISATXTFiles$convertAvailPISATXTFiles) && length(parseSavePath(available.volumes, input$convertChooseOutDir)$datapath) > 0
  })
  output$convertSyntaxHead <- renderText({
    if(study.type.loaded$IEA == TRUE ||
       study.type.loaded$PISA.2015.plus == TRUE ||
       study.type.loaded$PISA.pre.2015 == TRUE) {
      HTML("Syntax")
    } else {
      return(NULL)
    }
  })
  observe.syntax.save.button <- eval(parse(text = string.observe.syntax.save.button))
  observe.syntax.save.button(input = input, session = session, syntax.ID = "saveConvertSyntax", syntax.object = "syntaxConvertData()", volumes = available.volumes)
  output$copyConvertSyntax <- renderUI({
    rclipButton(inputId = "copyConvertSyntax", label = "Copy syntax", clipText = syntaxConvertData(), icon = icon("copy"), style = "color: #ffffff; background-color: #000000; border-radius: 5px; font-size: 80%; margin-bottom: 1px; padding: 1px; width: 85px; margin-top: 1px")
  })
  output$convertSyntax <- renderText({
    if(study.type.loaded$IEA == TRUE ||
       study.type.loaded$PISA.2015.plus == TRUE ||
       study.type.loaded$PISA.pre.2015 == TRUE) {
      syntaxConvertData()
    } else {
      return(NULL)
    }
  })
  output$convertExecBtnHead <- renderText({
    if(study.type.loaded$IEA == TRUE ||
       study.type.loaded$PISA.2015.plus == TRUE ||
       study.type.loaded$PISA.pre.2015 == TRUE) {
      HTML("Press the button below to execute the syntax")
    } else {
      return(NULL)
    }
  })
  output$execConvertData <- renderUI({
    if(study.type.loaded$IEA == TRUE ||
       study.type.loaded$PISA.2015.plus == TRUE ||
       study.type.loaded$PISA.pre.2015 == TRUE) {
      actionButton(inputId = "execConvertData", label = "Execute syntax", icon = icon("cogs"), style = "color: #ffffff; background-color: #000000; border-radius: 10px")
    } else {
      return(NULL)
    }
  })
  observe({
    if(length(full.file.list$all.files) == 0 || exists("convertAllCountries") && nrow(convertAllCountries$convertSelectionIEA) == 0) {
      hide("consoleConvertData")
    } else if(length(full.file.list$all.files) > 0 || exists("convertAllCountries") && nrow(convertAllCountries$convertSelectionIEA) > 0) {
      show("consoleConvertData")
    }
  })
})
observeEvent(input$execConvertData, {
  showNotification(ui = HTML("<br/>   Execution started.   <br/><br/>"), type = "message")
  withCallingHandlers({html("consoleConvertData", "")
    expr = eval(parse(text = full.file.list$convertSyntax))
  },
  message = function(i) {
    shinyjs::html(id = "consoleConvertData", html = i$message, add = TRUE)
  },
  warning = function(w) {
    shinyjs::html(id = "consoleConvertData", html = paste0("Warning: ", w$message, "\n"), add = TRUE)
  })
  session$sendCustomMessage(type = "scrollCallback", 1)
  showNotification(ui = HTML("<br/>   All operations complete!   <br/><br/>"), type = "message", duration = NULL)
}, ignoreInit = TRUE)
hide("mergeChooseOutFile")
hide("saveMergeSyntax")
output$h1MergeData <- renderText("Merge data")
output$mergeIntro <- renderText({HTML("Select and merge large-scale assessment .RData files. This works with all supported studies, except for PISA.")})
shinyDirChoose(input, "mergeChooseSrcDir", roots = available.volumes, filetype = list(RData = "RData"), updateFreq = 1000)
full.file.list.merge <- reactiveValues(all.files = NULL, RData.files = NULL, mergeSyntax = NULL)
observeEvent(eventExpr = input$mergeChooseSrcDir, {
  full.file.list.merge$RData.files <- NULL
  full.file.list.merge$all.files <- list.files(path = parseDirPath(available.volumes, input$mergeChooseSrcDir), full.names = FALSE, pattern = "\\.RData$", recursive = FALSE, ignore.case = FALSE)
  full.file.list.merge$RData.files <- grep(pattern = "\\.RData$", x = full.file.list.merge$all.files, value = TRUE, ignore.case = TRUE)
  full.file.list.merge$RData.files.lengths <- unname(sapply(X = full.file.list.merge$RData.files, FUN = nchar))
  output$mergeSrcPathDisplay <- renderText({parseDirPath(available.volumes, input$mergeChooseSrcDir)})
}, ignoreInit = TRUE)
observe({
  if(length(parseDirPath(available.volumes, input$mergeChooseSrcDir)) > 0 & length(full.file.list.merge$RData.files.lengths) == 0 || length(parseDirPath(available.volumes, input$mergeChooseSrcDir)) > 0 & !any(unique(substr(x = full.file.list.merge$RData.files, start = 1, stop = 3)) %in% unname(unlist(sapply(respondents.and.cycles, function(i) {
    i["resp.type"]
  }))))) {
    showNotification(ui = HTML("The selected folder does not<br/>contain any files of the expected<br/>type (*.RData) or none from the<br/>expected studies and respondents."), type = "error")
  }
  if(length(full.file.list.merge$RData.files.lengths) != 0 & length(unique(full.file.list.merge$RData.files.lengths)) > 1) {
    showNotification(ui = HTML("The selected folder contains<br/>.RData files with varying name length.<br/>The folder must contain files from one<br/>study and its cycle. Please check the<br>folder content."), duration = 5, type = "error")
  } else if(length(full.file.list.merge$RData.files.lengths) != 0 & length(unique(full.file.list.merge$RData.files.lengths)) == 1) {
    if(unique(full.file.list.merge$RData.files.lengths) == 14) {
      first.char <- unique(substr(x = full.file.list.merge$RData.files, start = 1, stop = 1))
      last.two.chars <- unique(substr(x = full.file.list.merge$RData.files, start = 7, stop = 12))
      last.two.chars <- gsub(pattern = "\\.RData$", replacement = "", x = last.two.chars)
      if(any(c(length(first.char), length(last.two.chars)) > 1)) {
        showNotification(ui = HTML("The folder must contain .RData<br/>files from just one study, cycle<br/>and population. Files for multiple<br/>studies, cycles and/or populations were<br/>found. Please check the folder content."), duration = 5, type = "error")
      } else {
        first.RData.file <- tolower(c(substr(x = full.file.list.merge$RData.files[1], start = 1, stop = 3), substr(x = full.file.list.merge$RData.files[1], start = 7, stop = 8)))
        merge.study.and.cycle <- extract.IEA.study.and.cycle(list.abbrev = studies.and.cycles, file.string = first.RData.file)
        output$mergeIEAStudyName <- renderText({
          if(length(full.file.list.merge$RData.files) > 0) {
            HTML(paste0('Study: ', merge.study.and.cycle[[1]]))
          } else {
            return(NULL)
          }
        })
        output$mergeIEAStudyCycle <- renderText({
          if(length(full.file.list.merge$RData.files) > 0) {
            HTML(paste0('Cycle: ', merge.study.and.cycle[[2]]))
          } else {
            return(NULL)
          }
        })
        output$mergeAvailableIEACntsText <- renderText({
          if(length(full.file.list.merge$RData.files) > 0) {
            HTML('Use the panels below to select the countries for which the ', merge.study.and.cycle[[1]], ' ', merge.study.and.cycle[[2]], ' data shall be merged together.')
          } else {
            return(NULL)
          }
        })
        merge.initial.country.list <- country.ISO.and.names[ISOs %in% grep(pattern = paste(substr(x = full.file.list.merge$RData.files, start = 4, stop = 6), collapse = "|"), x = ISOs, ignore.case = TRUE, value = TRUE), ]
        merge.initial.country.list[ , order_col := 1:nrow(merge.initial.country.list)]
        merge.selected.IEA.files <- data.table(ISOs = as.character(), Names = as.character(), order_col = numeric())
        mergeAllCountries <- reactiveValues(
          mergeAvailCntIEAFiles = merge.initial.country.list, mergeSelectionIEA = merge.selected.IEA.files
        )
        output$mergeArrowIEARight <- renderUI({
          if(length(full.file.list.merge$RData.files) > 0) {
            actionButton(inputId = "mergeArrowIEARight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
          } else {
            return(NULL)
          }
        })
        output$mergeDblArrowIEARight <- renderUI({
          if(length(full.file.list.merge$RData.files) > 0) {
            actionButton(inputId = "mergeDblArrowIEARight", label = NULL, icon("angle-double-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
          } else {
            return(NULL)
          }
        })
        output$mergeArrowIEALeft <- renderUI({
          if(length(full.file.list.merge$RData.files) > 0) {
            actionButton(inputId = "mergeArrowIEALeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
          } else {
            return(NULL)
          }
        })
        output$mergeDblArrowIEALeft <- renderUI({
          if(length(full.file.list.merge$RData.files) > 0) {
            actionButton(inputId = "mergeDblArrowIEALeft", label = NULL, icon("angle-double-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
          } else {
            return(NULL)
          }
        })
        observeEvent(input$mergeArrowIEARight, {
          req(input$mergeAvailCntIEAFiles_rows_selected)
          mergeAllCountries$mergeSelectionIEA <- rbind(isolate(mergeAllCountries$mergeSelectionIEA), mergeAllCountries$mergeAvailCntIEAFiles[input$mergeAvailCntIEAFiles_rows_selected, , drop = FALSE])
          mergeAllCountries$mergeSelectionIEA <- mergeAllCountries$mergeSelectionIEA[complete.cases(mergeAllCountries$mergeSelectionIEA), , drop = FALSE]
          mergeAllCountries$mergeAvailCntIEAFiles <- isolate(mergeAllCountries$mergeAvailCntIEAFiles[-input$mergeAvailCntIEAFiles_rows_selected, , drop = FALSE])
        })
        observeEvent(input$mergeDblArrowIEARight, {
          mergeAllCountries$mergeSelectionIEA <- rbind(mergeAllCountries$mergeSelectionIEA, isolate(mergeAllCountries$mergeAvailCntIEAFiles))
          mergeAllCountries$mergeAvailCntIEAFiles <- merge.selected.IEA.files
        })
        observeEvent(input$mergeArrowIEALeft, {
          req(input$mergeSelectionIEA_rows_selected)
          mergeAllCountries$mergeAvailCntIEAFiles <- rbind(isolate(mergeAllCountries$mergeAvailCntIEAFiles), mergeAllCountries$mergeSelectionIEA[input$mergeSelectionIEA_rows_selected, , drop = FALSE])
          mergeAllCountries$mergeAvailCntIEAFiles <- mergeAllCountries$mergeAvailCntIEAFiles[complete.cases(mergeAllCountries$mergeAvailCntIEAFiles), , drop = FALSE]
          mergeAllCountries$mergeSelectionIEA <- isolate(mergeAllCountries$mergeSelectionIEA[-input$mergeSelectionIEA_rows_selected, , drop = FALSE])
        })
        observeEvent(input$mergeDblArrowIEALeft, {
          mergeAllCountries$mergeAvailCntIEAFiles <- rbind(mergeAllCountries$mergeAvailCntIEAFiles, isolate(mergeAllCountries$mergeSelectionIEA))
          mergeAllCountries$mergeSelectionIEA <- merge.selected.IEA.files
        })
        output$mergeAvailCntIEAFiles <- renderDT({
          if(length(full.file.list.merge$RData.files) > 0) {
            setkeyv(x = mergeAllCountries$mergeAvailCntIEAFiles, cols = "order_col")
          } else {
            return(NULL)
          }
        },
        caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Available countries"),
        rownames = FALSE,
        filter = "top",
        colnames = c("ISO codes", "Country names", "sortingcol"),
        class = "cell-border stripe;compact cell-border;",
        extensions = list("Scroller"),
        options = list(
          language = list(zeroRecords = "All countries have been selected"),
          initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
          dom = "ti",
          searchHighlight = FALSE,
          searchDelay = 100,
          ordering = FALSE,
          pageLength = 5000,
          autoWidth = TRUE,
          columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
          rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
          deferRender = TRUE, scrollY = 400, scroller = TRUE
        ))
        output$mergeSelectionIEA <- renderDT({
          if(length(full.file.list.merge$RData.files) > 0) {
            mergeAllCountries$mergeSelectionIEA
          } else {
            return(NULL)
          }
        },
        caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Selected countries"),
        rownames = FALSE,
        filter = "top",
        colnames = c("ISO codes", "Country names", "sortingcol"),
        class = "cell-border stripe;compact cell-border;",
        extensions = list("Scroller"),
        options = list(
          language = list(zeroRecords = "No countries have been selected"),
          initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
          dom = "ti",
          searchHighlight = FALSE,
          searchDelay = 100,
          ordering = FALSE,
          pageLength = 5000,
          autoWidth = TRUE,
          columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
          rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
          deferRender = TRUE, scrollY = 400, scroller = TRUE
        ))
        file.abbrev <- unique(substr(x = full.file.list.merge$RData.files, start = 1, stop = 3))
        cycle.abbrev <- unique(substr(x = full.file.list.merge$RData.files, start = 7, stop = 8))
        merge.unique.abbrevs <- Map(f = c, file.abbrev, cycle.abbrev)
        merge.unique.abbrevs <- lapply(merge.unique.abbrevs, function(i) {
          paste(i, collapse = "")
        })
        file.variables <- lapply(X = file.abbrev, FUN = function(i) {
          tmp.data <- get(load(file.path(parseDirPath(available.volumes, input$mergeChooseSrcDir), grep(pattern = paste0("^", i), x = full.file.list.merge$RData.files, ignore.case = TRUE, value = TRUE)[1])))
          tmp.data <- data.table(
            Variables = names(tmp.data),
            Variable_Labels = sapply(X = tmp.data, FUN = function(j) {
              if(is.null(attr(x = j, which = "variable.label"))) {
                return(NA_character_)
              } else {
                attr(x = j, which = "variable.label")
              }
            }),
            order_col = 1:length(names(tmp.data)))
        })
        names(file.variables) <- file.abbrev
        file.variables <- Map(f = cbind, file.variables, lapply(X = file.abbrev, FUN = function(i) {data.table(type = toupper(i))}))
        collapsed.respondents.and.cycles <- lapply(respondents.and.cycles, function(i) {
          unlist(sapply(i[[1]], function(j) {
            paste0(j, i[[2]])
          }, simplify = FALSE), use.names = FALSE)
        })
        merge.available.respondents <- Filter(length, sapply(collapsed.respondents.and.cycles, function(i) {
          grep(pattern = paste(i, collapse = "|"), x = unlist(merge.unique.abbrevs), ignore.case = TRUE, value = TRUE)
        }))
        merge.checkboxes.names <- sort(paste0("(", toupper(sapply(X = merge.available.respondents, FUN = names)), ") ", names(merge.available.respondents)))
        output$mergeAvailRespText <- renderText({
          if(length(full.file.list.merge$RData.files) > 0 && nrow(mergeAllCountries$mergeSelectionIEA) > 0) {
            HTML('The following respondent types were found in the source folder. Use the checkboxes below to select different respondents to merge their data.')
          } else {
            return(NULL)
          }
        })
        output$mergeAvailRespCheckboxes <- renderUI({
          if(length(full.file.list.merge$RData.files) > 0 && nrow(mergeAllCountries$mergeSelectionIEA) > 0) {
            checkboxGroupInput(inputId = "mergeAvailRespCheckboxes", label = NULL, choices = merge.checkboxes.names, width = "400px")
          } else {
            return(NULL)
          }
        })
        output$warnNoSuchCombination <- renderPrint({
          if(length(input$mergeAvailRespCheckboxes) == 0 || any(tolower(substr(x = input$mergeAvailRespCheckboxes, start = 2, stop = 4)) %in% file.abbrev == FALSE)) {
            return(HTML(""))
          } else if(length(input$mergeAvailRespCheckboxes) == 1 && all(tolower(substr(x = input$mergeAvailRespCheckboxes, start = 2, stop = 4)) %in% file.abbrev) == TRUE) {
            if(any(unlist(lapply(X = merge.combinations[[merge.study.and.cycle[[1]]]], FUN = function(i) {
              identical(sort(tolower(substr(x = input$mergeAvailRespCheckboxes, start = 2, stop = 4))), sort(i[1:(length(i) - 1)]))
            }))) == TRUE) {
              HTML("")
            } else {
              HTML("The selected file type cannot be merged on its own, but in combination with other file types. Either add another file type or reconsider the selection.")
            }
          } else if(length(input$mergeAvailRespCheckboxes) > 1) {
            if(any(unlist(lapply(X = merge.combinations[[merge.study.and.cycle[[1]]]], FUN = function(i) {
              identical(sort(tolower(substr(x = input$mergeAvailRespCheckboxes, start = 2, stop = 4))), sort(i[1:(length(i) - 1)]))
            }))) == TRUE) {
              HTML("")
            } else {
              HTML("Merging variables from the the selected file types combination is not supported. Reconsider the file types selection.")
            }
          }
        })
        observe({
          if(length(input$mergeAvailRespCheckboxes) > 0) {
            if(all(unlist(lapply(X = merge.combinations[[merge.study.and.cycle[[1]]]], FUN = function(i) {
              identical(sort(tolower(substr(x = input$mergeAvailRespCheckboxes, start = 2, stop = 4))), sort(i[1:(length(i) - 1)]))
            })) == FALSE)) {
              hide("mergeAvailVarsText")
              hide("mergeAllAvailableVars")
              hide("mergeArrowSelVarsRight")
              hide("mergeDblArrowSelVarsRight")
              hide("mergeArrowSelVarsLeft")
              hide("mergeDblArrowSelVarsLeft")
              hide("mergeVarsSelection")
            } else {
              show("mergeAvailVarsText")
              show("mergeAllAvailableVars")
              show("mergeArrowSelVarsRight")
              show("mergeDblArrowSelVarsRight")
              show("mergeArrowSelVarsLeft")
              show("mergeDblArrowSelVarsLeft")
              show("mergeVarsSelection")
            }
          }
        })
        merge.initial.available.vars <- data.table(Variables = as.character(), Variable_Labels = as.character(), order_col = as.numeric(), type = as.character())
        merge.initial.selected.vars <- data.table(Variables = as.character(), Variable_Labels = as.character(), order_col = as.numeric(), type = as.character())
        mergeAllVars <- reactiveValues(mergeAvailVars = merge.initial.available.vars, mergeSelectedVars = merge.initial.selected.vars)
        observeEvent(eventExpr = input$mergeAvailRespCheckboxes, {
          mergeAllVars$mergeAvailVars <- unique(x = rbindlist(file.variables[tolower(substr(x = input$mergeAvailRespCheckboxes, start = 2, stop = 4))]), by = "Variables")
          if(is.null(input$mergeAvailRespCheckboxes)) {
            mergeAllVars$mergeAvailVars <- merge.initial.available.vars
            mergeAllVars$mergeSelectedVars <- merge.initial.selected.vars
          }
          observe({
            if(nrow(mergeAllVars$mergeSelectedVars) > 0) {
              mergeAllVars$mergeAvailVars <- mergeAllVars$mergeAvailVars[!mergeAllVars$mergeSelectedVars, on = .(Variables, Variable_Labels, type)]
            }
          })
          if(nrow(mergeAllVars$mergeSelectedVars) > 0) {
            vars.selected.box.unchecked <- setdiff(unique(mergeAllVars$mergeSelectedVars[ , type]), unique(mergeAllVars$mergeAvailVars[ , type]))
          }
          if(exists("vars.selected.box.unchecked") && length(vars.selected.box.unchecked) > 0) {
            mergeAllVars$mergeSelectedVars <- mergeAllVars$mergeSelectedVars[!type %in% vars.selected.box.unchecked, ]
          }
        }, ignoreNULL = FALSE)
        observe({
          if(length(full.file.list.merge$RData.files) == 0 || nrow(mergeAllCountries$mergeSelectionIEA) == 0) {
            mergeAllVars$mergeAvailVars <- merge.initial.available.vars
            mergeAllVars$mergeSelectedVars <- merge.initial.selected.vars
          }
        })
        merge.render.vars.condition <- reactiveVal()
        observe({
          if(nrow(mergeAllCountries$mergeSelectionIEA) == 0 && nrow(mergeAllVars$mergeAvailVars) == 0) {
            merge.render.vars.condition(FALSE)
          } else if(nrow(mergeAllCountries$mergeSelectionIEA) > 0 && nrow(mergeAllVars$mergeAvailVars) > 0 ||
                    nrow(mergeAllCountries$mergeSelectionIEA) > 0 && nrow(mergeAllVars$mergeSelectedVars) > 0) {
            merge.render.vars.condition(TRUE)
          }
        })
        output$mergeArrowSelVarsRight <- renderUI({
          if(length(full.file.list.merge$RData.files) == 0 || merge.render.vars.condition() == FALSE && length(input$mergeAvailRespCheckboxes) == 0) {
            return(NULL)
          } else if(merge.render.vars.condition() == TRUE) {
            if(length(full.file.list.merge$RData.files) == 0 || nrow(mergeAllVars$mergeAvailVars) == 0 && length(input$mergeAvailRespCheckboxes) == 0) {
              return(NULL)
            } else {
              actionButton(inputId = "mergeArrowSelVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
            }
          }
        })
        output$mergeDblArrowSelVarsRight <- renderUI({
          if(length(full.file.list.merge$RData.files) == 0 || merge.render.vars.condition() == FALSE && length(input$mergeAvailRespCheckboxes) == 0) {
            return(NULL)
          } else if(merge.render.vars.condition() == TRUE) {
            if(length(full.file.list.merge$RData.files) == 0 || nrow(mergeAllVars$mergeAvailVars) == 0 && length(input$mergeAvailRespCheckboxes) == 0) {
              return(NULL)
            } else {
              actionButton(inputId = "mergeDblArrowSelVarsRight", label = NULL, icon("angle-double-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
            }
          }
        })
        output$mergeArrowSelVarsLeft <- renderUI({
          if(length(full.file.list.merge$RData.files) == 0 || merge.render.vars.condition() == FALSE && length(input$mergeAvailRespCheckboxes) == 0) {
            return(NULL)
          } else if(merge.render.vars.condition() == TRUE) {
            if(length(full.file.list.merge$RData.files) == 0 || nrow(mergeAllVars$mergeAvailVars) == 0 && length(input$mergeAvailRespCheckboxes) == 0) {
              return(NULL)
            } else {
              actionButton(inputId = "mergeArrowSelVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
            }
          }
        })
        output$mergeDblArrowSelVarsLeft <- renderUI({
          if(length(full.file.list.merge$RData.files) == 0 || merge.render.vars.condition() == FALSE && length(input$mergeAvailRespCheckboxes) == 0) {
            return(NULL)
          } else if(merge.render.vars.condition() == TRUE) {
            if(length(full.file.list.merge$RData.files) == 0 || nrow(mergeAllVars$mergeAvailVars) == 0 && length(input$mergeAvailRespCheckboxes) == 0) {
              return(NULL)
            } else {
              actionButton(inputId = "mergeDblArrowSelVarsLeft", label = NULL, icon("angle-double-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
            }
          }
        })
        output$mergeAvailVarsText <- renderText({
          if(length(full.file.list.merge$RData.files) == 0 | nrow(mergeAllCountries$mergeSelectionIEA) == 0 & nrow(mergeAllVars$mergeAvailVars) == 0) {
            return(NULL)
          } else if(length(full.file.list.merge$RData.files) > 0 && nrow(mergeAllCountries$mergeSelectionIEA) > 0 && nrow(mergeAllVars$mergeAvailVars) > 0 ||
                    nrow(mergeAllCountries$mergeSelectionIEA) > 0 && nrow(mergeAllVars$mergeSelectedVars) > 0) {
            HTML('Use the panels below to select variables from the different respondents selected from above.<br/>Note: Design variables (PVs, weights, weight adjustment variables, etc.) will not be displayed, but will be added to the merged file automatically.')
          }
        })
        output$mergeAllAvailableVars <- renderDT({
          if(length(full.file.list.merge$RData.files) == 0 || merge.render.vars.condition() == FALSE && length(input$mergeAvailRespCheckboxes) == 0) {
            return(NULL)
          } else if(length(full.file.list.merge$RData.files) > 0 && merge.render.vars.condition() == TRUE) {
            if(nrow(mergeAllVars$mergeAvailVars) == 0 && length(input$mergeAvailRespCheckboxes) == 0) {
              return(NULL)
            } else {
              all.design.ID.IT.cols <- c(grep(pattern = "^ID|^IT[[:alpha:]]+[[:alnum:]]+|FAC|ADJ|^IL|TCER", x = mergeAllVars$mergeAvailVars[ , Variables], ignore.case = TRUE, value = TRUE), grep(pattern = paste(unique(unlist(x = studies.all.design.variables, recursive = TRUE, use.names = FALSE)), collapse = "|"), x = mergeAllVars$mergeAvailVars[ , Variables], ignore.case = TRUE, value = TRUE))
              mergeAllVars$mergeAvailVars <- mergeAllVars$mergeAvailVars[!Variables %in% all.design.ID.IT.cols, ]
              setkeyv(x = mergeAllVars$mergeAvailVars, cols = c("type", "order_col"))
            }
          }
        },
        caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Available variables"),
        rownames = FALSE,
        filter = "top",
        colnames = c("Names", "Labels", "sortingcol", "Respondent"),
        class = "cell-border stripe;compact cell-border;",
        extensions = list("Scroller"),
        options = list(
          language = list(zeroRecords = "All variables have been selected"),
          initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
          dom = "ti",
          searchHighlight = FALSE,
          searchDelay = 100,
          ordering = FALSE,
          pageLength = 5000,
          autoWidth = TRUE,
          columnDefs = list(list(width = '75px', targets = 0), list(width = '75px', targets = 3), list(visible = FALSE, targets = 2), list(className = 'dt-center', targets = 3)),
          rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
          deferRender = TRUE, scrollY = 400, scroller = TRUE
        ))
        output$mergeVarsSelection <- renderDT({
          if(length(full.file.list.merge$RData.files) == 0 || merge.render.vars.condition() == FALSE && length(input$mergeAvailRespCheckboxes) == 0) {
            return(NULL)
          } else if(length(full.file.list.merge$RData.files) > 0 && merge.render.vars.condition() == TRUE) {
            if(nrow(mergeAllVars$mergeAvailVars) == 0 && length(input$mergeAvailRespCheckboxes) == 0) {
              return(NULL)
            } else {
              setkeyv(x = mergeAllVars$mergeSelectedVars, cols = c("type", "order_col"))
            }
          }
        },
        caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Selected variables"),
        rownames = FALSE,
        filter = "top",
        colnames = c("Names", "Labels", "sortingcol", "Respondent"),
        class = "cell-border stripe;compact cell-border;",
        extensions = list("Scroller"),
        options = list(
          language = list(zeroRecords = "No variables have been selected"),
          initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
          dom = "ti",
          searchHighlight = FALSE,
          searchDelay = 100,
          ordering = FALSE,
          pageLength = 5000,
          autoWidth = TRUE,
          columnDefs = list(list(width = '75px', targets = 0), list(width = '75px', targets = 3), list(visible = FALSE, targets = 2), list(className = 'dt-center', targets = 3)),
          rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
          deferRender = TRUE, scrollY = 400, scroller = TRUE
        ))
        observeEvent(input$mergeArrowSelVarsRight, {
          req(input$mergeAllAvailableVars_rows_selected)
          mergeAllVars$mergeSelectedVars <- rbind(isolate(mergeAllVars$mergeSelectedVars), mergeAllVars$mergeAvailVars[input$mergeAllAvailableVars_rows_selected, , drop = FALSE])
          mergeAllVars$mergeSelectedVars <- mergeAllVars$mergeSelectedVars[complete.cases(mergeAllVars$mergeSelectedVars[ , "Variables"]), , drop = FALSE]
          mergeAllVars$mergeAvailVars <- isolate(mergeAllVars$mergeAvailVars[-input$mergeAllAvailableVars_rows_selected, , drop = FALSE])
        })
        observeEvent(input$mergeDblArrowSelVarsRight, {
          mergeAllVars$mergeSelectedVars <- rbind(mergeAllVars$mergeSelectedVars, isolate(mergeAllVars$mergeAvailVars))
          mergeAllVars$mergeAvailVars <- merge.initial.available.vars
        })
        observeEvent(input$mergeArrowSelVarsLeft, {
          req(input$mergeVarsSelection_rows_selected)
          mergeAllVars$mergeAvailVars <- rbind(isolate(mergeAllVars$mergeAvailVars),        mergeAllVars$mergeSelectedVars[input$mergeVarsSelection_rows_selected, , drop = FALSE])
          mergeAllVars$mergeAvailVars <- mergeAllVars$mergeAvailVars[complete.cases(mergeAllVars$mergeAvailVars[ , "Variables"]), , drop = FALSE]
          mergeAllVars$mergeSelectedVars <- isolate(mergeAllVars$mergeSelectedVars[-input$mergeVarsSelection_rows_selected, , drop = FALSE])
        })
        observeEvent(input$mergeDblArrowSelVarsLeft, {
          mergeAllVars$mergeAvailVars <- rbind(mergeAllVars$mergeAvailVars, isolate(mergeAllVars$mergeSelectedVars))
          mergeAllVars$mergeSelectedVars <- merge.initial.selected.vars
        })
        shinyFileSave(input, "mergeChooseOutFile", filetype = list(RData = "RData"), roots = available.volumes, updateFreq = 100000)
        observe({
          if(length(full.file.list.merge$RData.files) > 0 && nrow(mergeAllVars$mergeSelectedVars) > 0) {
            show("mergeChooseOutFile")
          } else if(length(full.file.list.merge$RData.files) == 0 || nrow(mergeAllVars$mergeSelectedVars) == 0) {
            hide("mergeChooseOutFile")
          }
        })
        observe({
          if(length(parseSavePath(available.volumes, input$mergeChooseSrcDir)$datapath) > 0 && length(parseSavePath(available.volumes, input$mergeChooseOutFile)$datapath) > 0 && identical(as.character(parseSavePath(available.volumes, input$mergeChooseSrcDir)$datapath), dirname(parseSavePath(available.volumes, input$mergeChooseOutFile)$datapath))) {
            hide("mergeExecBtnHead")
            hide("execMergeData")
            showNotification(ui = HTML("The merged file is to be saved<br/>in the same folder where the source<br/>files are located.<b><br/><br/>Please choose a different folder<br/> to save the merged file.<br/>Until then further operations will not<br/>be permitted.</b>"), type = "error", duration = NULL)
          } else {
            show("mergeExecBtnHead")
            show("execMergeData")
          }
          if(is.null(input$mergeAvailRespCheckboxes) ||
             length(parseSavePath(available.volumes, input$mergeChooseOutFile)$datapath) == 0 ||
             length(full.file.list.merge$RData.files) == 0 || nrow(mergeAllVars$mergeSelectedVars) == 0) {
            hide("saveMergeSyntax")
            hide("copyMergeSyntax")
          } else {
            show("saveMergeSyntax")
            show("copyMergeSyntax")
          }
        })
        syntaxMergeData <- reactive({
          if(exists("mergeAllVars") && nrow(mergeAllVars$mergeSelectedVars) > 0) {
            tmp.vars <- split(x = mergeAllVars$mergeSelectedVars[ , c("Variables", "type")], by = "type")
            resp.w.all.vars.selected <- setdiff(unique(mergeAllVars$mergeSelectedVars[ , type]), unique(mergeAllVars$mergeAvailVars[ , type]))
            other.vars.selected <- setdiff(unique(mergeAllVars$mergeSelectedVars[ , type]), resp.w.all.vars.selected)
            merge.all.selected <- if(length(resp.w.all.vars.selected) > 0) {
              paste(paste0(tolower(resp.w.all.vars.selected), " = NULL"), sep = '', collapse = ", ")
            } else {
              NULL
            }
            merge.user.selected <- if(length(other.vars.selected) > 0) {
              paste(sapply(tmp.vars[other.vars.selected], function(i) {
                if(length(i[ , Variables]) > 1) {
                  paste0(tolower(i[ , type[[1]]]), ' = c("', paste(i[ , Variables], collapse = '", "'), '")')
                } else if(length(i[ , Variables]) == 1) {
                  paste0(tolower(i[ , type[[1]]]), ' = "', paste(i[ , Variables], collapse = '", "'), '"')
                }
              }), collapse = ', ')
            } else {
              NULL
            }
            merge.sel.vars <- paste0('file.types = list(', paste(c(merge.all.selected, merge.user.selected), collapse = ', '))
          }
          if(length(parseSavePath(available.volumes, input$mergeChooseOutFile)$datapath) > 0 && exists("merge.sel.vars")) {
            full.file.list.merge$mergeSyntax <- paste0(
              'lsa.merge.data(inp.folder = "',
              parseSavePath(available.volumes, input$mergeChooseSrcDir)$datapath,
              '", ',
              merge.sel.vars,
              if(exists("mergeAllCountries") && nrow(mergeAllCountries$mergeSelectionIEA) != 0 && length(mergeAllCountries$mergeSelectionIEA[["ISOs"]]) == 1 && nrow(mergeAllCountries$mergeAvailCntIEAFiles) > 0) {
                paste0('), ISO = "', tolower(mergeAllCountries$mergeSelectionIEA[["ISOs"]]), '"')
              } else if(exists("mergeAllCountries") && nrow(mergeAllCountries$mergeSelectionIEA) != 0 && length(mergeAllCountries$mergeSelectionIEA[["ISOs"]]) > 1 && nrow(mergeAllCountries$mergeAvailCntIEAFiles) > 0) {
                paste0('), ISO = c("', paste(tolower(mergeAllCountries$mergeSelectionIEA[["ISOs"]]), collapse = '", "'), '")')
              } else if(exists("mergeAllCountries") && nrow(mergeAllCountries$mergeSelectionIEA) != 0 && length(mergeAllCountries$mergeSelectionIEA[["ISOs"]]) > 1 && nrow(mergeAllCountries$mergeAvailCntIEAFiles) == 0) {
                ")"
              } else if(exists("mergeAllCountries") && nrow(mergeAllCountries$mergeSelectionIEA) != 0 && length(mergeAllCountries$mergeSelectionIEA[["ISOs"]]) == 1 && nrow(mergeAllCountries$mergeAvailCntIEAFiles) == 0) {
                ")"
              } else if(exists("mergeAllCountries") && nrow(mergeAllCountries$mergeAvailCntIEAFiles) == 0) {
                ""
              },
              paste0(', out.file = "', parseSavePath(available.volumes, input$mergeChooseOutFile)$datapath, '")')
            )
          }
        })
        output$mergeOutPathDisplay <- renderText({parseSavePath(available.volumes, input$mergeChooseOutFile)$datapath})
        output$mergeSyntaxHead <- renderText({
          if(length(full.file.list.merge$RData.files) > 0 && nrow(mergeAllVars$mergeSelectedVars) > 0 && length(parseSavePath(available.volumes, input$mergeChooseOutFile)$datapath) > 0) {
            HTML("Syntax")
          } else {
            return(NULL)
          }
        })
        output$copyMergeSyntax <- renderUI({
          rclipButton(inputId = "copyMergeSyntax", label = "Copy syntax", clipText = syntaxMergeData(), icon = icon("copy"), style = "color: #ffffff; background-color: #000000; border-radius: 5px; font-size: 80%; margin-bottom: 1px; padding: 1px; width: 85px; margin-top: 1px")
        })
        output$mergeSyntax <- renderText({
          if(length(full.file.list.merge$RData.files) > 0 &merge.render.vars.condition() == TRUE) {
            syntaxMergeData()
          } else {
            return(NULL)
          }
        })
        observe.syntax.save.button <- eval(parse(text = string.observe.syntax.save.button))
        observe.syntax.save.button(input = input, session = session, syntax.ID = "saveMergeSyntax", syntax.object = "syntaxMergeData()", volumes = available.volumes)
        output$mergeExecBtnHead <- renderText({
          if(length(full.file.list.merge$RData.files) > 0 & nrow(mergeAllVars$mergeSelectedVars) > 0 && length(parseSavePath(available.volumes, input$mergeChooseOutFile)$datapath) > 0) {
            HTML("Press the button below to execute the syntax")
          } else {
            return(NULL)
          }
        })
        output$execMergeData <- renderUI({
          if(length(full.file.list.merge$RData.files) > 0 && nrow(mergeAllVars$mergeSelectedVars) > 0 && length(parseSavePath(available.volumes, input$mergeChooseOutFile)$datapath) > 0) {
            actionButton(inputId = "execMergeData", label = "Execute syntax", icon = icon("cogs"), style = "color: #ffffff; background-color: #000000; border-radius: 10px")
          } else {
            return(NULL)
          }
        })
        observe({
          if(nrow(mergeAllVars$mergeSelectedVars) == 0) {
            hide("consoleMergeData")
          } else {
            show("consoleMergeData")
          }
        })
      }
    }
  }
})
observeEvent(input$execMergeData, {
  showNotification(ui = HTML("<br/>   Execution started.   <br/><br/>"), type = "message")
  withCallingHandlers({html("consoleMergeData", "")
    expr = eval(parse(text = full.file.list.merge$mergeSyntax))
  },
  message = function(i) {
    shinyjs::html(id = "consoleMergeData", html = i$message, add = TRUE)
  },
  warning = function(w) {
    shinyjs::html(id = "consoleMergeData", html = paste0("Warning: ", w$message, "\n"), add = TRUE)
  })
  session$sendCustomMessage(type = "scrollCallback", 1)
  showNotification(ui = HTML("<br/>   All operations complete!   <br/><br/>"), type = "message", duration = NULL)
}, ignoreInit = TRUE)
output$h1VarProperties <- renderText("Variable dictionaries")
output$varPropsIntro <- renderText({HTML("Select large-scale assessment .RData file to load and display its variables.")})
file.var.properties <- reactiveValues(loaded = NULL, is.lsa.data = NULL, resp.type = NULL, study = NULL, cycle = NULL, var.props.syntax = NULL)
hide("varPropsSaveOutput")
hide("varPropsOpenOutput")
hide("varPropsChooseOutFile")
hide("saveVarPropsSyntax")
show("copyVarPropsSyntax")
shinyFileChoose(input, "varPropsChooseSrcFile", roots = available.volumes, filetype = list(RData = "RData"))
observeEvent(eventExpr = input$varPropsChooseSrcFile, {
  file.var.properties$loaded <- NULL
  file.var.properties$is.lsa.data <- FALSE
  file.var.properties$resp.type <- NULL
  file.var.properties$study <- NULL
  file.var.properties$cycle <- NULL
  if(length(parseFilePaths(available.volumes, input$varPropsChooseSrcFile)$datapath) > 0 && file.size(parseFilePaths(available.volumes, input$varPropsChooseSrcFile)$datapath) > 104857600) {
    showNotification(ui = HTML('The size of the selected<br/>file is rather large. Please<br/>wait until the file is loaded.'), type = "message")
  }
  if(length(parseFilePaths(available.volumes, input$varPropsChooseSrcFile)$datapath) > 0) {
    file.var.properties$loaded <- get(load(parseFilePaths(available.volumes, input$varPropsChooseSrcFile)$datapath))
    if("lsa.data" %in% class(file.var.properties$loaded)) {
      file.var.properties$is.lsa.data <- TRUE
    } else {
      file.var.properties$is.lsa.data <- FALSE
    }
    file.var.properties$study <- attr(x = file.var.properties$loaded, which = "study")
    file.var.properties$cycle <- attr(x = file.var.properties$loaded, which = "cycle")
    file.var.properties$resp.type <- attr(x = file.var.properties$loaded, which = "file.type")
    file.var.properties$loaded <- data.table(Variables = names(file.var.properties$loaded), Variable_Labels = sapply(X = file.var.properties$loaded, FUN = function(j) {
      if(is.null(attr(x = j, which = "variable.label"))) {
        return(NA_character_)
      } else {
        attr(x = j, which = "variable.label")
      }
    }),
    order_col = 1:ncol(file.var.properties$loaded))
  }
  output$varPropsSrcPathDisplay <- renderText({parseFilePaths(available.volumes, input$varPropsChooseSrcFile)$datapath})
}, ignoreInit = TRUE)
observe({
  if(!is.null(file.var.properties$loaded) && file.var.properties$is.lsa.data == FALSE) {
    output$varPropsStudyName <- renderText({NULL})
    output$varPropsStudyCycle <- renderText({NULL})
    output$varPropsRespHead <- renderText({NULL})
    output$varPropsRespAvailable <- renderText({NULL})
    showNotification(ui = HTML('The data is not of class "lsa.data".<br/>Please check the file content.'), type = "error")
  } else if (!is.null(file.var.properties$loaded) && file.var.properties$is.lsa.data == TRUE) {
    output$varPropsStudyName <- renderText({
      if(!is.null(file.var.properties$loaded)) {
        HTML(paste0('Study: ', file.var.properties$study))
      } else {
        return(NULL)
      }
    })
    output$varPropsStudyCycle <- renderText({
      if(!is.null(file.var.properties$loaded)) {
        HTML(paste0('Cycle: ', file.var.properties$cycle))
      } else {
        return(NULL)
      }
    })
    output$varPropsRespHead <- renderText({
      if(!is.null(file.var.properties$loaded)) {
        HTML('<u>The file contains data from the following respondents:</u>')
      } else {
        return(NULL)
      }
    })
    output$varPropsRespAvailable <- renderText({
      if(is.null(file.var.properties$resp.type)) {
        return(NULL)
      } else {
        HTML(file.merged.respondents[[file.var.properties$resp.type]])
      }
    })
    output$varPropsExplText <- renderText({
      if(is.null(file.var.properties$resp.type)) {
        return(NULL)
      } else {
        HTML('Use the panels below to select the variables for which the dictionaries shall be produced.')
      }
    })
    var.props.initial.available.vars <- data.table(Variables = as.character(), Variable_Labels = as.character(), order_col = as.numeric())
    var.props.initial.selected.vars <- data.table(Variables = as.character(), Variable_Labels = as.character(), order_col = as.numeric())
    varPropsAllVars <- reactiveValues(varPropsAvailVars = var.props.initial.available.vars, varPropsSelectedVars = var.props.initial.selected.vars)
    observe({
      if(!is.null(file.var.properties$loaded)) {
        varPropsAllVars$varPropsAvailVars <- file.var.properties$loaded
      }
    })
    output$varPropsArrowSelVarsRight <- renderUI({
      if(is.null(file.var.properties$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "varPropsArrowSelVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$varPropsDblArrowSelVarsRight <- renderUI({
      if(is.null(file.var.properties$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "varPropsDblArrowSelVarsRight", label = NULL, icon("angle-double-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$varPropsArrowSelVarsLeft <- renderUI({
      if(is.null(file.var.properties$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "varPropsArrowSelVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$varPropsDblArrowSelVarsLeft <- renderUI({
      if(is.null(file.var.properties$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "varPropsDblArrowSelVarsLeft", label = NULL, icon("angle-double-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$varPropsAllAvailableVars <- renderDT({
      if(is.null(file.var.properties$resp.type)) {
        return(NULL)
      } else {
        setkeyv(x = varPropsAllVars$varPropsAvailVars, cols = "order_col")
      }
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Available variables"),
    rownames = FALSE,
    filter = "top",
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "All variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 400, scroller = TRUE
    ))
    output$varPropsVarsSelection <- renderDT({
      if(is.null(file.var.properties$resp.type)) {
        varPropsAllVars$varPropsSelectedVars <- var.props.initial.selected.vars
        return(NULL)
      } else {
        setkeyv(x = varPropsAllVars$varPropsSelectedVars, cols = "order_col")
      }
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Selected variables"),
    rownames = FALSE,
    filter = "top",
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 400, scroller = TRUE
    ))
    observeEvent(input$varPropsArrowSelVarsRight, {
      req(input$varPropsAllAvailableVars_rows_selected)
      varPropsAllVars$varPropsSelectedVars <- rbind(isolate(varPropsAllVars$varPropsSelectedVars), varPropsAllVars$varPropsAvailVars[input$varPropsAllAvailableVars_rows_selected, , drop = FALSE])
      varPropsAllVars$varPropsSelectedVars <- varPropsAllVars$varPropsSelectedVars[complete.cases(varPropsAllVars$varPropsSelectedVars[ , "Variables"]), , drop = FALSE]
      varPropsAllVars$varPropsAvailVars <- isolate(varPropsAllVars$varPropsAvailVars[-input$varPropsAllAvailableVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$varPropsDblArrowSelVarsRight, {
      varPropsAllVars$varPropsSelectedVars <- rbind(varPropsAllVars$varPropsSelectedVars, isolate(varPropsAllVars$varPropsAvailVars))
      varPropsAllVars$varPropsAvailVars <- var.props.initial.available.vars
    })
    observeEvent(input$varPropsArrowSelVarsLeft, {
      req(input$varPropsVarsSelection_rows_selected)
      varPropsAllVars$varPropsAvailVars <- rbind(isolate(varPropsAllVars$varPropsAvailVars),        varPropsAllVars$varPropsSelectedVars[input$varPropsVarsSelection_rows_selected, , drop = FALSE])
      varPropsAllVars$varPropsAvailVars <- varPropsAllVars$varPropsAvailVars[complete.cases(varPropsAllVars$varPropsAvailVars[ , "Variables"]), , drop = FALSE]
      varPropsAllVars$varPropsSelectedVars <- isolate(varPropsAllVars$varPropsSelectedVars[-input$varPropsVarsSelection_rows_selected, , drop = FALSE])
    })
    observeEvent(input$varPropsDblArrowSelVarsLeft, {
      varPropsAllVars$varPropsAvailVars <- rbind(varPropsAllVars$varPropsAvailVars, isolate(varPropsAllVars$varPropsSelectedVars))
      varPropsAllVars$varPropsSelectedVars <- var.props.initial.selected.vars
    })
    observe({
      if(nrow(varPropsAllVars$varPropsAvailVars) == 0) {
        hide("varPropsExplText")
      } else if(nrow(varPropsAllVars$varPropsAvailVars) > 0) {
        show("varPropsExplText")
      }
      if(nrow(varPropsAllVars$varPropsSelectedVars) > 0) {
        show("varPropsSaveOutput")
      } else if(nrow(varPropsAllVars$varPropsSelectedVars) == 0) {
        updateCheckboxInput(session, inputId = "varPropsSaveOutput", value = FALSE)
        hide("varPropsSaveOutput")
        hide("consoleVarProps")
      }
      if(input$varPropsSaveOutput == 1 & length(parseSavePath(available.volumes, input$varPropsChooseOutFile)$datapath) == 1) {
        show("varPropsOpenOutput")
      } else if(input$varPropsSaveOutput == 0) {
        updateCheckboxInput(session, inputId = "varPropsOpenOutput", value = TRUE)
        hide("varPropsOpenOutput")
      }
      if(nrow(varPropsAllVars$varPropsSelectedVars) > 0 && input$varPropsSaveOutput == 1) {
        show("varPropsChooseOutFile")
      } else if(nrow(varPropsAllVars$varPropsSelectedVars) == 0 || input$varPropsSaveOutput == 0) {
        hide("varPropsChooseOutFile")
      }
      if(input$varPropsSaveOutput == 1 & length(parseSavePath(available.volumes, input$varPropsChooseOutFile)$datapath) == 1 & nrow(varPropsAllVars$varPropsSelectedVars) > 0) {
        show("varPropsSyntaxHead")
        show("varPropsSyntax")
        show("varPropsExecBtnHead")
        show("execVarProps")
      } else if(input$varPropsSaveOutput == 1 & length(parseSavePath(available.volumes, input$varPropsChooseOutFile)$datapath) == 0 & nrow(varPropsAllVars$varPropsSelectedVars) == 0) {
        hide("varPropsSyntaxHead")
        hide("varPropsSyntax")
        hide("varPropsExecBtnHead")
        hide("execVarProps")
      }
      if(
        nrow(varPropsAllVars$varPropsAvailVars) == 0 && nrow(varPropsAllVars$varPropsSelectedVars) == 0 ||
        nrow(varPropsAllVars$varPropsAvailVars) > 0 && nrow(varPropsAllVars$varPropsSelectedVars) == 0 ||
        input$varPropsSaveOutput == TRUE && length(parseSavePath(available.volumes, input$varPropsChooseOutFile)$datapath) == 0
      ) {
        hide("saveVarPropsSyntax")
        hide("copyVarPropsSyntax")
        hide("varPropsSyntaxHead")
        hide("varPropsSyntax")
        hide("varPropsExecBtnHead")
        hide("execVarProps")
      } else if(
        nrow(varPropsAllVars$varPropsAvailVars) == 0 && nrow(varPropsAllVars$varPropsSelectedVars) > 0 ||
        nrow(varPropsAllVars$varPropsSelectedVars) > 0 ||
        input$varPropsSaveOutput == TRUE && length(parseSavePath(available.volumes, input$varPropsChooseOutFile)$datapath) > 0
      ) {
        show("saveVarPropsSyntax")
        show("copyVarPropsSyntax")
        show("varPropsSyntaxHead")
        show("varPropsSyntax")
        show("varPropsExecBtnHead")
        show("execVarProps")
      }
    })
    observeEvent(input$execVarProps, {
      show("consoleVarProps")
    })
    shinyFileSave(input, "varPropsChooseOutFile", filetype = list(txt = "txt"), roots = available.volumes, updateFreq = 100000)
    syntaxVarProps <- reactive({
      file.var.properties$var.props.syntax <- paste0('lsa.vars.dict(data.file = "', parseFilePaths(available.volumes, input$varPropsChooseSrcFile)$datapath,
                                                     if(nrow(varPropsAllVars$varPropsAvailVars) == 0) {
                                                       '"'
                                                     } else {
                                                       if(nrow(varPropsAllVars$varPropsSelectedVars) > 1) {
                                                         paste0('", var.names = c("', paste(varPropsAllVars$varPropsSelectedVars[ , Variables], collapse = '", "'), '")')
                                                       } else {
                                                         paste0('", var.names = "', varPropsAllVars$varPropsSelectedVars[ , Variables], '"')
                                                       }
                                                     },
                                                     if(input$varPropsSaveOutput == FALSE & length(parseSavePath(available.volumes, input$varPropsChooseOutFile)$datapath) == 0) {
                                                       NULL
                                                     } else if(input$varPropsSaveOutput == TRUE && length(parseSavePath(available.volumes, input$varPropsChooseOutFile)$datapath) > 0) {
                                                       paste0(', out.file = "', parseSavePath(available.volumes, input$varPropsChooseOutFile)$datapath, '"')
                                                     },
                                                     if(input$varPropsOpenOutput == 1) {
                                                       paste0(', open.out.file = TRUE)')
                                                     } else {
                                                       ')'
                                                     }
      )
    })
    output$varPropsSyntaxHead <- renderText({
      if(nrow(varPropsAllVars$varPropsSelectedVars) > 0) {
        HTML("Syntax")
      } else {
        return(NULL)
      }
    })
    observe.syntax.save.button <- eval(parse(text = string.observe.syntax.save.button))
    observe.syntax.save.button(input = input, session = session, syntax.ID = "saveVarPropsSyntax", syntax.object = "syntaxVarProps()", volumes = available.volumes)
    output$copyVarPropsSyntax <- renderUI({
      rclipButton(inputId = "copyVarPropsSyntax", label = "Copy syntax", clipText = syntaxVarProps(), icon = icon("copy"), style = "color: #ffffff; background-color: #000000; border-radius: 5px; font-size: 80%; margin-bottom: 1px; padding: 1px; width: 85px; margin-top: 1px")
    })
    output$varPropsSyntax <- renderText({
      if(nrow(varPropsAllVars$varPropsSelectedVars) > 0) {
        syntaxVarProps()
      } else {
        return(NULL)
      }
    })
    output$varPropsExecBtnHead <- renderText({
      if(nrow(varPropsAllVars$varPropsSelectedVars) > 0) {
        HTML("Press the button below to execute the syntax")
      } else {
        return(NULL)
      }
    })
    output$execVarProps <- renderUI({
      if(nrow(varPropsAllVars$varPropsSelectedVars) > 0) {
        actionButton(inputId = "execVarProps", label = "Execute syntax", icon = icon("cogs"), style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      } else {
        return(NULL)
      }
    })
  }
})
observeEvent(input$execVarProps, {
  showNotification(ui = HTML("<br/>   Execution started.   <br/><br/>"), type = "message")
  withCallingHandlers({html("consoleVarProps", "")
    expr = eval(parse(text = file.var.properties$var.props.syntax))
  },
  message = function(i) {
    shinyjs::html(id = "consoleVarProps", html = i$message, add = TRUE)
  },
  warning = function(w) {
    shinyjs::html(id = "consoleVarProps", html = paste0("Warning: ", w$message, "\n"), add = TRUE)
  })
  session$sendCustomMessage(type = "scrollCallback", 1)
  showNotification(ui = HTML("<br/>   All operations complete!   <br/><br/>"), type = "message", duration = NULL)
}, ignoreInit = TRUE)
output$h1DataDiag <- renderText("Data diagnostics")
hide("dataDiagChooseOutFile")
hide("saveDataDiagSyntax")
hide("copyDataDiagSyntax")
output$dataDiagIntro <- renderText({HTML("Select large-scale assessment .RData file to load.")})
file.data.diag <- reactiveValues(loaded = NULL, is.lsa.data = NULL, resp.type = NULL, study = NULL, cycle = NULL, country.ID = NULL, default.weight = NULL, data.diag.syntax = NULL)
shinyFileChoose(input, "dataDiagChooseSrcFile", roots = available.volumes, filetype = list(RData = "RData"))
observeEvent(eventExpr = input$dataDiagChooseSrcFile, {
  file.data.diag$loaded <- NULL
  file.data.diag$study <- NULL
  file.data.diag$cycle <- NULL
  file.data.diag$resp.type <- NULL
  file.data.diag$default.weight <- NULL
  if(length(parseFilePaths(available.volumes, input$dataDiagChooseSrcFile)$datapath) > 0 && file.size(parseFilePaths(available.volumes, input$dataDiagChooseSrcFile)$datapath) > 104857600) {
    showNotification(ui = HTML('The size of the selected<br/>file is rather large. Please<br/>wait until the file is loaded.'), type = "message")
  }
  if(length(parseFilePaths(available.volumes, input$dataDiagChooseSrcFile)$datapath) > 0) {
    file.data.diag$loaded <- get(load(parseFilePaths(available.volumes, input$dataDiagChooseSrcFile)$datapath))
    if("lsa.data" %in% class(file.data.diag$loaded)) {
      file.data.diag$is.lsa.data <- TRUE
    } else {
      file.data.diag$is.lsa.data <- FALSE
    }
    file.data.diag$study <- attr(x = file.data.diag$loaded, which = "study")
    file.data.diag$cycle <- attr(x = file.data.diag$loaded, which = "cycle")
    file.data.diag$resp.type <- attr(x = file.data.diag$loaded, which = "file.type")
    file.data.diag$loaded <- data.table(Variables = names(file.data.diag$loaded), Variable_Labels = sapply(X = file.data.diag$loaded, FUN = function(j) {
      if(is.null(attr(x = j, which = "variable.label"))) {
        return(NA_character_)
      } else {
        attr(x = j, which = "variable.label")
      }
    }),
    order_col = 1:ncol(file.data.diag$loaded))
    if(!is.null(file.data.diag$study)) {
      file.data.diag$default.weight <- define.default.weight(study = file.data.diag$study, loaded.names.and.labels = file.data.diag$loaded, respondent.type = file.data.diag$resp.type)
    }
    file.data.diag$country.ID <- NULL
    if("IDCNTRY" %in% file.data.diag$loaded[ , Variables]) {
      file.data.diag$country.ID <- "IDCNTRY"
    } else {
      file.data.diag$country.ID <- "CNT"
    }
  }
  output$dataDiagSrcPathDisplay <- renderText({parseFilePaths(available.volumes, input$dataDiagChooseSrcFile)$datapath})
}, ignoreInit = TRUE)
observe({
  if(!is.null(file.data.diag$loaded) && file.data.diag$is.lsa.data == FALSE) {
    showNotification(ui = HTML('The data is not of class "lsa.data".<br/>Please check the file content.'), type = "error")
  } else if (!is.null(file.data.diag$loaded) && file.data.diag$is.lsa.data == TRUE) {
    output$dataDiagStudyName <- renderText({
      if(is.null(file.data.diag$resp.type)) {
        return(NULL)
      } else {
        HTML(paste0('Study: ', file.data.diag$study))
      }
    })
    output$dataDiagStudyCycle <- renderText({
      if(is.null(file.data.diag$resp.type)) {
        return(NULL)
      } else {
        HTML(paste0('Cycle: ', file.data.diag$cycle))
      }
    })
    output$dataDiagRespHead <- renderText({
      if(is.null(file.data.diag$resp.type)) {
        return(NULL)
      } else {
        HTML('<u>The file contains data from the following respondents:</u>')
      }
    })
    output$dataDiagRespAvailable <- renderText({
      if(is.null(file.data.diag$resp.type)) {
        return(NULL)
      } else {
        HTML(file.merged.respondents[[file.data.diag$resp.type]])
      }
    })
    output$dataDiagNoWeights <- renderText({
      if(!is.null(file.data.diag$loaded) && is.null(file.data.diag$default.weight) || !is.null(file.data.diag$loaded) && length(file.data.diag$default.weight) == 0) {
        HTML('Error: The loaded file does not contain any recognizable default weight variable. Such files cannot be analyzed on their own and must be merged with other respondents in advance.')
      } else {
        return(NULL)
      }
    })
    output$dataDiagVariablesExplText <- renderText({
      if(is.null(file.data.diag$resp.type)) {
        return(NULL)
      } else {
        HTML('Use the panels below to select the variables to produce data diagnostic tables for variables within groups specified by splitting variables.')
      }
    })
    data.diag.initial.available.vars <- file.data.diag$loaded[!Variables %in% c(file.data.diag$default.weight, file.data.diag$country.ID), ]
    data.diag.initial.selected.split.vars <- file.data.diag$loaded[Variables == file.data.diag$country.ID, ]
    data.diag.initial.selected.anal.vars <- data.table(Variables = as.character(), Variable_Labels = as.character(), order_col = as.numeric())
    data.diag.initial.selected.weight.var <- file.data.diag$loaded[Variables %in% file.data.diag$default.weight, ]
    dataDiagAllVars <- reactiveValues(dataDiagAvailVars = data.diag.initial.available.vars, dataDiagSelectedSplitVars = data.diag.initial.selected.split.vars, dataDiagSelectedAnalVars = data.diag.initial.selected.anal.vars, dataDiagSelectedWeightVar = data.diag.initial.selected.weight.var)
    output$dataDiagArrowSelSplitVarsRight <- renderUI({
      if(is.null(file.data.diag$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "dataDiagArrowSelSplitVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$dataDiagArrowSelSplitVarsLeft <- renderUI({
      if(is.null(file.data.diag$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "dataDiagArrowSelSplitVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$dataDiagArrowSelAnalVarsRight <- renderUI({
      if(is.null(file.data.diag$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "dataDiagArrowSelAnalVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$dataDiagArrowSelAnalVarsLeft <- renderUI({
      if(is.null(file.data.diag$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "dataDiagArrowSelAnalVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$dataDiagArrowSelWeightVarsRight <- renderUI({
      if(is.null(file.data.diag$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "dataDiagArrowSelWeightVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$dataDiagArrowSelWeightVarsLeft <- renderUI({
      if(is.null(file.data.diag$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "dataDiagArrowSelWeightVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    observeEvent(input$dataDiagArrowSelSplitVarsRight, {
      req(input$dataDiagAllAvailableVars_rows_selected)
      dataDiagAllVars$dataDiagSelectedSplitVars <- rbind(isolate(dataDiagAllVars$dataDiagSelectedSplitVars), dataDiagAllVars$dataDiagAvailVars[input$dataDiagAllAvailableVars_rows_selected, , drop = FALSE])
      dataDiagAllVars$dataDiagSelectedSplitVars <- dataDiagAllVars$dataDiagSelectedSplitVars[complete.cases(dataDiagAllVars$dataDiagSelectedSplitVars[ , "Variables"]), , drop = FALSE]
      dataDiagAllVars$dataDiagAvailVars <- isolate(dataDiagAllVars$dataDiagAvailVars[-input$dataDiagAllAvailableVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$dataDiagArrowSelSplitVarsLeft, {
      req(input$dataDiagSplitVars_rows_selected)
      dataDiagAllVars$dataDiagAvailVars <- rbind(isolate(dataDiagAllVars$dataDiagAvailVars),        dataDiagAllVars$dataDiagSelectedSplitVars[input$dataDiagSplitVars_rows_selected, , drop = FALSE])
      dataDiagAllVars$dataDiagAvailVars <- dataDiagAllVars$dataDiagAvailVars[complete.cases(dataDiagAllVars$dataDiagAvailVars[ , "Variables"]), , drop = FALSE]
      if(nrow(dataDiagAllVars$dataDiagSelectedSplitVars) > 0) {
        dataDiagAllVars$dataDiagSelectedSplitVars <- isolate(dataDiagAllVars$dataDiagSelectedSplitVars[-input$dataDiagSplitVars_rows_selected, , drop = FALSE])
      }
      if(!file.data.diag$country.ID %in% dataDiagAllVars$dataDiagSelectedSplitVars[ , Variables]) {
        showNotification(ui = HTML("Country ID <b>must always be</b> the first splitting variable!"), type = "error")
      }
      dataDiagAllVars$dataDiagSelectedSplitVars <- rbindlist(l = list(dataDiagAllVars$dataDiagSelectedSplitVars, dataDiagAllVars$dataDiagAvailVars[Variables == file.data.diag$country.ID, ]))
      dataDiagAllVars$dataDiagAvailVars <- dataDiagAllVars$dataDiagAvailVars[Variables != file.data.diag$country.ID, ]
    })
    observeEvent(input$dataDiagArrowSelAnalVarsRight, {
      req(input$dataDiagAllAvailableVars_rows_selected)
      dataDiagAllVars$dataDiagSelectedAnalVars <- rbind(isolate(dataDiagAllVars$dataDiagSelectedAnalVars), dataDiagAllVars$dataDiagAvailVars[input$dataDiagAllAvailableVars_rows_selected, , drop = FALSE])
      dataDiagAllVars$dataDiagSelectedAnalVars <- dataDiagAllVars$dataDiagSelectedAnalVars[complete.cases(dataDiagAllVars$dataDiagSelectedAnalVars[ , "Variables"]), , drop = FALSE]
      dataDiagAllVars$dataDiagAvailVars <- isolate(dataDiagAllVars$dataDiagAvailVars[-input$dataDiagAllAvailableVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$dataDiagArrowSelAnalVarsLeft, {
      req(input$dataDiagAnalVars_rows_selected)
      dataDiagAllVars$dataDiagAvailVars <- rbind(isolate(dataDiagAllVars$dataDiagAvailVars),        dataDiagAllVars$dataDiagSelectedAnalVars[input$dataDiagAnalVars_rows_selected, , drop = FALSE])
      dataDiagAllVars$dataDiagAvailVars <- dataDiagAllVars$dataDiagAvailVars[complete.cases(dataDiagAllVars$dataDiagAvailVars[ , "Variables"]), , drop = FALSE]
      dataDiagAllVars$dataDiagSelectedAnalVars <- isolate(dataDiagAllVars$dataDiagSelectedAnalVars[-input$dataDiagAnalVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$dataDiagArrowSelWeightVarsRight, {
      req(input$dataDiagAllAvailableVars_rows_selected)
      dataDiagAllVars$dataDiagSelectedWeightVar <- rbind(isolate(dataDiagAllVars$dataDiagSelectedWeightVar), dataDiagAllVars$dataDiagAvailVars[input$dataDiagAllAvailableVars_rows_selected, , drop = FALSE])
      dataDiagAllVars$dataDiagSelectedWeightVar <- dataDiagAllVars$dataDiagSelectedWeightVar[complete.cases(dataDiagAllVars$dataDiagSelectedWeightVar[ , "Variables"]), , drop = FALSE]
      dataDiagAllVars$dataDiagAvailVars <- isolate(dataDiagAllVars$dataDiagAvailVars[-input$dataDiagAllAvailableVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$dataDiagArrowSelWeightVarsLeft, {
      req(input$dataDiagWeightVar_rows_selected)
      dataDiagAllVars$dataDiagAvailVars <- rbind(isolate(dataDiagAllVars$dataDiagAvailVars),        dataDiagAllVars$dataDiagSelectedWeightVar[input$dataDiagWeightVar_rows_selected, , drop = FALSE])
      dataDiagAllVars$dataDiagAvailVars <- dataDiagAllVars$dataDiagAvailVars[complete.cases(dataDiagAllVars$dataDiagAvailVars[ , "Variables"]), , drop = FALSE]
      if(nrow(dataDiagAllVars$dataDiagSelectedWeightVar) > 0) {
        dataDiagAllVars$dataDiagSelectedWeightVar <- isolate(dataDiagAllVars$dataDiagSelectedWeightVar[-input$dataDiagWeightVar_rows_selected, , drop = FALSE])
      }
    })
    output$dataDiagAllAvailableVars <- renderDT({
      setkeyv(x = dataDiagAllVars$dataDiagAvailVars, cols = "order_col")
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Available variables"),
    rownames = FALSE,
    filter = "top",
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables available"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 517, scroller = TRUE
    ))
    output$dataDiagSplitVars <- renderDT({
      dataDiagAllVars$dataDiagSelectedSplitVars
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Split variables"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$dataDiagInclMiss <- renderUI({
      if(nrow(dataDiagAllVars$dataDiagSelectedSplitVars) == 0) {
        return(NULL)
      } else {
        checkboxInput(inputId = "dataDiagInclMiss", label = "Compute statistics for the missing values of the split variables", value = FALSE, width = "400px")
      }
    })
    output$dataDiagAnalVars <- renderDT({
      dataDiagAllVars$dataDiagSelectedAnalVars
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Analysis variables"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$dataDiagWeightVar <- renderDT({
      dataDiagAllVars$dataDiagSelectedWeightVar
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Weight variable"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = paste0("No weight selected, the tables will contain unweighted statistics")),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$dataDiagWgtsNotWgts <- renderText({
      if(any(dataDiagAllVars$dataDiagSelectedWeightVar[ , Variables] %in% all.studies.available.weights == FALSE)) {
        HTML('Warning: The variable in "Weight variable" is not a weight. Please check the added variable.')
      } else {
        return(NULL)
      }
    })
    observe({
      if(nrow(dataDiagAllVars$dataDiagSelectedWeightVar) > 1) {
        showNotification(ui = HTML("Only one weight variable can be selected!"), type = "error")
        dataDiagAllVars$dataDiagAvailVars <- rbind(isolate(dataDiagAllVars$dataDiagAvailVars),        dataDiagAllVars$dataDiagSelectedWeightVar[nrow(dataDiagAllVars$dataDiagSelectedWeightVar), , drop = FALSE])
        dataDiagAllVars$dataDiagAvailVars <- dataDiagAllVars$dataDiagAvailVars[complete.cases(dataDiagAllVars$dataDiagAvailVars[ , "Variables"]), , drop = FALSE]
        dataDiagAllVars$dataDiagSelectedWeightVar <- isolate(dataDiagAllVars$dataDiagSelectedWeightVar[-2, , drop = FALSE])
      }
    })
    output$dataDiagContFreq <- renderUI({
      checkboxInput(inputId = "dataDiagContFreq", label = "Compute frequencies for continuous variables", value = FALSE, width = "450px")
    })
    shinyFileSave(input, "dataDiagChooseOutFile", filetype = list(xlsx = "xlsx"), roots = available.volumes, updateFreq = 100000)
    output$dataDiagOpenOutput <- renderUI({
      if(length(parseSavePath(available.volumes, input$dataDiagChooseOutFile)$datapath) > 0) {
        checkboxInput(inputId = "dataDiagOpenOutput", label = "Open the output when done", value = TRUE, width = "250px")
      }
    })
    syntaxDataDiag <- reactive({
      file.data.diag$data.diag.syntax <- paste0(
        'lsa.data.diag(data.file = "', parseFilePaths(available.volumes, input$dataDiagChooseSrcFile)$datapath, '", ',
        if(length(dataDiagAllVars$dataDiagSelectedSplitVars[ , Variables]) == 1) {
          paste0('split.vars = "', dataDiagAllVars$dataDiagSelectedSplitVars[ , Variables], '"')
        } else if(length(dataDiagAllVars$dataDiagSelectedSplitVars[ , Variables]) > 1) {
          paste0('split.vars = c("', paste(dataDiagAllVars$dataDiagSelectedSplitVars[ , Variables], collapse = '", "'), '")')
        },
        if(nrow(dataDiagAllVars$dataDiagSelectedAnalVars) == 1) {
          paste0(', variables = "', dataDiagAllVars$dataDiagSelectedAnalVars[ , Variables], '"')
        } else if(nrow(dataDiagAllVars$dataDiagSelectedAnalVars) > 1) {
          paste0(', variables = c("', paste(dataDiagAllVars$dataDiagSelectedAnalVars[ , Variables], collapse = '", "'), '")')
        },
        if(exists("dataDiagAllVars$dataDiagSelectedWeightVar") && nrow(dataDiagAllVars$dataDiagSelectedWeightVar) == 1 && dataDiagAllVars$dataDiagSelectedWeightVar[ , Variables] == file.data.diag$default.weight) {
          NULL
        } else if(exists("dataDiagAllVars$dataDiagSelectedWeightVar") && nrow(dataDiagAllVars$dataDiagSelectedWeightVar) == 1 && dataDiagAllVars$dataDiagSelectedWeightVar[ , Variables] %in% all.studies.available.weights && dataDiagAllVars$dataDiagSelectedWeightVar[ , Variables] != file.data.diag$default.weight) {
          paste0(', weight.var = "', dataDiagAllVars$dataDiagSelectedWeightVar[ , Variables], '"')
        } else if(exists("dataDiagAllVars$dataDiagSelectedWeightVar") && nrow(dataDiagAllVars$dataDiagSelectedWeightVar) == 0) {
          paste0(', weight.var = "none"')
        },
        if(!is.null(input$dataDiagContFreq) && input$dataDiagContFreq == TRUE) {
          ", cont.freq = TRUE"
        },
        if(!is.null(input$dataDiagInclMiss) && input$dataDiagInclMiss == TRUE) {
          ", include.missing = TRUE"
        },
        paste0(', output.file = "', parseSavePath(available.volumes, input$dataDiagChooseOutFile)$datapath, '"'),
        if(!is.null(input$dataDiagOpenOutput) && input$dataDiagOpenOutput == FALSE) {
          ', open.output = FALSE'
        } else if(!is.null(input$dataDiagOpenOutput) && input$dataDiagOpenOutput == TRUE) {
          NULL
        },
        ')'
      )
    })
    output$dataDiagSyntaxHead <- renderText({
      if(length(parseSavePath(available.volumes, input$dataDiagChooseOutFile)$datapath) == 1) {
        HTML("Syntax")
      } else {
        return(NULL)
      }
    })
    observe.syntax.save.button <- eval(parse(text = string.observe.syntax.save.button))
    observe.syntax.save.button(input = input, session = session, syntax.ID = "saveDataDiagSyntax", syntax.object = "syntaxDataDiag()", volumes = available.volumes)
    output$copyDataDiagSyntax <- renderUI({
      rclipButton(inputId = "copyDataDiagSyntax", label = "Copy syntax", clipText = syntaxDataDiag(), icon = icon("copy"), style = "color: #ffffff; background-color: #000000; border-radius: 5px; font-size: 80%; margin-bottom: 1px; padding: 1px; width: 85px; margin-top: 1px")
    })
    output$dataDiagSyntax <- renderText({
      if(length(parseSavePath(available.volumes, input$dataDiagChooseOutFile)$datapath) == 1) {
        syntaxDataDiag()
      } else {
        return(NULL)
      }
    })
    output$dataDiagExecBtnHead <- renderText({
      if(length(parseSavePath(available.volumes, input$dataDiagChooseOutFile)$datapath) == 1) {
        HTML("Press the button below to execute the syntax")
      } else {
        return(NULL)
      }
    })
    output$execDataDiag <- renderUI({
      if(length(parseSavePath(available.volumes, input$dataDiagChooseOutFile)$datapath) == 1) {
        actionButton(inputId = "execDataDiag", label = "Execute syntax", icon = icon("cogs"), style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      } else {
        return(NULL)
      }
    })
    observe({
      if(is.null(file.data.diag$loaded) || nrow(dataDiagAllVars$dataDiagSelectedAnalVars) < 1 || any(dataDiagAllVars$dataDiagSelectedWeightVar[ , Variables] %in% all.studies.available.weights == FALSE) || is.null(file.data.diag$default.weight) || length(file.data.diag$default.weight) == 0) {
        hide("dataDiagContFreq")
        hide("dataDiagChooseOutFile")
        hide("dataDiagOpenOutput")
        hide("dataDiagSyntaxHead")
        hide("dataDiagSyntax")
        hide("dataDiagExecBtnHead")
        hide("execDataDiag")
        hide("consoleDataDiag")
      } else if (!is.null(file.data.diag$loaded) || nrow(dataDiagAllVars$dataDiagSelectedAnalVars) > 0 || any(dataDiagAllVars$dataDiagSelectedWeightVar[ , Variables] %in% all.studies.available.weights == TRUE) || !is.null(file.data.diag$default.weight) || length(file.data.diag$default.weight) != 0) {
        show("dataDiagContFreq")
        show("dataDiagChooseOutFile")
        show("dataDiagOpenOutput")
        show("dataDiagSyntaxHead")
        show("dataDiagSyntax")
        show("dataDiagExecBtnHead")
        show("execDataDiag")
        show("consoleDataDiag")
      }
      if(is.null(file.data.diag$default.weight) || length(file.data.diag$default.weight) == 0) {
        hide("dataDiagVariablesExplText")
        hide("dataDiagAllAvailableVars")
        hide("dataDiagArrowSelSplitVarsRight")
        hide("dataDiagArrowSelSplitVarsLeft")
        hide("dataDiagSplitVars")
        hide("dataDiagInclMiss")
        hide("dataDiagArrowSelAnalVarsRight")
        hide("dataDiagArrowSelAnalVarsLeft")
        hide("dataDiagAnalVars")
        hide("dataDiagArrowSelWeightVarsRight")
        hide("dataDiagArrowSelWeightVarsLeft")
        hide("dataDiagWeightVar")
      } else if(!is.null(file.data.diag$default.weight) || length(file.data.diag$default.weight) != 0) {
        show("dataDiagVariablesExplText")
        show("dataDiagAllAvailableVars")
        show("dataDiagArrowSelSplitVarsRight")
        show("dataDiagArrowSelSplitVarsLeft")
        show("dataDiagSplitVars")
        show("dataDiagInclMiss")
        show("dataDiagArrowSelAnalVarsRight")
        show("dataDiagArrowSelAnalVarsLeft")
        show("dataDiagAnalVars")
        show("dataDiagArrowSelWeightVarsRight")
        show("dataDiagArrowSelWeightVarsLeft")
        show("dataDiagWeightVar")
      }
      if(nrow(dataDiagAllVars$dataDiagAvailVars) == 0 ||
         nrow(dataDiagAllVars$dataDiagSelectedAnalVars) == 0 ||
         length(parseSavePath(available.volumes, input$dataDiagChooseSrcFile)$datapath) == 0 ||
         length(parseSavePath(available.volumes, input$dataDiagChooseOutFile)$datapath) == 0
      ) {
        hide("saveDataDiagSyntax")
        hide("copyDataDiagSyntax")
      } else {
        show("saveDataDiagSyntax")
        show("copyDataDiagSyntax")
      }
    })
  }
})
observeEvent(input$execDataDiag, {
  showNotification(ui = HTML("<br/>   Execution started.   <br/><br/>"), type = "message")
  withCallingHandlers({html("consoleDataDiag", "")
    tryCatch({
      expr = eval(parse(text = file.data.diag$data.diag.syntax))
      showNotification(ui = HTML("<br/>   All operations complete!   <br/><br/>"), type = "message", duration = NULL)
    }, error = function(e) {
      message("", e)
      showNotification(ui = HTML(paste0("Something went wrong. Possible reasons: <br/>", paste(gsub(pattern = "\\n|Error: ", replacement = "<br/>", x = e)))), type = "error", duration = NULL)
    })
  },
  message = function(i) {
    shinyjs::html(id = "consoleDataDiag", html = i$message, add = TRUE)
  },
  warning = function(w) {
    shinyjs::html(id = "consoleDataDiag", html = paste0("Warning: ", w$message, "\n"), add = TRUE)
  })
  session$sendCustomMessage(type = "scrollCallback", 1)
}, ignoreInit = TRUE)
hide("recodeInNewVars")
hide("recodeNewMissings")
hide("recodeChooseOutFile")
hide("saveRecodeSyntax")
hide("recodeExecBtnHead")
hide("execRecode")
hide("recodeNewVarNames")
output$h1RecodeVars <- renderText("Recode variables")
output$recodeIntro <- renderText({HTML("Select large-scale assessment .RData file to load.")})
file.var.recode <- reactiveValues(loaded = NULL, is.lsa.data = NULL, resp.type = NULL, study = NULL, cycle = NULL, var.levels = NULL, var.num.values = NULL, var.char.values = NULL, var.missings = NULL, var.classes = NULL, recode.syntax = NULL)
shinyFileChoose(input, "recodeChooseSrcFile", roots = available.volumes, filetype = list(RData = "RData"))
observeEvent(eventExpr = input$recodeChooseSrcFile, {
  file.var.recode$loaded <- NULL
  file.var.recode$is.lsa.data <- FALSE
  file.var.recode$resp.type <- NULL
  file.var.recode$study <- NULL
  file.var.recode$cycle <- NULL
  file.var.recode$var.classes <- NULL
  file.var.recode$recode.syntax <- NULL
  file.var.recode$var.levels <- NULL
  file.var.recode$var.num.values <- NULL
  file.var.recode$var.char.values <- NULL
  file.var.recode$var.missings <- NULL
  if(length(parseFilePaths(available.volumes, input$recodeChooseSrcFile)$datapath) > 0 && file.size(parseFilePaths(available.volumes, input$recodeChooseSrcFile)$datapath) > 104857600) {
    showNotification(ui = HTML('The size of the selected<br/>file is rather large. Please<br/>wait until the file is loaded.'), type = "message")
  }
  session$sendCustomMessage("unbindDT", "recodeVarsSelection")
  session$sendCustomMessage("unbindDT", "recodeSchemeFAC")
  session$sendCustomMessage("unbindDT", "recodeSchemeNUM")
  session$sendCustomMessage("unbindDT", "recodeSchemeCHAR")
  session$sendCustomMessage("unbindDT", "recodeNewVarNames")
  if(length(parseFilePaths(available.volumes, input$recodeChooseSrcFile)$datapath) > 0) {
    file.var.recode$loaded <- get(load(parseFilePaths(available.volumes, input$recodeChooseSrcFile)$datapath))
    file.var.recode$var.levels <- Filter(Negate(is.null), lapply(X = file.var.recode$loaded, FUN = function(i) {
      if(is.null(attr(x = i, which = "levels"))) {
        NULL
      } else {
        attr(x = i, which = "levels")
      }
    }))
    file.var.recode$var.classes <- lapply(X = file.var.recode$loaded, FUN = class)
    file.var.recode$var.num.values <- Filter(Negate(is.null), lapply(X = file.var.recode$loaded, FUN = function(i) {
      if(!is.numeric(i)) {
        NULL
      } else {
        sort(unique(i[!is.na(i)]))
      }
    }))
    file.var.recode$var.char.values <- Filter(Negate(is.null), lapply(X = file.var.recode$loaded, FUN = function(i) {
      if(!is.character(i)) {
        NULL
      } else {
        unique(i[!is.na(i)])
      }
    }))
    file.var.recode$missings <- Filter(Negate(is.null), lapply(X = file.var.recode$loaded, FUN = function(i) {
      if(is.null(attr(x = i, which = "missings"))) {
        NULL
      } else {
        if(is.null(names(i))) {
          attr(x = i, which = "missings")
        } else {
          tmp.names.miss <- names(attr(x = i, which = "missings"))
          tmp.miss <- attr(x = i, which = "missings")
          names(tmp.miss) <- tmp.names.miss
        }
      }
    }))
    if("lsa.data" %in% class(file.var.recode$loaded)) {
      file.var.recode$is.lsa.data <- TRUE
    } else {
      file.var.recode$is.lsa.data <- FALSE
    }
    file.var.recode$study <- attr(x = file.var.recode$loaded, which = "study")
    file.var.recode$cycle <- attr(x = file.var.recode$loaded, which = "cycle")
    file.var.recode$resp.type <- attr(x = file.var.recode$loaded, which = "file.type")
    file.var.recode$loaded <- data.table(Variables = names(file.var.recode$loaded), Variable_Labels = sapply(X = file.var.recode$loaded, FUN = function(j) {
      if(is.null(attr(x = j, which = "variable.label"))) {
        return(NA_character_)
      } else {
        attr(x = j, which = "variable.label")
      }
    }),
    order_col = 1:ncol(file.var.recode$loaded))
  }
  output$recodeSrcPathDisplay <- renderText({parseFilePaths(available.volumes, input$recodeChooseSrcFile)$datapath})
}, ignoreInit = TRUE)
observe({
  if(!is.null(file.var.recode$loaded) && isFALSE(file.var.recode$is.lsa.data)) {
    showNotification(ui = HTML('The data is not of class "lsa.data".<br/>Please check the file content.'), type = "error")
  } else if (!is.null(file.var.recode$loaded) && isTRUE(file.var.recode$is.lsa.data)) {
    output$recodeStudyName <- renderText({
      if(is.null(file.var.recode$resp.type)) {
        return(NULL)
      } else {
        HTML(paste0('Study: ', file.var.recode$study))
      }
    })
    output$recodeStudyCycle <- renderText({
      if(is.null(file.var.recode$resp.type)) {
        return(NULL)
      } else {
        HTML(paste0('Cycle: ', file.var.recode$cycle))
      }
    })
    output$recodeRespHead <- renderText({
      if(is.null(file.var.recode$resp.type)) {
        return(NULL)
      } else {
        HTML('<u>The file contains data from the following respondents:</u>')
      }
    })
    output$recodeRespAvailable <- renderText({
      if(is.null(file.var.recode$resp.type)) {
        return(NULL)
      } else {
        HTML(file.merged.respondents[[file.var.recode$resp.type]])
      }
    })
    output$recodeVariablesExplText <- renderText({
      if(is.null(file.var.recode$resp.type)) {
        return(NULL)
      } else {
        HTML('Use the panels below to select the variables which shall be recoded.<br/><b>Note: The selected variables <u>must</u> have the same structure - same class, number of levels (if they are factors), same user-defined missing values (if any).</b><br/>Running the "Variable dictionaties" module in advance can be helpful to identify the structure of the variables of interest.')
      }
    })
    recode.initial.available.vars <- data.table(Variables = as.character(), Variable_Labels = as.character(), order_col = as.numeric())
    recode.initial.selected.vars <- data.table(Variables = as.character(), Variable_Labels = as.character(), order_col = as.numeric())
    recodeAllVars <- reactiveValues(recodeAvailVars = recode.initial.available.vars, recodeSelectedVars = recode.initial.selected.vars)
    observe({
      if(!is.null(file.var.recode$loaded)) {
        recodeAllVars$recodeAvailVars <- file.var.recode$loaded
      }
    })
    output$recodeArrowSelVarsRight <- renderUI({
      if(is.null(file.var.recode$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "recodeArrowSelVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$recodeArrowSelVarsLeft <- renderUI({
      if(is.null(file.var.recode$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "recodeArrowSelVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$recodeAllAvailableVars <- renderDT({
      if(is.null(file.var.recode$resp.type)) {
        return(NULL)
      } else {
        setkeyv(x = recodeAllVars$recodeAvailVars, cols = "order_col")
      }
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Available variables"),
    rownames = FALSE,
    filter = "top",
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "All variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 400, scroller = TRUE
    ))
    output$recodeVarsSelection <- renderDT({
      if(is.null(file.var.recode$resp.type)) {
        return(NULL)
      } else {
        setkeyv(x = recodeAllVars$recodeSelectedVars, cols = "order_col")
      }
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Selected variables"),
    rownames = FALSE,
    filter = "top",
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 400, scroller = TRUE
    ))
    observeEvent(input$recodeArrowSelVarsRight, {
      req(input$recodeAllAvailableVars_rows_selected)
      recodeAllVars$recodeSelectedVars <- rbind(isolate(recodeAllVars$recodeSelectedVars), recodeAllVars$recodeAvailVars[input$recodeAllAvailableVars_rows_selected, , drop = FALSE])
      recodeAllVars$recodeSelectedVars <- recodeAllVars$recodeSelectedVars[complete.cases(recodeAllVars$recodeSelectedVars[ , "Variables"]), , drop = FALSE]
      recodeAllVars$recodeAvailVars <- isolate(recodeAllVars$recodeAvailVars[-input$recodeAllAvailableVars_rows_selected, , drop = FALSE])
      session$sendCustomMessage("unbindDT", "recodeSchemeFAC")
      session$sendCustomMessage("unbindDT", "recodeSchemeNUM")
      session$sendCustomMessage("unbindDT", "recodeSchemeCHAR")
      session$sendCustomMessage("unbindDT", "recodeNewVarNames")
    })
    observeEvent(input$recodeArrowSelVarsLeft, {
      req(input$recodeVarsSelection_rows_selected)
      recodeAllVars$recodeAvailVars <- rbind(isolate(recodeAllVars$recodeAvailVars), recodeAllVars$recodeSelectedVars[input$recodeVarsSelection_rows_selected, , drop = FALSE])
      recodeAllVars$recodeAvailVars <- recodeAllVars$recodeAvailVars[complete.cases(recodeAllVars$recodeAvailVars[ , "Variables"]), , drop = FALSE]
      recodeAllVars$recodeSelectedVars <- isolate(recodeAllVars$recodeSelectedVars[-input$recodeVarsSelection_rows_selected, , drop = FALSE])
      session$sendCustomMessage("unbindDT", "recodeSchemeFAC")
      session$sendCustomMessage("unbindDT", "recodeSchemeNUM")
      session$sendCustomMessage("unbindDT", "recodeSchemeCHAR")
      session$sendCustomMessage("unbindDT", "recodeNewVarNames")
    })
    output$recodeMissingsWarn <- renderText({
      if(new.values.and.labels.mismatch$diff.missings == TRUE) {
        if(all(paste0(new.recoding.labels.FAC$labels, new.recoding.labels.NUM$labels, new.recoding.labels.CHAR$labels) == "")) {
          HTML('Warning: The new missing values do not match any of the the newly entered values. Please check the new values.')
        } else {
          HTML('Warning: The new missing values do not match any of the newly entered value labels. Please check the new value labels.')
        }
      }
    })
    recode.sel.vars.mismatch <- reactiveValues(value = NULL)
    observe({
      recode.sel.vars.classes <- unique(unlist(file.var.recode$var.classes[recodeAllVars$recodeSelectedVars[ , Variables]]))
      recode.FAC.unique <- length(unique(file.var.recode$var.levels[recodeAllVars$recodeSelectedVars[ , Variables]]))
      recode.NUM.unique <- length(unique(file.var.recode$var.num.values[recodeAllVars$recodeSelectedVars[ , Variables]]))
      recode.CHAR.unique <- length(unique(file.var.recode$var.char.values[recodeAllVars$recodeSelectedVars[ , Variables]]))
      if(length(recode.sel.vars.classes) > 1) {
        recode.sel.vars.mismatch$value <- FALSE
      } else if(length(recode.sel.vars.classes) == 1 && recode.sel.vars.classes == "factor") {
        if(recode.FAC.unique == 1) {
          recode.sel.vars.mismatch$value <- TRUE
        } else if(recode.FAC.unique > 1) {
          recode.sel.vars.mismatch$value <- FALSE
        } else if(recode.FAC.unique == 0) {
          recode.sel.vars.mismatch$value <- NULL
        }
      } else if(length(recode.sel.vars.classes) == 1 && recode.sel.vars.classes == "numeric") {
        if(recode.NUM.unique == 1) {
          recode.sel.vars.mismatch$value <- TRUE
        } else if(recode.NUM.unique > 1) {
          recode.sel.vars.mismatch$value <- FALSE
        } else if(recode.NUM.unique == 0) {
          recode.sel.vars.mismatch$value <- NULL
        }
      } else if(length(recode.sel.vars.classes) == 1 && recode.sel.vars.classes == "character") {
        if(recode.CHAR.unique == 1) {
          recode.sel.vars.mismatch$value <- TRUE
        } else if(recode.CHAR.unique > 1) {
          recode.sel.vars.mismatch$value <- FALSE
        } else if(recode.CHAR.unique == 0) {
          recode.sel.vars.mismatch$value <- NULL
        }
      }
    })
    output$recodeSchemeExpl <- renderText({
      if(nrow(recodeAllVars$recodeSelectedVars) > 0 && recode.sel.vars.mismatch$value == TRUE) {
        if(!is.null(file.var.recode$loaded) && unlist(unique(file.var.recode$var.classes[recodeAllVars$recodeSelectedVars[ , Variables]])) == "factor") {
          HTML('The selected variables are <b>factor</b> variables. Use the table below to define the recoding scheme.<br/><b>Notes:</b><br/>1. If no new value is defined for a corresponding old value, it will be set to &ltNA>.<br/>2. If no new labels are defined, the recoded variables will be set to numeric, otherwise they will remain as factors.<br/>3. If new labels are defined, their number <b>must be</b> the same as the number of new values: <ul><li>Against each of the "New levels" where a value is defined, values for the "New labels" <b>must</b> be defined as well.</li><li>If more than one of the "Old levels" have the same "New levels" defined, their "New labels" <b>must</b> be the same as well.</li></ul>')
        } else if(!is.null(file.var.recode$loaded) && unlist(unique(file.var.recode$var.classes[recodeAllVars$recodeSelectedVars[ , Variables]])) == "numeric") {
          HTML('The selected variables are <b>numeric</b> variables. Use the table below to define the recoding scheme.<br/><b>Notes:</b><br/>1. If no new value is defined for a corresponding old value, it will be set to &ltNA>.<br/>2. If no new labels are defined, the recoded variables will remain as numeric.<br/>3. If new labels are defined in the last column, the recoded variables will be converted to factors and the labels will be defined to their levels. In this case, the number of new labels <b>must be</b> the same as the number of new values: <ul><li>Against each of the "New values" where a value is defined, values for the "New labels" <b>must be</b> defined as well.</li><li>If more than one of the "Old values" have the same "New values" defined, their "New labels" <b>must be</b> the same as well.</li></ul>')
        } else if(!is.null(file.var.recode$loaded) && unlist(unique(file.var.recode$var.classes[recodeAllVars$recodeSelectedVars[ , Variables]])) == "character") {
          HTML('The selected variables are <b>character</b> variables. Use the table below to define the recoding scheme.<br/><b>Notes:</b><br/>1. If no new value is defined for a corresponding old value, it will be set to &ltNA>.<br/>2. If no new labels are defined in the last column, the recoded variables will remain as character.<br/>3. If new labels are defined in the last column, the recoded variables will be converted to factors and the new labels will be defined to their levels. In this case, the number of new labels <b>must be</b> the same as the number of new values: <ul><li>Against each of the "New values" where a value is defined, values for the "New labels" <b>must</b> be defined as well.</li><li>If more than one of the "Old values" have the same "New values" defined, their "New labels" <b>must</b> be the same as well.</li></ul>')
        }
      } else if(!is.null(file.var.recode$loaded) && nrow(recodeAllVars$recodeSelectedVars) > 0 && recode.sel.vars.mismatch$value == FALSE) {
        return(NULL)
      }
    })
    output$recodeSchemeWarn <- renderText({
      if(nrow(recodeAllVars$recodeSelectedVars) > 0 && recode.sel.vars.mismatch$value == FALSE) {
        HTML('The selected variables do <u>not</u> have the same structure - class, number of levels/unique values, and/or user-defied missing values. Check the selected variables\' properties using the "Variable dictionaries" module.')
      } else if(nrow(recodeAllVars$recodeSelectedVars) > 0 && recode.sel.vars.mismatch$value == TRUE) {
        return(NULL)
      }
    })
    generate.recode.new.inputs <- function(obj, input.type, pix.width) {
      unlist(lapply(X = seq_along(obj), FUN = function(i) {
        i <- paste0(textInput(inputId = paste0(input.type, i), label = NULL, value = NULL, width = pix.width))
      }))
    }
    gather.recode.new.inputs.data <- function(id, len) {
      unlist(lapply(seq_len(len), function(i) {
        input[[paste0(id, i)]]
      }))
    }
    initial.recode.new.values.FAC <- reactiveValues(values = NULL)
    entered.new.values.FAC <- reactiveValues(values = NULL)
    new.recoding.values.FAC <- reactiveValues(values = NULL)
    new.recoding.labels.FAC <- reactiveValues(labels = NULL)
    observe({
      initial.recode.new.values.FAC$values <- gsub(pattern = "<", replacement = "&lt;", x = unlist(unique(file.var.recode$var.levels[recodeAllVars$recodeSelectedVars[ , Variables]])))
      entered.new.values.FAC$values <- cbind(
        V1 = data.table(initial.recode.new.values.FAC$values),
        V2 = data.table(1:length(initial.recode.new.values.FAC$values)),
        V3 = data.table(rep(x = as.character(icon(name = "arrow-right")), times = length(initial.recode.new.values.FAC$values))),
        V4 = data.table(generate.recode.new.inputs(obj = unlist(unique(file.var.recode$var.levels[recodeAllVars$recodeSelectedVars[ , Variables]])), input.type = "numinp", pix.width = "100%")),
        V5 = data.table(generate.recode.new.inputs(obj = unlist(unique(file.var.recode$var.levels[recodeAllVars$recodeSelectedVars[ , Variables]])), input.type = "labinp", pix.width = "100%"))
      )
      new.recoding.values.FAC$values <- gather.recode.new.inputs.data(id = "numinp", len = length(unlist(unique(file.var.recode$var.levels[recodeAllVars$recodeSelectedVars[ , Variables]]))))
      new.recoding.labels.FAC$labels <- gather.recode.new.inputs.data(id = "labinp", len = length(unlist(unique(file.var.recode$var.levels[recodeAllVars$recodeSelectedVars[ , Variables]]))))
    })
    initial.recode.new.values.NUM <- reactiveValues(values = NULL)
    entered.new.values.NUM <- reactiveValues(values = NULL)
    new.recoding.values.NUM <- reactiveValues(values = NULL)
    new.recoding.labels.NUM <- reactiveValues(labels = NULL)
    observe({
      initial.recode.new.values.NUM$values <- gsub(pattern = "<", replacement = "&lt;", x = unlist(unique(file.var.recode$var.num.values[recodeAllVars$recodeSelectedVars[ , Variables]])))
      entered.new.values.NUM$values <- cbind(
        V1 = data.table(initial.recode.new.values.NUM$values),
        V2 = data.table(rep(x = as.character(icon(name = "arrow-right")), times = length(initial.recode.new.values.NUM$values))),
        V3 = data.table(generate.recode.new.inputs(obj = unlist(unique(file.var.recode$var.num.values[recodeAllVars$recodeSelectedVars[ , Variables]])), input.type = "numinp", pix.width = "100%")),
        V4 = data.table(generate.recode.new.inputs(obj = unlist(unique(file.var.recode$var.num.values[recodeAllVars$recodeSelectedVars[ , Variables]])), input.type = "labinp", pix.width = "100%"))
      )
      new.recoding.values.NUM$values <- gather.recode.new.inputs.data(id = "numinp", len = length(unlist(unique(file.var.recode$var.num.values[recodeAllVars$recodeSelectedVars[ , Variables]]))))
      new.recoding.labels.NUM$labels <- gather.recode.new.inputs.data(id = "labinp", len = length(unlist(unique(file.var.recode$var.num.values[recodeAllVars$recodeSelectedVars[ , Variables]]))))
    })
    initial.recode.new.values.CHAR <- reactiveValues(values = NULL)
    entered.new.values.CHAR <- reactiveValues(values = NULL)
    new.recoding.values.CHAR <- reactiveValues(values = NULL)
    new.recoding.labels.CHAR <- reactiveValues(labels = NULL)
    observe({
      initial.recode.new.values.CHAR$values <- gsub(pattern = "<", replacement = "&lt;", x = unlist(unique(file.var.recode$var.char.values[recodeAllVars$recodeSelectedVars[ , Variables]])))
      entered.new.values.CHAR$values <- cbind(
        V1 = data.table(initial.recode.new.values.CHAR$values),
        V2 = data.table(rep(x = as.character(icon(name = "arrow-right")), times = length(initial.recode.new.values.CHAR$values))),
        V3 = data.table(generate.recode.new.inputs(obj = unlist(unique(file.var.recode$var.char.values[recodeAllVars$recodeSelectedVars[ , Variables]])), input.type = "charimp", pix.width = "100%")),
        V4 = data.table(generate.recode.new.inputs(obj = unlist(unique(file.var.recode$var.char.values[recodeAllVars$recodeSelectedVars[ , Variables]])), input.type = "labinp", pix.width = "100%"))
      )
      new.recoding.values.CHAR$values <- gather.recode.new.inputs.data(id = "charimp", len = length(unlist(unique(file.var.recode$var.char.values[recodeAllVars$recodeSelectedVars[ , Variables]]))))
      new.recoding.labels.CHAR$labels <- gather.recode.new.inputs.data(id = "labinp", len = length(unlist(unique(file.var.recode$var.char.values[recodeAllVars$recodeSelectedVars[ , Variables]]))))
    })
    output$recodeWarnSchemeIncomplete <- renderText({
      if(!is.null(file.var.recode$loaded)) {
        if(!all(new.recoding.values.FAC$values == "") & any(new.recoding.values.FAC$values == "") || !all(new.recoding.values.NUM$values == "") & any(new.recoding.values.NUM$values == "") || !all(new.recoding.values.CHAR$values == "") & any(new.recoding.values.CHAR$values == "")) {
          HTML("Warning: Not all old values have new corresponding ones. These values will be set to &ltNA>. Revise the recoding scheme unless this is desired.")
        }
      }
    })
    output$warningNotNumeric <- renderText({
      if(nrow(recodeAllVars$recodeSelectedVars) > 0 && recode.sel.vars.mismatch$value == TRUE && length(grep(pattern = "^[[:digit:]]+$|^$", x = new.recoding.values.FAC$values, invert = TRUE)) > 0) {
        HTML('Warning: The input fields for the new categories (column "New levels") in the table below accept only numbers and no other characters. Please check the entered values.')
      } else if(nrow(recodeAllVars$recodeSelectedVars) > 0 && recode.sel.vars.mismatch$value == TRUE && length(grep(pattern = "^[[:digit:]]+$|^$", x = new.recoding.values.NUM$values, invert = TRUE)) > 0) {
        HTML('Warning: The input fields for the new values (column "New values") in the table below accept only numbers and no other characters. Please check the entered values.')
      } else {
        return(NULL)
      }
    })
    output$warningDiffNumValuesLabels <- renderText({
      if(new.values.and.labels.mismatch$diff.count == TRUE) {
        HTML('Warning: The number of new values and their labels differ. Please check the entered values and labels.')
      } else {
        return(NULL)
      }
    })
    output$warningUniqueLabelsValues <- renderText({
      if(new.values.and.labels.mismatch$value == TRUE) {
        HTML('Warning: More than one unique new label has been defined for the same unique new value. Please check the entered values and labels.')
      } else {
        return(NULL)
      }
    })
    output$warningUniqueValuesLabels <- renderText({
      if(new.values.and.labels.mismatch$label == TRUE) {
        HTML('Warning: More than one unique new value has been defined for the same unique new label. Please check the entered values and labels.')
      } else {
        return(NULL)
      }
    })
    output$recodeSchemeFAC <- renderDT({
      if(!is.null(file.var.recode$loaded) && !is.null(unlist(unique(file.var.recode$var.levels[recodeAllVars$recodeSelectedVars[ , Variables]]))) && recode.sel.vars.mismatch$value == TRUE) {
        entered.new.values.FAC$values
      } else {
        return(NULL)
      }
    },
    rownames = FALSE,
    colnames = c("Old variable factor labels", "Old levels", as.character(icon(name = "arrow-right")), "New levels", "New labels"),
    class = "cell-border stripe;compact cell-border;",
    selection = "none",
    escape = FALSE,
    options = list(
      pageLength = 5000,
      dom = 'BRrt',
      autoWidth = TRUE,
      columnDefs = list(list(width = '50px', targets = 1:3), list(width = "330px", targets = 4), list(className = 'dt-center', targets = 1:4)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      preDrawCallback = JS('function() { Shiny.unbindAll(this.api().table().node()); }'),
      drawCallback = JS('function() { Shiny.bindAll(this.api().table().node()); } ')
    ))
    output$recodeSchemeNUM <- renderDT({
      if(!is.null(file.var.recode$loaded) && !is.null(unlist(unique(file.var.recode$var.num.values[recodeAllVars$recodeSelectedVars[ , Variables]]))) && recode.sel.vars.mismatch$value == TRUE) {
        entered.new.values.NUM$values
      } else {
        return(NULL)
      }
    },
    rownames = FALSE,
    colnames = c("Old values", as.character(icon(name = "arrow-right")), "New values", "New labels"),
    class = "cell-border stripe;compact cell-border;",
    selection="none",
    escape = FALSE,
    options = list(
      pageLength = 5000,
      dom = 'BRrt',
      autoWidth = TRUE,
      columnDefs = list(list(width = '50px', targets = 1:2), list(width = "400px", targets = 3), list(className = 'dt-center', targets = 1:3)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      preDrawCallback = JS('function() { Shiny.unbindAll(this.api().table().node()); }'),
      drawCallback = JS('function() { Shiny.bindAll(this.api().table().node()); } ')
    ))
    output$recodeSchemeCHAR <- renderDT({
      if(!is.null(file.var.recode$loaded) && !is.null(unlist(unique(file.var.recode$var.char.values[recodeAllVars$recodeSelectedVars[ , Variables]]))) && recode.sel.vars.mismatch$value == TRUE) {
        entered.new.values.CHAR$values
      } else {
        return(NULL)
      }
    },
    rownames = FALSE,
    colnames = c("Old values", as.character(icon(name = "arrow-right")), "New values", "New labels"),
    class = "cell-border stripe;compact cell-border;",
    selection="none",
    escape = FALSE,
    options = list(
      pageLength = 5000,
      dom = 'BRrt',
      autoWidth = TRUE,
      columnDefs = list(list(width = '50px', targets = 1), list(width = "400px", targets = c(0, 2, 3)), list(className = 'dt-center', targets = 1:3)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      preDrawCallback = JS('function() { Shiny.unbindAll(this.api().table().node()); }'),
      drawCallback = JS('function() { Shiny.bindAll(this.api().table().node()); } ')
    ))
    observe({
      if(nrow(recodeAllVars$recodeSelectedVars) == 0) {
        session$sendCustomMessage("unbindDT", "recodeSchemeFAC")
        session$sendCustomMessage("unbindDT", "recodeSchemeNUM")
        session$sendCustomMessage("unbindDT", "recodeSchemeCHAR")
        session$sendCustomMessage("unbindDT", "recodeNewVarNames")
      }
    })
    initial.new.var.names <- reactiveValues(names = NULL)
    entered.new.var.names <- reactiveValues(names = NULL)
    new.recoded.var.names <- reactiveValues(names = NULL)
    observe({
      entered.new.var.names$names <- data.table(
        V1 = recodeAllVars$recodeSelectedVars[ , Variables],
        V2 = rep(x = as.character(icon(name = "arrow-right")), times = length(recodeAllVars$recodeSelectedVars[ , Variables])),
        V3 = generate.recode.new.inputs(obj = recodeAllVars$recodeSelectedVars[ , Variables], input.type = "newvarnames", pix.width = "100%"),
        V4 = generate.recode.new.inputs(obj = recodeAllVars$recodeSelectedVars[ , Variables], input.type = "newvarlabels", pix.width = "100%")
      )
      new.recoded.var.names$names <- gather.recode.new.inputs.data(id = "newvarnames", len = length(recodeAllVars$recodeSelectedVars[ , Variables]))
      if(nrow(recodeAllVars$recodeSelectedVars) == 0) {
        updateCheckboxInput(session, inputId = "recodeInNewVars", label = "Recode into new variables", value = TRUE)
      }
    })
    observeEvent(input$recodeInNewVars, {
      session$sendCustomMessage("unbindDT", "recodeNewVarNames")
    })
    output$recodeOverwriteWarn <- renderText({
      if(!is.null(file.var.recode$loaded) && input$recodeInNewVars == FALSE) {
        HTML('The recoding will overwrite the existing variables. To change this, check the box from above.')
      } else {
        return(NULL)
      }
    })
    output$recodeNewVarNames <- renderDT({
      if(input$recodeInNewVars == TRUE && !is.null(unlist(unique(file.var.recode$var.levels[recodeAllVars$recodeSelectedVars[ , Variables]]))) | !is.null(unlist(unique(file.var.recode$var.num.values[recodeAllVars$recodeSelectedVars[ , Variables]]))) | !is.null(unlist(unique(file.var.recode$var.char.values[recodeAllVars$recodeSelectedVars[ , Variables]]))) && recode.sel.vars.mismatch$value == TRUE) {
        entered.new.var.names$names
      } else {
        return(NULL)
      }
    },
    rownames = FALSE,
    colnames = c("Old variable names", as.character(icon(name = "arrow-right")), "New variable names", "New variable labels (optional)"),
    class = "cell-border stripe;compact cell-border;",
    selection="none",
    escape = FALSE,
    options = list(
      pageLength = 5000,
      dom = 'BRrt',
      autoWidth = TRUE,
      columnDefs = list(list(width = '190px', targets = 0), list(width = '50px', targets = 1), list(width = '175px', targets = 2), list(className = 'dt-center', targets = 1:2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      preDrawCallback = JS('function() { Shiny.unbindAll(this.api().table().node()); }'),
      drawCallback = JS('function() { Shiny.bindAll(this.api().table().node()); } ')
    ))
    initial.new.var.labels <- reactiveValues(labels = NULL)
    entered.new.var.labels <- reactiveValues(labels = NULL)
    new.recoded.var.labels <- reactiveValues(labels = NULL)
    observe({
      entered.new.var.labels$labels <- data.table(
        V1 = recodeAllVars$recodeSelectedVars[ , Variables],
        V2 = generate.recode.new.inputs(obj = recodeAllVars$recodeSelectedVars[ , Variables], input.type = "newvarlabels", pix.width = "100%")
      )
      new.recoded.var.labels$labels <- gather.recode.new.inputs.data(id = "newvarlabels", len = length(recodeAllVars$recodeSelectedVars[ , Variables]))
    })
    new.values.and.labels.mismatch <- reactiveValues(value = FALSE, label = FALSE, diff.count = FALSE, diff.missings = FALSE)
    observe({
      any.recode.values.NULL <- all(is.null(new.recoding.values.FAC$values), is.null(new.recoding.values.NUM$values), is.null(new.recoding.values.CHAR$values))
      any.recode.values.empty <- any(c(new.recoding.values.FAC$values, new.recoding.values.NUM$values, new.recoding.values.CHAR$values) == "")
      if(!is.null(new.recoding.values.FAC$values)) {
        new.values.and.labels <- suppressWarnings(na.omit(unique(data.table(V1 = as.numeric(new.recoding.values.FAC$values), V2 = as.character(new.recoding.labels.FAC$labels)))))
      } else if(!is.null(new.recoding.values.NUM$values)) {
        new.values.and.labels <- suppressWarnings(na.omit(unique(data.table(V1 = as.numeric(new.recoding.values.NUM$values), V2 = as.character(new.recoding.labels.NUM$labels)))))
      } else if(!is.null(new.recoding.values.CHAR$values)) {
        new.values.and.labels <- na.omit(unique(data.table(V1 = new.recoding.values.CHAR$values, V2 = new.recoding.labels.CHAR$labels[1:length(new.recoding.values.CHAR$values)])))
        new.values.and.labels <- new.values.and.labels[V1 != ""]
      } else {
        new.values.and.labels <- data.table(V1 = numeric(), V2 = character())
      }
      if(!is.null(new.recoding.values.FAC$values)) {
        if(length(new.recoding.values.FAC$values[new.recoding.values.FAC$values != ""]) > 0 && length(new.recoding.labels.FAC$labels[new.recoding.labels.FAC$labels != ""]) == 0 || length(new.recoding.values.FAC$values[new.recoding.values.FAC$values != ""]) == length(new.recoding.labels.FAC$labels[new.recoding.labels.FAC$labels != ""])) {
          new.values.and.labels.mismatch$diff.count <- FALSE
        } else if(!is.null(new.recoding.values.FAC$values) && length(new.recoding.values.FAC$values[new.recoding.values.FAC$values != ""]) > 0 && length(new.recoding.labels.FAC$labels[new.recoding.labels.FAC$labels != ""]) > 0 && length(new.recoding.values.FAC$values[new.recoding.values.FAC$values != ""]) != length(new.recoding.labels.FAC$labels[new.recoding.labels.FAC$labels != ""])) {
          new.values.and.labels.mismatch$diff.count <- TRUE
        }
      } else if(!is.null(new.recoding.values.NUM$values)) {
        if(length(new.recoding.values.NUM$values[new.recoding.values.NUM$values != ""]) > 0 && length(new.recoding.labels.NUM$labels[new.recoding.labels.NUM$labels != ""]) == 0 || length(new.recoding.values.NUM$values[new.recoding.values.NUM$values != ""]) == length(new.recoding.labels.NUM$labels[new.recoding.labels.NUM$labels != ""])) {
          new.values.and.labels.mismatch$diff.count <- FALSE
        } else if(!is.null(new.recoding.values.NUM$values) && length(new.recoding.values.NUM$values[new.recoding.values.NUM$values != ""]) > 0 && length(new.recoding.labels.NUM$labels[new.recoding.labels.NUM$labels != ""]) > 0 && length(new.recoding.values.NUM$values[new.recoding.values.NUM$values != ""]) != length(new.recoding.labels.NUM$labels[new.recoding.labels.NUM$labels != ""])) {
          new.values.and.labels.mismatch$diff.count <- TRUE
        }
      } else if(!is.null(new.recoding.values.CHAR$values)) {
        if(length(new.recoding.values.CHAR$values[new.recoding.values.CHAR$values != ""]) > 0 && length(new.recoding.labels.CHAR$labels[new.recoding.labels.CHAR$labels != ""]) == 0 || length(new.recoding.values.CHAR$values[new.recoding.values.CHAR$values != ""]) == length(new.recoding.labels.CHAR$labels[new.recoding.labels.CHAR$labels != ""])) {
          new.values.and.labels.mismatch$diff.count <- FALSE
        } else if(!is.null(new.recoding.values.CHAR$values) && length(new.recoding.values.CHAR$values[new.recoding.values.CHAR$values != ""]) > 0 && length(new.recoding.labels.CHAR$labels[new.recoding.labels.CHAR$labels != ""]) > 0 && length(new.recoding.values.CHAR$values[new.recoding.values.CHAR$values != ""]) != length(new.recoding.labels.CHAR$labels[new.recoding.labels.CHAR$labels != ""])) {
          new.values.and.labels.mismatch$diff.count <- TRUE
        }
      }
      if(nrow(new.values.and.labels) > 0 && all(new.values.and.labels[ , V2] != "")) {
        if(all(new.values.and.labels[ , V2] != "") && any(duplicated(new.values.and.labels[ , V1]) == TRUE)) {
          new.values.and.labels.mismatch$value <- TRUE
        } else if(all(new.values.and.labels[ , V2] != "") && any(duplicated(new.values.and.labels[ , V1]) == FALSE)) {
          new.values.and.labels.mismatch$value <- FALSE
        }
        if(any(duplicated(new.values.and.labels[ , V1]) == FALSE) && any(duplicated(new.values.and.labels[ , V2]) == TRUE)) {
          new.values.and.labels.mismatch$label <- TRUE
        } else if(any(duplicated(new.values.and.labels[ , V1]) == FALSE) && any(duplicated(new.values.and.labels[ , V2]) == FALSE)) {
          new.values.and.labels.mismatch$label <- FALSE
        }
      }
      if(is.null(file.var.recode$loaded) || nrow(recodeAllVars$recodeSelectedVars) == 0 || all(new.recoding.values.FAC$values == "") & all(new.recoding.values.NUM$values == "") & all(new.recoding.values.CHAR$values == "") || length(grep(pattern = "^[[:digit:]]+$|^$", x = new.recoding.values.FAC$values, invert = TRUE)) > 0 || length(grep(pattern = "^[[:digit:]]+$|^$", x = new.recoding.values.NUM$values, invert = TRUE)) > 0 || new.values.and.labels.mismatch$diff.count == TRUE || new.values.and.labels.mismatch$value == TRUE || new.values.and.labels.mismatch$label == TRUE
      ) {
        hide("recodeNewMissings")
        hide("recodeMissingsWarn")
      } else if(nrow(recodeAllVars$recodeSelectedVars) > 0 || all(new.recoding.values.FAC$values != "") & all(new.recoding.values.NUM$values != "") & all(new.recoding.values.CHAR$values != "") || length(grep(pattern = "^[[:digit:]]+$|^$", x = new.recoding.values.FAC$values, invert = TRUE)) == 0 || length(grep(pattern = "^[[:digit:]]+$|^$", x = new.recoding.values.NUM$values, invert = TRUE)) == 0 || new.values.and.labels.mismatch$diff.count == FALSE || new.values.and.labels.mismatch$value == FALSE || new.values.and.labels.mismatch$label == FALSE
      ) {
        show("recodeNewMissings")
        show("recodeMissingsWarn")
      }
      if(!is.null(new.recoding.labels.FAC$labels)) {
        if(any(new.recoding.labels.FAC$labels != "")) {
          if(input$recodeNewMissings != "" && any(!gsub(pattern = '"+', replacement = '', x = strsplit(x = input$recodeNewMissings, split = '"*;[[:space:]]*"*')[[1]]) %in% new.recoding.labels.FAC$labels)) {
            new.values.and.labels.mismatch$diff.missings <- TRUE
          } else if(input$recodeNewMissings == "" || all(gsub(pattern = '"+', replacement = '', x = strsplit(x = input$recodeNewMissings, split = '"*;[[:space:]]*"*')[[1]]) %in% new.recoding.labels.FAC$labels)) {
            new.values.and.labels.mismatch$diff.missings <- FALSE
          }
        } else {
          if(input$recodeNewMissings != "" && any(!gsub(pattern = '"+', replacement = '', x = strsplit(x = input$recodeNewMissings, split = '"*;[[:space:]]*"*')[[1]]) %in% new.recoding.values.FAC$values)) {
            new.values.and.labels.mismatch$diff.missings <- TRUE
          } else if(input$recodeNewMissings == "" || all(gsub(pattern = '"+', replacement = '', x = strsplit(x = input$recodeNewMissings, split = '"*;[[:space:]]*"*')[[1]]) %in% new.recoding.values.FAC$values)) {
            new.values.and.labels.mismatch$diff.missings <- FALSE
          }
        }
      } else if(!is.null(new.recoding.labels.NUM$labels)) {
        if(any(new.recoding.labels.NUM$labels != "")) {
          if(input$recodeNewMissings != "" && any(!gsub(pattern = '"+', replacement = '', x = strsplit(x = input$recodeNewMissings, split = '"*;[[:space:]]*"*')[[1]]) %in% new.recoding.labels.NUM$labels)) {
            new.values.and.labels.mismatch$diff.missings <- TRUE
          } else if(input$recodeNewMissings == "" || all(gsub(pattern = '"+', replacement = '', x = strsplit(x = input$recodeNewMissings, split = '"*;[[:space:]]*"*')[[1]]) %in% new.recoding.labels.NUM$labels)) {
            new.values.and.labels.mismatch$diff.missings <- FALSE
          }
        } else {
          if(input$recodeNewMissings != "" && any(!gsub(pattern = '"+', replacement = '', x = strsplit(x = input$recodeNewMissings, split = '"*;[[:space:]]*"*')[[1]]) %in% new.recoding.values.NUM$values)) {
            new.values.and.labels.mismatch$diff.missings <- TRUE
          } else if(input$recodeNewMissings == "" || all(gsub(pattern = '"+', replacement = '', x = strsplit(x = input$recodeNewMissings, split = '"*;[[:space:]]*"*')[[1]]) %in% new.recoding.values.NUM$values)) {
            new.values.and.labels.mismatch$diff.missings <- FALSE
          }
        }
      } else if(!is.null(new.recoding.labels.CHAR$labels)) {
        if(any(new.recoding.labels.CHAR$labels != "")) {
          if(input$recodeNewMissings != "" && any(!gsub(pattern = '"+', replacement = '', x = strsplit(x = input$recodeNewMissings, split = '"*;[[:space:]]*"*')[[1]]) %in% new.recoding.labels.CHAR$labels)) {
            new.values.and.labels.mismatch$diff.missings <- TRUE
          } else if(input$recodeNewMissings == "" || all(gsub(pattern = '"+', replacement = '', x = strsplit(x = input$recodeNewMissings, split = '"*;[[:space:]]*"*')[[1]]) %in% new.recoding.labels.CHAR$labels)) {
            new.values.and.labels.mismatch$diff.missings <- FALSE
          }
        } else {
          if(input$recodeNewMissings != "" && any(!gsub(pattern = '"+', replacement = '', x = strsplit(x = input$recodeNewMissings, split = '"*;[[:space:]]*"*')[[1]]) %in% new.recoding.values.CHAR$values)) {
            new.values.and.labels.mismatch$diff.missings <- TRUE
          } else if(input$recodeNewMissings == "" || all(gsub(pattern = '"+', replacement = '', x = strsplit(x = input$recodeNewMissings, split = '"*;[[:space:]]*"*')[[1]]) %in% new.recoding.values.CHAR$values)) {
            new.values.and.labels.mismatch$diff.missings <- FALSE
          }
        }
      }
      if(is.null(file.var.recode$loaded) || new.values.and.labels.mismatch$diff.missings == TRUE || nrow(recodeAllVars$recodeSelectedVars) == 0 || all(new.recoding.values.FAC$values == "") & all(new.recoding.values.NUM$values == "") & all(new.recoding.values.CHAR$values == "") || length(grep(pattern = "^[[:digit:]]+$|^$", x = new.recoding.values.FAC$values, invert = TRUE)) > 0 || length(grep(pattern = "^[[:digit:]]+$|^$", x = new.recoding.values.NUM$values, invert = TRUE)) > 0 || new.values.and.labels.mismatch$diff.count == TRUE || new.values.and.labels.mismatch$value == TRUE || new.values.and.labels.mismatch$label == TRUE) {
        hide("recodeInNewVars")
      } else if(!is.null(file.var.recode$loaded) || new.values.and.labels.mismatch$diff.missings == FALSE || nrow(recodeAllVars$recodeSelectedVars) > 0 || all(new.recoding.values.FAC$values != "") & all(new.recoding.values.NUM$values != "") & all(new.recoding.values.CHAR$values != "") || length(grep(pattern = "^[[:digit:]]+$|^$", x = new.recoding.values.FAC$values, invert = TRUE)) == 0 || length(grep(pattern = "^[[:digit:]]+$|^$", x = new.recoding.values.NUM$values, invert = TRUE)) == 0 || new.values.and.labels.mismatch$diff.count == FALSE || new.values.and.labels.mismatch$value == FALSE || new.values.and.labels.mismatch$label == FALSE) {
        show("recodeInNewVars")
      }
      if(!is.null(new.recoding.values.FAC$values)) {
        if(new.values.and.labels.mismatch$diff.count == TRUE | all(new.recoding.values.FAC$values %in% "")) {
          hide("recodeNewVarNames")
        } else if(new.values.and.labels.mismatch$diff.count == FALSE | !all(new.recoding.values.FAC$values %in% "")) {
          show("recodeNewVarNames")
        }
      } else if(!is.null(new.recoding.values.NUM$values)) {
        if(new.values.and.labels.mismatch$diff.count == TRUE | all(new.recoding.values.NUM$values %in% "")) {
          hide("recodeNewVarNames")
        } else if(new.values.and.labels.mismatch$diff.count == FALSE | !all(new.recoding.values.NUM$values %in% "")) {
          show("recodeNewVarNames")
        }
      } else if(!is.null(new.recoding.values.CHAR$values)) {
        if(new.values.and.labels.mismatch$diff.count == TRUE | all(new.recoding.values.CHAR$values %in% "")) {
          hide("recodeNewVarNames")
        } else if(new.values.and.labels.mismatch$diff.count == FALSE | !all(new.recoding.values.CHAR$values %in% "")) {
          show("recodeNewVarNames")
        }
      }
      if(is.null(file.var.recode$loaded) || new.values.and.labels.mismatch$diff.missings == TRUE || nrow(recodeAllVars$recodeSelectedVars) == 0 || all(new.recoding.values.FAC$values == "") & all(new.recoding.values.NUM$values == "") & all(new.recoding.values.CHAR$values == "") || length(grep(pattern = "^[[:digit:]]+$|^$", x = new.recoding.values.FAC$values, invert = TRUE)) > 0 || length(grep(pattern = "^[[:digit:]]+$|^$", x = new.recoding.values.NUM$values, invert = TRUE)) > 0 || new.values.and.labels.mismatch$diff.count == TRUE || new.values.and.labels.mismatch$value == TRUE || new.values.and.labels.mismatch$label == TRUE || input$recodeInNewVars == TRUE & any(new.recoded.var.names$names == "")) {
        hide("recodeChooseOutFile")
        hide("recodeSyntaxHead")
        hide("recodeSyntax")
        hide("recodeExecBtnHead")
        hide("execRecode")
        hide("consoleRecode")
      } else if(!is.null(file.var.recode$loaded) || new.values.and.labels.mismatch$diff.missings == FALSE || nrow(recodeAllVars$recodeSelectedVars) > 0 || all(new.recoding.values.FAC$values != "") & all(new.recoding.values.NUM$values != "") & all(new.recoding.values.CHAR$values != "") || length(grep(pattern = "^[[:digit:]]+$|^$", x = new.recoding.values.FAC$values, invert = TRUE)) == 0 || length(grep(pattern = "^[[:digit:]]+$|^$", x = new.recoding.values.NUM$values, invert = TRUE)) == 0 || new.values.and.labels.mismatch$diff.count == FALSE || new.values.and.labels.mismatch$value == FALSE || new.values.and.labels.mismatch$label == FALSE || input$recodeInNewVars == FALSE) {
        show("recodeChooseOutFile")
        show("recodeSyntaxHead")
        show("recodeSyntax")
        show("recodeExecBtnHead")
        show("execRecode")
        show("consoleRecode")
      }
      if(is.null(file.var.recode$recode.syntax) ||
         input$recodeInNewVars == TRUE & any(new.recoded.var.names$names == "") ||
         input$recodeInNewVars == TRUE & is.null(new.recoded.var.names$names) ||
         length(parseFilePaths(available.volumes, input$recodeChooseSrcFile)$datapath) == 0 ||
         length(parseSavePath(available.volumes, input$recodeChooseOutFile)$datapath) == 0) {
        hide("saveRecodeSyntax")
        hide("copyRecodeSyntax")
      } else {
        show("saveRecodeSyntax")
        show("copyRecodeSyntax")
      }
    })
    shinyFileSave(input, "recodeChooseOutFile", filetype = list(RData = "RData"), session = session, roots = available.volumes, updateFreq = 100000)
    syntaxRecodeVars <- reactive({
      file.var.recode$recode.syntax <- paste0(
        'lsa.recode.vars(data.file = "', parseFilePaths(available.volumes, input$recodeChooseSrcFile)$datapath,
        if(nrow(recodeAllVars$recodeSelectedVars) == 1) {
          paste0(paste0('", src.variables = "', recodeAllVars$recodeSelectedVars[ , Variables]), '"')
        } else if(nrow(recodeAllVars$recodeSelectedVars) > 1) {
          paste0(paste0('", src.variables = c("', paste(recodeAllVars$recodeSelectedVars[ , Variables], collapse = '", "')), '")')
        },
        if(all(new.recoded.var.names$names != "") && length(new.recoded.var.names$names) > 1 && input$recodeInNewVars == 1) {
          paste0(', new.variables = c("', paste(new.recoded.var.names$names, collapse = '", "'), '")')
        } else if(all(new.recoded.var.names$names != "") && length(new.recoded.var.names$names) == 1 && input$recodeInNewVars == 1) {
          paste0(', new.variables = "', new.recoded.var.names$names, '"')
        },
        if(!is.null(new.recoding.values.FAC$values) && length(initial.recode.new.values.FAC$values[new.recoding.values.FAC$values != ""]) > 0) {
          paste0(', old.new = "', paste(paste0(1:length(initial.recode.new.values.FAC$values[new.recoding.values.FAC$values != ""]), "="), new.recoding.values.FAC$values[new.recoding.values.FAC$values != ""], sep = "", collapse = ";"), '"')
        } else if(!is.null(new.recoding.values.NUM$values) && length(initial.recode.new.values.NUM$values[new.recoding.values.NUM$values != ""]) > 0) {
          paste0(', old.new = "', paste(paste0(1:length(initial.recode.new.values.NUM$values[new.recoding.values.NUM$values != ""]), "="), new.recoding.values.NUM$values[new.recoding.values.NUM$values != ""], sep = "", collapse = ";"), '"')
        } else if(!is.null(new.recoding.values.CHAR$values) && length(initial.recode.new.values.CHAR$values[new.recoding.values.CHAR$values != ""]) > 0) {
          paste0(', old.new = "', paste(paste0("'", gsub(pattern = "\\&lt;", replacement = "<", x = initial.recode.new.values.CHAR$values)[new.recoding.values.CHAR$values != ""], "'", "="), paste0("'", new.recoding.values.CHAR$values[new.recoding.values.CHAR$values != ""], "'"), sep = "", collapse = ";"), '"')
        },
        if(!is.null(new.recoding.values.FAC$values) && length(initial.recode.new.values.FAC$values[new.recoding.values.FAC$values != ""]) > 0 && length(grep(pattern = "^$", x = new.recoding.labels.FAC$labels, invert = TRUE)) == length(grep(pattern = "^$", x = new.recoding.values.FAC$values, invert = TRUE))) {
          FAC.new.labels <- data.table(V1 = unique(new.recoding.values.FAC$values[new.recoding.values.FAC$values != ""]), V2 = unique(new.recoding.labels.FAC$labels[new.recoding.labels.FAC$labels != ""]), key = "V1")
          paste0(', new.labels = c("', paste(FAC.new.labels[ , V2], collapse = '", "'), '")')
        } else if(!is.null(new.recoding.values.NUM$values) && length(initial.recode.new.values.NUM$values[new.recoding.values.NUM$values != ""]) > 0 && length(grep(pattern = "^$", x = new.recoding.labels.NUM$labels, invert = TRUE)) == length(grep(pattern = "^$", x = new.recoding.values.NUM$values, invert = TRUE))) {
          NUM.new.labels <- data.table(V1 = unique(new.recoding.values.NUM$values[new.recoding.values.NUM$values != ""]), V2 = unique(new.recoding.labels.NUM$labels[new.recoding.labels.NUM$labels != ""]), key = "V1")
          paste0(', new.labels = c("', paste(NUM.new.labels[ , V2], collapse = '", "'), '")')
        } else if(!is.null(new.recoding.values.CHAR$values) && length(initial.recode.new.values.CHAR$values[new.recoding.values.CHAR$values != ""]) > 0 && length(grep(pattern = "^$", x = new.recoding.labels.CHAR$labels, invert = TRUE)) == length(grep(pattern = "^$", x = new.recoding.values.CHAR$values, invert = TRUE))) {
          CHAR.new.labels <- data.table(V1 = unique(new.recoding.values.CHAR$values[new.recoding.values.CHAR$values != ""]), V2 = unique(new.recoding.labels.CHAR$labels[new.recoding.labels.CHAR$labels != ""]), key = "V1")
          paste0(', new.labels = c("', paste(CHAR.new.labels[ , V2], collapse = '", "'), '")')
        },
        if(input$recodeNewMissings != "") {
          paste0(', missings.attr = list("', paste(gsub(pattern = '"+', replacement = '', x = strsplit(x = input$recodeNewMissings, split = '"*;[[:space:]]*"*')[[1]]), collapse = '", "'), '")')
        },
        if(!is.null(new.recoded.var.labels$labels) && any(new.recoded.var.labels$labels != "") && input$recodeInNewVars == 1) {
          if(length(new.recoded.var.labels$labels) == 1) {
            paste0(', variable.labels = "', paste(new.recoded.var.labels$labels, collapse = '", "'), '"')
          } else if(length(new.recoded.var.labels$labels) > 1) {
            paste0(', variable.labels = c("', paste(new.recoded.var.labels$labels, collapse = '", "'), '")')
          }
        },
        if(length(parseSavePath(available.volumes, input$recodeChooseOutFile)$datapath) == 1) {
          paste0(', out.file = "', parseSavePath(available.volumes, input$recodeChooseOutFile)$datapath, '")')
        }
      )
    })
    output$recodeSyntaxHead <- renderText({
      if(!is.null(file.var.recode$loaded) && length(parseSavePath(available.volumes, input$recodeChooseOutFile)$datapath) == 1) {
        HTML("Syntax")
      } else {
        return(NULL)
      }
    })
    output$copyRecodeSyntax <- renderUI({
      rclipButton(inputId = "copyRecodeSyntax", label = "Copy syntax", clipText = syntaxRecodeVars(), icon = icon("copy"), style = "color: #ffffff; background-color: #000000; border-radius: 5px; font-size: 80%; margin-bottom: 1px; padding: 1px; width: 85px; margin-top: 1px")
    })
    output$recodeSyntax <- renderText({
      if(!is.null(file.var.recode$loaded) && length(parseSavePath(available.volumes, input$recodeChooseOutFile)$datapath) == 1) {
        syntaxRecodeVars()
      } else {
        return(NULL)
      }
    })
    observe.syntax.save.button <- eval(parse(text = string.observe.syntax.save.button))
    observe.syntax.save.button(input = input, session = session, syntax.ID = "saveRecodeSyntax", syntax.object = "syntaxRecodeVars()", volumes = available.volumes)
    output$recodeExecBtnHead <- renderText({
      if(!is.null(file.var.recode$loaded) && length(parseSavePath(available.volumes, input$recodeChooseOutFile)$datapath) == 1) {
        HTML("Press the button below to execute the syntax")
      } else {
        return(NULL)
      }
    })
    output$execRecode <- renderUI({
      if(!is.null(file.var.recode$loaded) && length(parseSavePath(available.volumes, input$recodeChooseOutFile)$datapath) == 1) {
        actionButton(inputId = "execRecode", label = "Execute syntax", icon = icon("cogs"), style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      } else {
        return(NULL)
      }
    })
  }
})
observeEvent(input$execRecode, {
  showNotification(ui = HTML("<br/>   Execution started.   <br/><br/>"), type = "message")
  withCallingHandlers({html("consoleRecode", "")
    tryCatch({
      expr = eval(parse(text = file.var.recode$recode.syntax))
      showNotification(ui = HTML("<br/>   All operations complete!   <br/><br/>"), type = "message", duration = NULL)
    }, error = function(e) {
      message("", e)
      showNotification(ui = HTML(paste0("Something went wrong. Possible reasons: <br/>", paste(gsub(pattern = "\\n|Error: ", replacement = "<br/>", x = e)))), type = "error", duration = NULL)
    })
  },
  message = function(i) {
    shinyjs::html(id = "consoleRecode", html = i$message, add = TRUE)
  },
  warning = function(w) {
    shinyjs::html(id = "consoleRecode", html = paste0("Warning: ", w$message, "\n"), add = TRUE)
  })
  session$sendCustomMessage(type = "scrollCallback", 1)
}, ignoreInit = TRUE)
hide("cutVarsChooseOutFile")
hide("saveCutVarsSyntax")
output$h1cutVars <- renderText("Cut continuous variables into discrete categories")
output$cutVarsIntro <- renderText({HTML("Select large-scale assessment .RData file to load.")})
file.select.cut.vars <- reactiveValues(loaded = NULL, is.lsa.data = NULL, resp.type = NULL, study = NULL, cycle = NULL, var.classes = NULL, cutVarsSyntax = NULL)
shinyFileChoose(input, "cutVarsChooseSrcFile", roots = available.volumes, filetype = list(RData = "RData"))
observeEvent(eventExpr = input$cutVarsChooseSrcFile, {
  file.select.cut.vars$loaded <- NULL
  file.select.cut.vars$is.lsa.data <- FALSE
  file.select.cut.vars$resp.type <- NULL
  file.select.cut.vars$study <- NULL
  file.select.cut.vars$cycle <- NULL
  file.select.cut.vars$var.classes <- NULL
  file.select.cut.vars$cutVarsSyntax <- NULL
  if(length(parseFilePaths(available.volumes, input$cutVarsChooseSrcFile)$datapath) > 0 && file.size(parseFilePaths(available.volumes, input$cutVarsChooseSrcFile)$datapath) > 104857600) {
    showNotification(ui = HTML('The size of the selected<br/>file is rather large. Please<br/>wait until the file is loaded.'), type = "message")
  }
  session$sendCustomMessage("unbindDT", "cutVarsNewVarNames")
  session$sendCustomMessage("unbindDT", "cutVarsNewValLables")
  if(length(parseFilePaths(available.volumes, input$cutVarsChooseSrcFile)$datapath) > 0) {
    file.select.cut.vars$loaded <- get(load(parseFilePaths(available.volumes, input$cutVarsChooseSrcFile)$datapath))
    file.select.cut.vars$var.classes <- lapply(X = file.select.cut.vars$loaded, FUN = class)
    if("lsa.data" %in% class(file.select.cut.vars$loaded)) {
      file.select.cut.vars$is.lsa.data <- TRUE
    } else {
      file.select.cut.vars$is.lsa.data <- FALSE
    }
    file.select.cut.vars$study <- attr(x = file.select.cut.vars$loaded, which = "study")
    file.select.cut.vars$cycle <- attr(x = file.select.cut.vars$loaded, which = "cycle")
    file.select.cut.vars$resp.type <- attr(x = file.select.cut.vars$loaded, which = "file.type")
    file.select.cut.vars$loaded <- data.table(Variables = names(file.select.cut.vars$loaded), Variable_Labels = sapply(X = file.select.cut.vars$loaded, FUN = function(j) {
      if(is.null(attr(x = j, which = "variable.label"))) {
        return(NA_character_)
      } else {
        attr(x = j, which = "variable.label")
      }
    }),
    order_col = 1:ncol(file.select.cut.vars$loaded))
  }
  output$cutVarsSrcPathDisplay <- renderText({parseFilePaths(available.volumes, input$cutVarsChooseSrcFile)$datapath})
}, ignoreInit = TRUE)
observe({
  if(!is.null(file.select.cut.vars$loaded) && file.select.cut.vars$is.lsa.data == FALSE) {
    showNotification(ui = HTML('The data is not of class "lsa.data".<br/>Please check the file content.'), type = "error")
  } else if (!is.null(file.select.cut.vars$loaded) && file.select.cut.vars$is.lsa.data == TRUE) {
    output$cutVarsStudyName <- renderText({
      if(is.null(file.select.cut.vars$resp.type)) {
        return(NULL)
      } else {
        HTML(paste0('Study: ', file.select.cut.vars$study))
      }
    })
    output$cutVarsStudyCycle <- renderText({
      if(is.null(file.select.cut.vars$resp.type)) {
        return(NULL)
      } else {
        HTML(paste0('Cycle: ', file.select.cut.vars$cycle))
      }
    })
    output$cutVarsRespHead <- renderText({
      if(is.null(file.select.cut.vars$resp.type)) {
        return(NULL)
      } else {
        HTML('<u>The file contains data from the following respondents:</u>')
      }
    })
    output$cutVarsRespAvailable <- renderText({
      if(is.null(file.select.cut.vars$resp.type)) {
        return(NULL)
      } else {
        HTML(file.merged.respondents[[file.select.cut.vars$resp.type]])
      }
    })
    output$cutVarsVariablesExplText <- renderText({
      if(is.null(file.select.cut.vars$resp.type)) {
        return(NULL)
      } else {
        HTML('Use the panels below to select the variables which shall be into new discrete onses.<br/>Notes:</br>&emsp;1. The selected variables <u>must</u> be continuous and not categorical. No plausible values are accepted; and</br>&emsp;2. The cut points need to be within the ranges of the selected variables.<br/>Running the "Data diagnostics" module in advance can be helpful to identify the structure of the variables of interest.</br>')
      }
    })
    cut.initial.available.vars <- data.table(Variables = as.character(), Variable_Labels = as.character(), order_col = as.numeric())
    cut.initial.selected.vars <- data.table(Variables = as.character(), Variable_Labels = as.character(), order_col = as.numeric())
    cutAllVars <- reactiveValues(cutAvailVars = cut.initial.available.vars, cutSelectedVars = cut.initial.selected.vars)
    observe({
      if(!is.null(file.select.cut.vars$loaded)) {
        cutAllVars$cutAvailVars <- file.select.cut.vars$loaded
      }
    })
    output$cutVarsArrowSelVarsRight <- renderUI({
      if(is.null(file.select.cut.vars$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "cutVarsArrowSelVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$cutVarsArrowSelVarsLeft <- renderUI({
      if(is.null(file.select.cut.vars$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "cutVarsArrowSelVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$cutVarsAllAvailableVars <- renderDT({
      if(is.null(file.select.cut.vars$resp.type)) {
        return(NULL)
      } else {
        setkeyv(x = cutAllVars$cutAvailVars, cols = "order_col")
      }
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Available variables"),
    rownames = FALSE,
    filter = "top",
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "All variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 400, scroller = TRUE
    ))
    output$cutVarsSelection <- renderDT({
      if(is.null(file.select.cut.vars$resp.type)) {
        return(NULL)
      } else {
        setkeyv(x = cutAllVars$cutSelectedVars, cols = "order_col")
      }
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Selected variables"),
    rownames = FALSE,
    filter = "top",
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 400, scroller = TRUE
    ))
    observeEvent(input$cutVarsArrowSelVarsRight, {
      req(input$cutVarsAllAvailableVars_rows_selected)
      cutAllVars$cutSelectedVars <- rbind(isolate(cutAllVars$cutSelectedVars), cutAllVars$cutAvailVars[input$cutVarsAllAvailableVars_rows_selected, , drop = FALSE])
      cutAllVars$cutSelectedVars <- cutAllVars$cutSelectedVars[complete.cases(cutAllVars$cutSelectedVars[ , "Variables"]), , drop = FALSE]
      cutAllVars$cutAvailVars <- isolate(cutAllVars$cutAvailVars[-input$cutVarsAllAvailableVars_rows_selected, , drop = FALSE])
      session$sendCustomMessage("unbindDT", "cutVarsNewVarNames")
      session$sendCustomMessage("unbindDT", "cutVarsNewValLables")
    })
    observeEvent(input$cutVarsArrowSelVarsLeft, {
      req(input$cutVarsSelection_rows_selected)
      cutAllVars$cutAvailVars <- rbind(isolate(cutAllVars$cutAvailVars), cutAllVars$cutSelectedVars[input$cutVarsSelection_rows_selected, , drop = FALSE])
      cutAllVars$cutAvailVars <- cutAllVars$cutAvailVars[complete.cases(cutAllVars$cutAvailVars[ , "Variables"]), , drop = FALSE]
      cutAllVars$cutSelectedVars <- isolate(cutAllVars$cutSelectedVars[-input$cutVarsSelection_rows_selected, , drop = FALSE])
      session$sendCustomMessage("unbindDT", "cutVarsNewVarNames")
      session$sendCustomMessage("unbindDT", "cutVarsNewValLables")
    })
    output$cutVarsNonNumericWarn <- renderText({
      if(nrow(cutAllVars$cutSelectedVars) > 0 & any(file.select.cut.vars$var.classes[intersect(cutAllVars$cutSelectedVars[ , Variables], names(file.select.cut.vars$var.classes))] != "numeric")) {
        HTML('Some of the selected variables are <u>not</u> numeric. Only numeric variables can be selected for cutting into discrete categorical ones.')
      } else if(nrow(cutAllVars$cutSelectedVars) > 0 & all(file.select.cut.vars$var.classes[intersect(cutAllVars$cutSelectedVars[ , Variables], names(file.select.cut.vars$var.classes))] == "numeric")) {
        return(NULL)
      }
    })
    output$cutVarsPVsWarn <- renderText({
      if(nrow(cutAllVars$cutSelectedVars) > 0 & any(cutAllVars$cutSelectedVars[ , Variables] %in% grep(pattern = paste(all.available.PVs, collapse = "|"), x = cutAllVars$cutSelectedVars[ , Variables], value = TRUE))) {
        HTML('Some of the selected variables are PVs. PVs <u>cannot</u> be selected for cutting into discrete categorical variables.')
      } else if(nrow(cutAllVars$cutSelectedVars) > 0 & any(!cutAllVars$cutSelectedVars[ , Variables] %in% grep(pattern = paste(all.available.PVs, collapse = "|"), x = cutAllVars$cutSelectedVars[ , Variables], value = TRUE))) {
        return(NULL)
      }
    })
    generate.cut.new.inputs <- function(obj, input.type, pix.width) {
      unlist(lapply(X = seq_along(obj), FUN = function(i) {
        i <- paste0(textInput(inputId = paste0(input.type, i), label = NULL, value = NULL, width = pix.width))
      }))
    }
    gather.cut.new.inputs.data <- function(id, len) {
      unlist(lapply(seq_len(len), function(i) {
        input[[paste0(id, i)]]
      }))
    }
    cut.initial.new.var.names <- reactiveValues(names = NULL)
    cut.entered.new.var.names <- reactiveValues(names = NULL)
    cut.new.var.names <- reactiveValues(names = NULL)
    observe({
      cut.entered.new.var.names$names <- data.table(
        V1 = cutAllVars$cutSelectedVars[ , Variables],
        V2 = rep(x = as.character(icon(name = "arrow-right")), times = length(cutAllVars$cutSelectedVars[ , Variables])),
        V3 = generate.cut.new.inputs(obj = cutAllVars$cutSelectedVars[ , Variables], input.type = "newvarnames", pix.width = "100%"),
        V4 = generate.cut.new.inputs(obj = cutAllVars$cutSelectedVars[ , Variables], input.type = "newvarlabels", pix.width = "100%")
      )
      cut.new.var.names$names <- gather.cut.new.inputs.data(id = "newvarnames", len = length(cutAllVars$cutSelectedVars[ , Variables]))
    })
    output$cutVarsInstructionVarNames <- renderText({
      if(!is.null(file.select.cut.vars$loaded) & nrow(cutAllVars$cutSelectedVars) > 0 & all(file.select.cut.vars$var.classes[intersect(cutAllVars$cutSelectedVars[ , Variables], names(file.select.cut.vars$var.classes))] == "numeric") & any(!cutAllVars$cutSelectedVars[ , Variables] %in% grep(pattern = paste(all.available.PVs, collapse = "|"), x = cutAllVars$cutSelectedVars[ , Variables], value = TRUE))) {
        HTML('Use the table below to input the new variable names and their labels. If no variable labels are specified, they will be copied over from the original variables.')
      } else {
        return(NULL)
      }
    })
    output$cutVarsWarnIncompleteVarLabs <- renderText({
      if(nrow(cutAllVars$cutSelectedVars) > 0 &
         !all(cut.new.var.labels$labels == "") & length(cutAllVars$cutSelectedVars[ , Variables]) != length(cut.new.var.labels$labels[!cut.new.var.labels$labels %in% ""])
      ) {
        HTML('Either all or none of the variable labels must be defined.')
      } else {
        return(NULL)
      }
    })
    output$cutVarsNewVarNames <- renderDT({
      if(!is.null(file.select.cut.vars$loaded) & nrow(cutAllVars$cutSelectedVars) > 0 & all(file.select.cut.vars$var.classes[intersect(cutAllVars$cutSelectedVars[ , Variables], names(file.select.cut.vars$var.classes))] == "numeric") & any(!cutAllVars$cutSelectedVars[ , Variables] %in% grep(pattern = paste(all.available.PVs, collapse = "|"), x = cutAllVars$cutSelectedVars[ , Variables], value = TRUE))) {
        cut.entered.new.var.names$names
      } else {
        return(NULL)
      }
    },
    rownames = FALSE,
    colnames = c("Old variable names", as.character(icon(name = "arrow-right")), "New variable names", "New variable labels (optional)"),
    class = "cell-border stripe;compact cell-border;",
    selection="none",
    escape = FALSE,
    options = list(
      pageLength = 5000,
      dom = 'BRrt',
      autoWidth = TRUE,
      columnDefs = list(list(width = '190px', targets = 0), list(width = '50px', targets = 1), list(width = '175px', targets = 2), list(className = 'dt-center', targets = 1:2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      preDrawCallback = JS('function() { Shiny.unbindAll(this.api().table().node()); }'),
      drawCallback = JS('function() { Shiny.bindAll(this.api().table().node()); } ')
    ))
    cut.initial.new.var.labels <- reactiveValues(labels = NULL)
    cut.entered.new.var.labels <- reactiveValues(labels = NULL)
    cut.new.var.labels <- reactiveValues(labels = NULL)
    observe({
      cut.entered.new.var.labels$labels <- data.table(
        V1 = cutAllVars$cutSelectedVars[ , Variables],
        V2 = generate.cut.new.inputs(obj = cutAllVars$cutSelectedVars[ , Variables], input.type = "newvarlabels", pix.width = "100%")
      )
      cut.new.var.labels$labels <- gather.cut.new.inputs.data(id = "newvarlabels", len = length(cutAllVars$cutSelectedVars[ , Variables]))
    })
    output$cutVarsCutPoints <- renderUI({
      if(is.null(file.select.cut.vars$loaded) | nrow(cutAllVars$cutSelectedVars) == 0 |
         nrow(cutAllVars$cutSelectedVars) != length(cut.new.var.names$names[!cut.new.var.names$names %in% ""]) |
         !all(cut.new.var.labels$labels == "") & length(cutAllVars$cutSelectedVars[ , Variables]) != length(cut.new.var.labels$labels[!cut.new.var.labels$labels %in% ""])
      ) {
        return(NULL)
      } else {
        textInput(inputId = "cutVarsCutPoints", label = "Define cut points", value = numeric(), width = "350px")
      }
    })
    output$cutVarsCutPointsReset <- renderUI({
      if(is.null(file.select.cut.vars$loaded) | nrow(cutAllVars$cutSelectedVars) == 0 |
         nrow(cutAllVars$cutSelectedVars) != length(cut.new.var.names$names[!cut.new.var.names$names %in% ""]) |
         !all(cut.new.var.labels$labels == "") & length(cutAllVars$cutSelectedVars[ , Variables]) != length(cut.new.var.labels$labels[!cut.new.var.labels$labels %in% ""])
      ) {
        return(NULL)
      } else {
        actionButton(inputId = "cutVarsCutPointsReset", label = "Reset", icon = icon("undo-alt"), style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    cut.points.not.numbers <- reactiveVal()
    observe({
      if(!is.null(input$cutVarsCutPoints) && grepl(pattern = "[[:alpha:]]|(?=[^.[:^punct:]])", x = input$cutVarsCutPoints, perl = TRUE) == TRUE) {
        cut.points.not.numbers(TRUE)
      } else if(!is.null(input$cutVarsCutPoints) && grepl(pattern = "[[:alpha:]]|(?=[^.[:^punct:]])", x = input$cutVarsCutPoints, perl = TRUE) == FALSE) {
        cut.points.not.numbers(FALSE)
      }
    })
    output$cutVarsCutPointsNotNum <- renderText({
      if(!is.null(input$cutVarsCutPoints) && cut.points.not.numbers() == TRUE) {
        HTML('<br/>Warning: The values passed to the field on the left can contain <u>only</u> numbers and spaces. Please check the input.')
      } else {
        return(NULL)
      }
    })
    observeEvent(input$cutVarsCutPointsReset, {
      shinyjs::reset("cutVarsCutPoints")
    })
    initial.cut.new.values <- reactiveValues(values = NULL)
    cut.entered.new.values <- reactiveValues(values = NULL)
    new.cut.labels <- reactiveValues(labels = NULL)
    generate.cut.pairs <- function(obj) {
      if(!is.null(obj)) {
        tmp <- unlist(str_split(string = obj, pattern = "[[:space:]]+"))
        tmp <- c("From lowest", tmp, "highest")
        tmp <- cbind(tmp[-length(tmp)], tmp[-1])
        tmp <- apply(X = tmp, MARGIN = 1, FUN = paste, collapse = " up to ")
        tmp[2:length(tmp)] <- paste0("From above ", tmp[2:length(tmp)])
        return(tmp)
      }
    }
    observe({
      cut.entered.new.values$values <- cbind(
        V1 = data.table(generate.cut.pairs(obj = trimws(x = input$cutVarsCutPoints))),
        V2 = data.table(1:(length(unlist(str_split(string = trimws(x = input$cutVarsCutPoints), pattern = "[[:space:]]+"))) + 1)),
        V3 = data.table(generate.cut.new.inputs(obj = 1:(length(unlist(str_split(string = trimws(input$cutVarsCutPoints), pattern = "[[:space:]]+"))) + 1), input.type = "labinp", pix.width = "100%")))
      new.cut.labels$labels <- gather.cut.new.inputs.data(id = "labinp", len = length(1:(length(unlist(str_split(string = trimws(x = input$cutVarsCutPoints), pattern = "[[:space:]]+"))) + 1)))
    })
    output$cutVarsInstructionLabels <- renderText({
      if(
        is.null(file.select.cut.vars$loaded) | nrow(cutAllVars$cutSelectedVars) == 0 | nrow(cutAllVars$cutSelectedVars) != length(cut.new.var.names$names[!cut.new.var.names$names %in% ""]) |
        !all(cut.new.var.labels$labels == "") && !all(cut.new.var.labels$labels != "") | is.null(input$cutVarsCutPoints) || input$cutVarsCutPoints == ""
      ) {
        return(NULL)
      } else {
        HTML('Define the labels of the levels in the new categorical variables. If no labels are defined, the resulting variables will be numeric.')
      }
    })
    output$cutVarsWarnIncompleteLabels <- renderText({
      if(!is.null(file.select.cut.vars$loaded) & nrow(cutAllVars$cutSelectedVars) > 0 & !is.null(cut.new.var.names$names) & !"" %in% cut.new.var.names$names & length(cut.new.var.names$names) == nrow(cutAllVars$cutSelectedVars) & !is.null(input$cutVarsCutPoints) && input$cutVarsCutPoints != "" & !is.null(new.cut.labels$labels) & !all(new.cut.labels$labels == "") & "" %in% new.cut.labels$labels) {
        HTML('If new value labels are to be assigned, they need to be assigned to all new levels.')
      } else {
        return(NULL)
      }
    })
    output$cutVarsNewValLables <- renderDT({
      if(
        is.null(file.select.cut.vars$loaded) | nrow(cutAllVars$cutSelectedVars) == 0 | nrow(cutAllVars$cutSelectedVars) != length(cut.new.var.names$names[!cut.new.var.names$names %in% ""]) |
        !all(cut.new.var.labels$labels == "") && !all(cut.new.var.labels$labels != "") | is.null(input$cutVarsCutPoints) || input$cutVarsCutPoints == ""
      ) {
        return(NULL)
      } else {
        cut.entered.new.values$values
      }
    },
    rownames = FALSE,
    colnames = c("Cut categories", "New levels", "New labels"),
    class = "cell-border stripe;compact cell-border;",
    selection = "none",
    escape = FALSE,
    options = list(
      pageLength = 5000,
      dom = 'BRrt',
      autoWidth = TRUE,
      columnDefs = list(list(width = '150px', targets = 0), list(width = "15px", targets = 1), list(className = 'dt-center', targets = 1)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      preDrawCallback = JS('function() { Shiny.unbindAll(this.api().table().node()); }'),
      drawCallback = JS('function() { Shiny.bindAll(this.api().table().node()); } ')
    ))
    observe({
      if(nrow(cutAllVars$cutSelectedVars) == 0) {
        session$sendCustomMessage("unbindDT", "cutVarsNewVarNames")
        session$sendCustomMessage("unbindDT", "cutVarsNewValLables")
      }
    })
    observe({
      if(
        is.null(file.select.cut.vars$loaded) | is.null(new.cut.labels$labels) | is.null(input$cutVarsCutPoints) || input$cutVarsCutPoints == "" |
        !all(cut.new.var.labels$labels == "") && "" %in% cut.new.var.labels$labels | nrow(cutAllVars$cutSelectedVars) == 0 |
        nrow(cutAllVars$cutSelectedVars) != length(cut.new.var.names$names[!cut.new.var.names$names %in% ""]) |
        !is.null(new.cut.labels$labels) && !all(new.cut.labels$labels == "") && "" %in% new.cut.labels$labels
      ) {
        hide("cutVarsChooseOutFile")
      } else {
        show("cutVarsChooseOutFile")
      }
      if(
        is.null(file.select.cut.vars$loaded) | length(parseSavePath(available.volumes, input$cutVarsChooseOutFile)$datapath) < 1 |
        is.null(new.cut.labels$labels) | is.null(input$cutVarsCutPoints) || input$cutVarsCutPoints == "" |
        !all(cut.new.var.labels$labels == "") && "" %in% cut.new.var.labels$labels | nrow(cutAllVars$cutSelectedVars) == 0 |
        nrow(cutAllVars$cutSelectedVars) != length(cut.new.var.names$names[!cut.new.var.names$names %in% ""]) |
        !is.null(new.cut.labels$labels) && !all(new.cut.labels$labels == "") && "" %in% new.cut.labels$labels
      ) {
        hide("cutVarsSyntaxHead")
        hide("saveCutVarsSyntax")
        hide("copyCutVarsSyntax")
        hide("cutVarsSyntax")
        hide("cutVarsExecBtnHead")
        hide("execCutVars")
        hide("consoleCutVars")
      } else {
        show("cutVarsSyntaxHead")
        show("saveCutVarsSyntax")
        show("copyCutVarsSyntax")
        show("cutVarsSyntax")
        show("cutVarsExecBtnHead")
        show("execCutVars")
        show("consoleCutVars")
      }
    })
    shinyFileSave(input, "cutVarsChooseOutFile", filetype = list(RData = "RData"), session = session, roots = available.volumes, updateFreq = 100000)
    syntaxCutVars <- reactive({
      file.select.cut.vars$cutVarsSyntax <- paste0(
        'lsa.cut.vars(data.file = "', parseFilePaths(available.volumes, input$cutVarsChooseSrcFile)$datapath,
        if(nrow(cutAllVars$cutSelectedVars) == 1) {
          paste0(paste0('", src.variables = "', cutAllVars$cutSelectedVars[ , Variables]), '"')
        } else if(nrow(cutAllVars$cutSelectedVars) > 1) {
          paste0(paste0('", src.variables = c("', paste(cutAllVars$cutSelectedVars[ , Variables], collapse = '", "')), '")')
        },
        if(!is.null(cut.new.var.names$names) && !all(cut.new.var.names$names %in% "") && length(cut.new.var.names$names) > 1) {
          paste0(', new.variables = c("', paste(cut.new.var.names$names, collapse = '", "'), '")')
        } else if(!is.null(cut.new.var.names$names) && !all(cut.new.var.names$names %in% "") && length(cut.new.var.names$names) == 1) {
          paste0(', new.variables = "', cut.new.var.names$names, '"')
        },
        if(!is.null(cut.new.var.labels$labels) && any(cut.new.var.labels$labels != "")) {
          if(length(cut.new.var.labels$labels) == 1) {
            paste0(', new.var.labels = "', paste(cut.new.var.labels$labels, collapse = '", "'), '"')
          } else if(length(cut.new.var.labels$labels) > 1) {
            paste0(', new.var.labels = c("', paste(cut.new.var.labels$labels, collapse = '", "'), '")')
          }
        },
        if(!is.null(cut.new.var.names$names) && all(cut.new.var.names$names != "") && length(unlist(str_split(string = trimws(input$cutVarsCutPoints), pattern = "[[:space:]]"))) > 1) {
          paste0(', cut.points = c(', gsub(pattern = "[[:space:]]+", replacement = ", ", x = trimws(unlist(input$cutVarsCutPoints))), ')')
        } else if(!is.null(cut.new.var.names$names) && all(cut.new.var.names$names != "") && length(unlist(str_split(string = trimws(input$cutVarsCutPoints), pattern = "[[:space:]]"))) == 1) {
          paste0(', cut.points = ', paste(unlist(str_split(string = trimws(input$cutVarsCutPoints), pattern = "[[:space:]]")), collapse = '", "'), '')
        },
        if(!is.null(new.cut.labels$labels) & all(new.cut.labels$labels != "")) {
          paste0(', value.labels = c("', paste(new.cut.labels$labels, collapse = '", "'), '")')
        },
        if(length(parseSavePath(available.volumes, input$cutVarsChooseOutFile)$datapath) == 1) {
          paste0(', out.file = "', parseSavePath(available.volumes, input$cutVarsChooseOutFile)$datapath, '")')
        }
      )
    })
    output$cutVarsSyntaxHead <- renderText({
      if(!is.null(file.select.cut.vars$loaded) && length(parseSavePath(available.volumes, input$cutVarsChooseOutFile)$datapath) == 1) {
        HTML("Syntax")
      } else {
        return(NULL)
      }
    })
    output$copyCutVarsSyntax <- renderUI({
      rclipButton(inputId = "copyCutVarsSyntax", label = "Copy syntax", clipText = syntaxCutVars(), icon = icon("copy"), style = "color: #ffffff; background-color: #000000; border-radius: 5px; font-size: 80%; margin-bottom: 1px; padding: 1px; width: 85px; margin-top: 1px")
    })
    output$cutVarsSyntax <- renderText({
      if(!is.null(file.select.cut.vars$loaded) && length(parseSavePath(available.volumes, input$cutVarsChooseOutFile)$datapath) == 1) {
        syntaxCutVars()
      } else {
        return(NULL)
      }
    })
    output$cutVarsExecBtnHead <- renderText({
      if(!is.null(file.select.cut.vars$loaded) && length(parseSavePath(available.volumes, input$cutVarsChooseOutFile)$datapath) == 1) {
        HTML("Press the button below to execute the syntax")
      } else {
        return(NULL)
      }
    })
    output$execCutVars <- renderUI({
      if(!is.null(file.select.cut.vars$loaded) && length(parseSavePath(available.volumes, input$cutVarsChooseOutFile)$datapath) == 1) {
        actionButton(inputId = "execCutVars", label = "Execute syntax", icon = icon("cogs"), style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      } else {
        return(NULL)
      }
    })
    observeEvent(input$execCutVars, {
      showNotification(ui = HTML("<br/>   Execution started.   <br/><br/>"), type = "message")
      withCallingHandlers({html("consoleCutVars", "")
        tryCatch({
          expr = eval(parse(text = file.select.cut.vars$cutVarsSyntax))
          showNotification(ui = HTML("<br/>   All operations complete!   <br/><br/>"), type = "message", duration = NULL)
        }, error = function(e) {
          message("", e)
          showNotification(ui = HTML(paste0("Something went wrong. Possible reasons: <br/>", paste(gsub(pattern = "\\n|Error: ", replacement = "<br/>", x = e)))), type = "error", duration = NULL)
        })
      },
      message = function(i) {
        shinyjs::html(id = "consoleCutVars", html = i$message, add = TRUE)
      },
      warning = function(w) {
        shinyjs::html(id = "consoleCutVars", html = paste0("Warning: ", w$message, "\n"), add = TRUE)
      })
      session$sendCustomMessage(type = "scrollCallback", 1)
    }, ignoreInit = TRUE)
  }
})
hide("aggrVarsChooseOutFile")
hide("aggrVarsMeansSyntax")
hide("copyAggrVarsSyntax")
hide("saveAggrVarsSyntax")
output$h1AggrVars <- renderText("Aggregate variables by group")
output$aggrVarsIntro <- renderText({HTML("Select large-scale assessment .RData file to load.")})
file.aggr.vars <- reactiveValues(loaded = NULL, is.lsa.data = NULL, resp.type = NULL, study = NULL, cycle = NULL, country.ID = NULL, var.classes = NULL, src.not.allowed = NULL, aggr.vars.syntax = NULL)
shinyFileChoose(input, "aggrVarsChooseSrcFile", roots = available.volumes, filetype = list(RData = "RData"))
observeEvent(eventExpr = input$aggrVarsChooseSrcFile, {
  file.aggr.vars$loaded <- NULL
  file.aggr.vars$study <- NULL
  file.aggr.vars$cycle <- NULL
  file.aggr.vars$resp.type <- NULL
  file.aggr.vars$var.classes <- NULL
  file.aggr.vars$src.not.allowed <- NULL
  if(length(parseFilePaths(available.volumes, input$aggrVarsChooseSrcFile)$datapath) > 0 && file.size(parseFilePaths(available.volumes, input$aggrVarsChooseSrcFile)$datapath) > 104857600) {
    showNotification(ui = HTML('The size of the selected<br/>file is rather large. Please<br/>wait until the file is loaded.'), type = "message")
  }
  session$sendCustomMessage("unbindDT", "aggrVarsGroupVars")
  session$sendCustomMessage("unbindDT", "aggrVarsSrcVars")
  session$sendCustomMessage("unbindDT", "aggrVarsNewVarNames")
  if(length(parseFilePaths(available.volumes, input$aggrVarsChooseSrcFile)$datapath) > 0) {
    file.aggr.vars$loaded <- get(load(parseFilePaths(available.volumes, input$aggrVarsChooseSrcFile)$datapath))
    file.aggr.vars$var.classes <- lapply(X = file.aggr.vars$loaded, FUN = class)
    if("lsa.data" %in% class(file.aggr.vars$loaded)) {
      file.aggr.vars$is.lsa.data <- TRUE
    } else {
      file.aggr.vars$is.lsa.data <- FALSE
    }
    file.aggr.vars$study <- attr(x = file.aggr.vars$loaded, which = "study")
    file.aggr.vars$cycle <- attr(x = file.aggr.vars$loaded, which = "cycle")
    file.aggr.vars$resp.type <- attr(x = file.aggr.vars$loaded, which = "file.type")
    file.aggr.vars$loaded <- data.table(Variables = names(file.aggr.vars$loaded), Variable_Labels = sapply(X = file.aggr.vars$loaded, FUN = function(j) {
      if(is.null(attr(x = j, which = "variable.label"))) {
        return(NA_character_)
      } else {
        attr(x = j, which = "variable.label")
      }
    }),
    order_col = 1:ncol(file.aggr.vars$loaded))
    file.aggr.vars$country.ID <- NULL
    if("IDCNTRY" %in% file.aggr.vars$loaded[ , Variables]) {
      file.aggr.vars$country.ID <- "IDCNTRY"
    } else {
      file.aggr.vars$country.ID <- "CNT"
    }
    file.aggr.vars$src.not.allowed <- c(grep(pattern = paste(c(unique(gsub(pattern = "[[:digit:]]+$", replacement = "", x = unique(unlist(studies.all.design.variables[["sampling.vars"]])))), unique(unlist(studies.all.design.variables[["PV.roots"]]))), collapse = "|"), x = file.aggr.vars$loaded[ , Variables], value = TRUE), grep(pattern = "^WGTADJ", x = file.aggr.vars$loaded[ , Variables], value = TRUE))
  }
  output$aggrVarsSrcPathDisplay <- renderText({parseFilePaths(available.volumes, input$aggrVarsChooseSrcFile)$datapath})
}, ignoreInit = TRUE)
observe({
  if(!is.null(file.aggr.vars$loaded) && file.aggr.vars$is.lsa.data == FALSE) {
    showNotification(ui = HTML('The data is not of class "lsa.data".<br/>Please check the file content.'), type = "error")
  } else if (!is.null(file.aggr.vars$loaded) && file.aggr.vars$is.lsa.data == TRUE) {
    output$aggrVarsStudyName <- renderText({
      if(is.null(file.aggr.vars$resp.type)) {
        return(NULL)
      } else {
        HTML(paste0('Study: ', file.aggr.vars$study))
      }
    })
    output$aggrVarsStudyCycle <- renderText({
      if(is.null(file.aggr.vars$resp.type)) {
        return(NULL)
      } else {
        HTML(paste0('Cycle: ', file.aggr.vars$cycle))
      }
    })
    output$aggrVarsRespHead <- renderText({
      if(is.null(file.aggr.vars$resp.type)) {
        return(NULL)
      } else {
        HTML('<u>The file contains data from the following respondents:</u>')
      }
    })
    output$aggrVarsRespAvailable <- renderText({
      if(is.null(file.aggr.vars$resp.type)) {
        return(NULL)
      } else {
        HTML(file.merged.respondents[[file.aggr.vars$resp.type]])
      }
    })
    output$aggrVarsVariablesExplText <- renderText({
      if(is.null(file.aggr.vars$resp.type)) {
        return(NULL)
      } else {
        HTML('Use the panels below to select the variables to aggregate by groups specified by grouping variables.')
      }
    })
    aggr.vars.initial.available.vars <- file.aggr.vars$loaded[!Variables %in% file.aggr.vars$country.ID, ]
    aggr.vars.initial.selected.group.vars <- file.aggr.vars$loaded[Variables == file.aggr.vars$country.ID, ]
    aggr.vars.initial.selected.src.vars <- data.table(Variables = as.character(), Variable_Labels = as.character(), order_col = as.numeric())
    aggrVarsAllVars <- reactiveValues(aggrVarsAvailVars = aggr.vars.initial.available.vars, aggrVarsSelectedGroupVars = aggr.vars.initial.selected.group.vars, aggrVarsSelectedSrcVars = aggr.vars.initial.selected.src.vars)
    output$aggrVarsArrowSelGroupVarsRight <- renderUI({
      if(is.null(file.aggr.vars$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "aggrVarsArrowSelGroupVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$aggrVarsArrowSelGroupVarsLeft <- renderUI({
      if(is.null(file.aggr.vars$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "aggrVarsArrowSelGroupVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$aggrVarsArrowSelSrcVarsRight <- renderUI({
      if(is.null(file.aggr.vars$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "aggrVarsArrowSelSrcVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$aggrVarsArrowSelSrcVarsLeft <- renderUI({
      if(is.null(file.aggr.vars$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "aggrVarsArrowSelSrcVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    observeEvent(input$aggrVarsArrowSelGroupVarsRight, {
      req(input$aggrVarsAllAvailableVars_rows_selected)
      aggrVarsAllVars$aggrVarsSelectedGroupVars <- rbind(isolate(aggrVarsAllVars$aggrVarsSelectedGroupVars), aggrVarsAllVars$aggrVarsAvailVars[input$aggrVarsAllAvailableVars_rows_selected, , drop = FALSE])
      aggrVarsAllVars$aggrVarsSelectedGroupVars <- aggrVarsAllVars$aggrVarsSelectedGroupVars[complete.cases(aggrVarsAllVars$aggrVarsSelectedGroupVars[ , "Variables"]), , drop = FALSE]
      aggrVarsAllVars$aggrVarsAvailVars <- isolate(aggrVarsAllVars$aggrVarsAvailVars[-input$aggrVarsAllAvailableVars_rows_selected, , drop = FALSE])
      session$sendCustomMessage("unbindDT", "aggrVarsNewVarNames")
    })
    observeEvent(input$aggrVarsArrowSelGroupVarsLeft, {
      req(input$aggrVarsGroupVars_rows_selected)
      aggrVarsAllVars$aggrVarsAvailVars <- rbind(isolate(aggrVarsAllVars$aggrVarsAvailVars),        aggrVarsAllVars$aggrVarsSelectedGroupVars[input$aggrVarsGroupVars_rows_selected, , drop = FALSE])
      aggrVarsAllVars$aggrVarsAvailVars <- aggrVarsAllVars$aggrVarsAvailVars[complete.cases(aggrVarsAllVars$aggrVarsAvailVars[ , "Variables"]), , drop = FALSE]
      if(nrow(aggrVarsAllVars$aggrVarsSelectedGroupVars) > 0) {
        aggrVarsAllVars$aggrVarsSelectedGroupVars <- isolate(aggrVarsAllVars$aggrVarsSelectedGroupVars[-input$aggrVarsGroupVars_rows_selected, , drop = FALSE])
      }
      if(!file.aggr.vars$country.ID %in% aggrVarsAllVars$aggrVarsSelectedGroupVars[ , Variables]) {
        showNotification(ui = HTML("Country ID <b>must always be</b> the first grouping variable!"), type = "error")
      }
      aggrVarsAllVars$aggrVarsSelectedGroupVars <- rbindlist(l = list(aggrVarsAllVars$aggrVarsSelectedGroupVars, aggrVarsAllVars$aggrVarsAvailVars[Variables == file.aggr.vars$country.ID, ]))
      aggrVarsAllVars$aggrVarsAvailVars <- aggrVarsAllVars$aggrVarsAvailVars[Variables != file.aggr.vars$country.ID, ]
      session$sendCustomMessage("unbindDT", "aggrVarsNewVarNames")
    })
    observeEvent(input$aggrVarsArrowSelSrcVarsRight, {
      req(input$aggrVarsAllAvailableVars_rows_selected)
      aggrVarsAllVars$aggrVarsSelectedSrcVars <- rbind(isolate(aggrVarsAllVars$aggrVarsSelectedSrcVars), aggrVarsAllVars$aggrVarsAvailVars[input$aggrVarsAllAvailableVars_rows_selected, , drop = FALSE])
      aggrVarsAllVars$aggrVarsSelectedSrcVars <- aggrVarsAllVars$aggrVarsSelectedSrcVars[complete.cases(aggrVarsAllVars$aggrVarsSelectedSrcVars[ , "Variables"]), , drop = FALSE]
      aggrVarsAllVars$aggrVarsAvailVars <- isolate(aggrVarsAllVars$aggrVarsAvailVars[-input$aggrVarsAllAvailableVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$aggrVarsArrowSelSrcVarsLeft, {
      req(input$aggrVarsSrcVars_rows_selected)
      aggrVarsAllVars$aggrVarsAvailVars <- rbind(isolate(aggrVarsAllVars$aggrVarsAvailVars),        aggrVarsAllVars$aggrVarsSelectedSrcVars[input$aggrVarsSrcVars_rows_selected, , drop = FALSE])
      aggrVarsAllVars$aggrVarsAvailVars <- aggrVarsAllVars$aggrVarsAvailVars[complete.cases(aggrVarsAllVars$aggrVarsAvailVars[ , "Variables"]), , drop = FALSE]
      aggrVarsAllVars$aggrVarsSelectedSrcVars <- isolate(aggrVarsAllVars$aggrVarsSelectedSrcVars[-input$aggrVarsSrcVars_rows_selected, , drop = FALSE])
    })
    output$aggrVarsAllAvailableVars <- renderDT({
      if(!is.null(file.aggr.vars$loaded)) {
        setkeyv(x = aggrVarsAllVars$aggrVarsAvailVars, cols = "order_col")
      } else {
        NULL
      }
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Available variables"),
    rownames = FALSE,
    filter = "top",
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables available"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 400, scroller = TRUE
    ))
    output$aggrVarsGroupVars <- renderDT({
      if(!is.null(file.aggr.vars$loaded)) {
        aggrVarsAllVars$aggrVarsSelectedGroupVars
      } else {
        NULL
      }
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Group variables"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$aggrVarsSrcVars <- renderDT({
      if(!is.null(file.aggr.vars$loaded)) {
        aggrVarsAllVars$aggrVarsSelectedSrcVars
      } else {
        NULL
      }
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Source variables"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 226, scroller = TRUE
    ))
    output$aggrVarsNonNumericWarn <- renderText({
      if(nrow(aggrVarsAllVars$aggrVarsSelectedSrcVars) > 0 & any(file.aggr.vars$var.classes[intersect(aggrVarsAllVars$aggrVarsSelectedSrcVars[ , Variables], names(file.aggr.vars$var.classes))] != "numeric")) {
        HTML('<u>Non-numeric</u> variable(s) selected. Only numeric variables can be selected for aggregation.')
      } else if(nrow(aggrVarsAllVars$aggrVarsSelectedSrcVars) > 0 & all(file.aggr.vars$var.classes[intersect(aggrVarsAllVars$aggrVarsSelectedSrcVars[ , Variables], names(file.aggr.vars$var.classes))] == "numeric")) {
        return(NULL)
      }
    })
    output$aggrVarsDesignWarn <- renderText({
      if(nrow(aggrVarsAllVars$aggrVarsSelectedSrcVars) > 0 & any(file.aggr.vars$src.not.allowed %in% aggrVarsAllVars$aggrVarsSelectedSrcVars[ , Variables])) {
        HTML('PVs, weights or weight design variable(s) selected. Such variables <u>cannot</u> be selected for aggregation.')
      } else if(nrow(aggrVarsAllVars$aggrVarsSelectedSrcVars) > 0 & !any(file.aggr.vars$src.not.allowed %in% aggrVarsAllVars$aggrVarsSelectedSrcVars[ , Variables])) {
        return(NULL)
      }
    })
    generate.aggr.new.inputs <- function(obj, input.type, pix.width) {
      unlist(lapply(X = seq_along(obj), FUN = function(i) {
        i <- paste0(textInput(inputId = paste0(input.type, i), label = NULL, value = NULL, width = pix.width))
      }))
    }
    gather.aggr.new.inputs.data <- function(id, len) {
      unlist(lapply(seq_len(len), function(i) {
        input[[paste0(id, i)]]
      }))
    }
    aggr.initial.new.var.names <- reactiveValues(names = NULL)
    aggr.entered.new.var.names <- reactiveValues(names = NULL)
    aggr.new.var.names <- reactiveValues(names = NULL)
    observe({
      aggr.entered.new.var.names$names <- data.table(
        V1 = aggrVarsAllVars$aggrVarsSelectedSrcVars[ , Variables],
        V2 = rep(x = as.character(icon(name = "arrow-right")), times = length(aggrVarsAllVars$aggrVarsSelectedSrcVars[ , Variables])),
        V3 = generate.aggr.new.inputs(obj = aggrVarsAllVars$aggrVarsSelectedSrcVars[ , Variables], input.type = "newvarnames", pix.width = "100%"),
        V4 = generate.aggr.new.inputs(obj = aggrVarsAllVars$aggrVarsSelectedSrcVars[ , Variables], input.type = "newvarlabels", pix.width = "100%")
      )
      aggr.new.var.names$names <- gather.aggr.new.inputs.data(id = "newvarnames", len = length(aggrVarsAllVars$aggrVarsSelectedSrcVars[ , Variables]))
    })
    output$aggrVarsInstructionVarNames <- renderText({
      if(!is.null(file.aggr.vars$loaded) & nrow(aggrVarsAllVars$aggrVarsSelectedSrcVars) > 0 & all(file.aggr.vars$var.classes[intersect(aggrVarsAllVars$aggrVarsSelectedSrcVars[ , Variables], names(file.aggr.vars$var.classes))] == "numeric") & !any(aggrVarsAllVars$aggrVarsSelectedSrcVars[ , Variables] %in% file.aggr.vars$src.not.allowed)) {
        HTML('Use the table below to input the new variable names and their labels. If no variable labels are specified, they will be copied over from the original variables.')
      } else {
        return(NULL)
      }
    })
    output$aggrVarsWarnIncompleteVarLabs <- renderText({
      if(nrow(aggrVarsAllVars$aggrVarsSelectedSrcVars) > 0 &
         !all(aggr.new.var.labels$labels == "") & length(aggrVarsAllVars$aggrVarsSelectedSrcVars[ , Variables]) != length(aggr.new.var.labels$labels[!aggr.new.var.labels$labels %in% ""])
      ) {
        HTML('Either all or none of the variable labels must be defined.')
      } else {
        return(NULL)
      }
    })
    output$aggrVarsNewVarNames <- renderDT({
      if(!is.null(file.aggr.vars$loaded) & nrow(aggrVarsAllVars$aggrVarsSelectedSrcVars) > 0 & all(file.aggr.vars$var.classes[intersect(aggrVarsAllVars$aggrVarsSelectedSrcVars[ , Variables], names(file.aggr.vars$var.classes))] == "numeric") & !any(aggrVarsAllVars$aggrVarsSelectedSrcVars[ , Variables] %in% file.aggr.vars$src.not.allowed)) {
        aggr.entered.new.var.names$names
      } else {
        return(NULL)
      }
    },
    rownames = FALSE,
    colnames = c("Old variable names", as.character(icon(name = "arrow-right")), "New variable names", "New variable labels (optional)"),
    class = "cell-border stripe;compact cell-border;",
    selection="none",
    escape = FALSE,
    options = list(
      pageLength = 5000,
      dom = 'BRrt',
      autoWidth = TRUE,
      columnDefs = list(list(width = '190px', targets = 0), list(width = '50px', targets = 1), list(width = '175px', targets = 2), list(className = 'dt-center', targets = 1:2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      preDrawCallback = JS('function() { Shiny.unbindAll(this.api().table().node()); }'),
      drawCallback = JS('function() { Shiny.bindAll(this.api().table().node()); } ')
    ))
    aggr.initial.new.var.labels <- reactiveValues(labels = NULL)
    aggr.entered.new.var.labels <- reactiveValues(labels = NULL)
    aggr.new.var.labels <- reactiveValues(labels = NULL)
    observe({
      aggr.entered.new.var.labels$labels <- data.table(
        V1 = aggrVarsAllVars$aggrVarsSelectedSrcVars[ , Variables],
        V2 = generate.aggr.new.inputs(obj = aggrVarsAllVars$aggrVarsSelectedSrcVars[ , Variables], input.type = "newvarlabels", pix.width = "100%")
      )
      aggr.new.var.labels$labels <- gather.aggr.new.inputs.data(id = "newvarlabels", len = length(aggrVarsAllVars$aggrVarsSelectedSrcVars[ , Variables]))
    })
    output$aggrVarsAggregationFunction <- renderUI({
      if(!is.null(file.aggr.vars$loaded) & nrow(aggrVarsAllVars$aggrVarsSelectedSrcVars) > 0 & all(file.aggr.vars$var.classes[intersect(aggrVarsAllVars$aggrVarsSelectedSrcVars[ , Variables], names(file.aggr.vars$var.classes))] == "numeric") & !any(aggrVarsAllVars$aggrVarsSelectedSrcVars[ , Variables] %in% file.aggr.vars$src.not.allowed) & !is.null(aggr.new.var.names$names) & !"" %in% aggr.new.var.names$names & length(unique(aggr.new.var.labels$labels %in% "")) == 1) {
        radioButtons(inputId = "aggrVarsAggregationFunction", label = "Aggregation function", choices = c("Mean", "Median", "Mode"), width = "200px", selected = "Mean")
      } else {
        return(NULL)
      }
    })
    output$aggrVarsAggregationFunctionExpl <- renderText({
      if(!is.null(file.aggr.vars$loaded) & !is.null(aggr.new.var.names$names) & !"" %in% aggr.new.var.names$names & length(unique(aggr.new.var.labels$labels %in% "")) == 1) {
        if(!is.null(input$aggrVarsAggregationFunction) && input$aggrVarsAggregationFunction == "Mean") {
          HTML('<br/><br/>Use the mean function to aggregate continuous variables.')
        } else if(!is.null(input$aggrVarsAggregationFunction) && input$aggrVarsAggregationFunction == "Median") {
          HTML('<br/><br/>Use the median function to aggregate continuous variables.')
        } else if(!is.null(input$aggrVarsAggregationFunction) && input$aggrVarsAggregationFunction == "Mode") {
          HTML('<br/><br/>Use the mode function to aggregate continuous variables.')
        }
      } else {
        return(NULL)
      }
    })
    observe({
      if(!is.null(aggrVarsAllVars$aggrVarsSelectedSrcVars) & nrow(aggrVarsAllVars$aggrVarsSelectedSrcVars) == 0) {
        session$sendCustomMessage("unbindDT", "aggrVarsNewVarNames")
      }
    })
    shinyFileSave(input, "aggrVarsChooseOutFile", filetype = list(RData = "RData"), session = session, roots = available.volumes, updateFreq = 100000)
    observe({
      if(!is.null(file.aggr.vars$loaded) & !is.null(aggr.new.var.names$names) & !"" %in% aggr.new.var.names$names & length(unique(aggr.new.var.labels$labels %in% "")) == 1) {
        show("aggrVarsChooseOutFile")
      } else {
        hide("aggrVarsChooseOutFile")
      }
      if(!is.null(file.aggr.vars$loaded) & !is.null(aggr.new.var.names$names) & !"" %in% aggr.new.var.names$names & length(unique(aggr.new.var.labels$labels %in% "")) == 1 & length(parseSavePath(available.volumes, input$aggrVarsChooseOutFile)$datapath) > 0) {
        show("aggrVarsSyntaxHead")
        show("aggrVarsSyntax")
        show("saveAggrVarsSyntax")
        show("copyAggrVarsSyntax")
        show("consoleAggrVars")
      } else {
        hide("aggrVarsSyntaxHead")
        hide("aggrVarsSyntax")
        hide("saveAggrVarsSyntax")
        hide("copyAggrVarsSyntax")
        hide("consoleAggrVars")
      }
    })
    syntaxAggrVars <- reactive({
      file.aggr.vars$aggr.vars.syntax <- paste0(
        'lsa.aggregate.vars(data.file = "', parseFilePaths(available.volumes, input$aggrVarsChooseSrcFile)$datapath, '", ',
        if(nrow(aggrVarsAllVars$aggrVarsSelectedGroupVars) == 0) {
          NULL
        } else if(nrow(aggrVarsAllVars$aggrVarsSelectedGroupVars) == 1) {
          paste0('group.vars = "', aggrVarsAllVars$aggrVarsSelectedGroupVars[ , Variables], '", ')
        } else if(nrow(aggrVarsAllVars$aggrVarsSelectedGroupVars) > 0) {
          paste0('group.vars = c("', paste(aggrVarsAllVars$aggrVarsSelectedGroupVars[ , Variables], collapse = '", "'), '"), ')
        },
        if(nrow(aggrVarsAllVars$aggrVarsSelectedSrcVars) == 1) {
          paste0('src.variables = "', aggrVarsAllVars$aggrVarsSelectedSrcVars[ , Variables], '", ')
        } else if(nrow(aggrVarsAllVars$aggrVarsSelectedSrcVars) > 1) {
          paste0('src.variables = c("', paste(aggrVarsAllVars$aggrVarsSelectedSrcVars[ , Variables], collapse = '", "'), '"), ')
        },
        if(nrow(aggr.entered.new.var.names$names) == 1) {
          paste0('new.variables = "', aggr.new.var.names$names, '", ')
        } else if(nrow(aggr.entered.new.var.names$names) > 1) {
          paste0('new.variables = c("', paste(aggr.new.var.names$names, collapse = '", "'), '"), ')
        },
        if(!"" %in% aggr.new.var.labels$labels & length(aggr.new.var.labels$labels) == 1) {
          paste0('new.var.labels = "', aggr.new.var.labels$labels, '", ')
        } else if(!"" %in% aggr.new.var.labels$labels & length(aggr.new.var.labels$labels) > 1) {
          paste0('new.var.labels = c("', paste(aggr.new.var.labels$labels, collapse = '", "'), '"), ')
        },
        if(!is.null(input$aggrVarsAggregationFunction) && input$aggrVarsAggregationFunction == "Mean") {
          'aggr.fun = "mean", '
        } else if(!is.null(input$aggrVarsAggregationFunction) && input$aggrVarsAggregationFunction == "Median") {
          'aggr.fun = "median", '
        } else if(!is.null(input$aggrVarsAggregationFunction) && input$aggrVarsAggregationFunction == "Mode") {
          'aggr.fun = "mode", '
        },
        if(length(parseSavePath(available.volumes, input$aggrVarsChooseOutFile)$datapath) == 1) {
          paste0('out.file = "', parseSavePath(available.volumes, input$aggrVarsChooseOutFile)$datapath, '")')
        }
      )
    })
    output$aggrVarsSyntaxHead <- renderText({
      if(!is.null(file.aggr.vars$loaded) & nrow(aggrVarsAllVars$aggrVarsSelectedSrcVars) > 0 & all(file.aggr.vars$var.classes[intersect(aggrVarsAllVars$aggrVarsSelectedSrcVars[ , Variables], names(file.aggr.vars$var.classes))] == "numeric") & !any(aggrVarsAllVars$aggrVarsSelectedSrcVars[ , Variables] %in% file.aggr.vars$src.not.allowed) & !is.null(aggr.new.var.names$names) & !"" %in% aggr.new.var.names$names & length(unique(aggr.new.var.labels$labels %in% "")) == 1 &
         length(parseSavePath(available.volumes, input$aggrVarsChooseOutFile)$datapath) == 1 && length(parseFilePaths(available.volumes, input$aggrVarsChooseSrcFile)$datapath) > 0) {
        HTML("Syntax")
      } else {
        return(NULL)
      }
    })
    observe.syntax.save.button <- eval(parse(text = string.observe.syntax.save.button))
    observe.syntax.save.button(input = input, session = session, syntax.ID = "saveAggrVarsSyntax", syntax.object = "syntaxAggrVars()", volumes = available.volumes)
    output$copyAggrVarsSyntax <- renderUI({
      rclipButton(inputId = "copyAggrVarsSyntax", label = "Copy syntax", clipText = syntaxAggrVars(), icon = icon("copy"), style = "color: #ffffff; background-color: #000000; border-radius: 5px; font-size: 80%; margin-bottom: 1px; padding: 1px; width: 85px; margin-top: 1px")
    })
    output$aggrVarsSyntax <- renderText({
      if(!is.null(file.aggr.vars$loaded) & nrow(aggrVarsAllVars$aggrVarsSelectedSrcVars) > 0 & all(file.aggr.vars$var.classes[intersect(aggrVarsAllVars$aggrVarsSelectedSrcVars[ , Variables], names(file.aggr.vars$var.classes))] == "numeric") & !any(aggrVarsAllVars$aggrVarsSelectedSrcVars[ , Variables] %in% file.aggr.vars$src.not.allowed) & !is.null(aggr.new.var.names$names) & !"" %in% aggr.new.var.names$names & length(unique(aggr.new.var.labels$labels %in% "")) == 1 &
         length(parseSavePath(available.volumes, input$aggrVarsChooseOutFile)$datapath) == 1 && length(parseFilePaths(available.volumes, input$aggrVarsChooseSrcFile)$datapath) > 0) {
        syntaxAggrVars()
      } else {
        return(NULL)
      }
    })
    output$aggrVarsExecBtnHead <- renderText({
      if(!is.null(file.aggr.vars$loaded) & nrow(aggrVarsAllVars$aggrVarsSelectedSrcVars) > 0 & all(file.aggr.vars$var.classes[intersect(aggrVarsAllVars$aggrVarsSelectedSrcVars[ , Variables], names(file.aggr.vars$var.classes))] == "numeric") & !any(aggrVarsAllVars$aggrVarsSelectedSrcVars[ , Variables] %in% file.aggr.vars$src.not.allowed) & !is.null(aggr.new.var.names$names) & !"" %in% aggr.new.var.names$names & length(unique(aggr.new.var.labels$labels %in% "")) == 1 &
         length(parseSavePath(available.volumes, input$aggrVarsChooseOutFile)$datapath) == 1) {
        HTML("Press the button below to execute the syntax")
      } else {
        return(NULL)
      }
    })
    output$execAggrVars <- renderUI({
      if(!is.null(file.aggr.vars$loaded) & nrow(aggrVarsAllVars$aggrVarsSelectedSrcVars) > 0 & all(file.aggr.vars$var.classes[intersect(aggrVarsAllVars$aggrVarsSelectedSrcVars[ , Variables], names(file.aggr.vars$var.classes))] == "numeric") & !any(aggrVarsAllVars$aggrVarsSelectedSrcVars[ , Variables] %in% file.aggr.vars$src.not.allowed) & !is.null(aggr.new.var.names$names) & !"" %in% aggr.new.var.names$names & length(unique(aggr.new.var.labels$labels %in% "")) == 1 &
         length(parseSavePath(available.volumes, input$aggrVarsChooseOutFile)$datapath) == 1) {
        actionButton(inputId = "execAggrVars", label = "Execute syntax", icon = icon("cogs"), style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      } else {
        return(NULL)
      }
    })
  }
})
observeEvent(input$execAggrVars, {
  showNotification(ui = HTML("<br/>   Execution started.   <br/><br/>"), type = "message")
  withCallingHandlers({html("consoleAggrVars", "")
    tryCatch({
      expr = eval(parse(text = file.aggr.vars$aggr.vars.syntax))
      showNotification(ui = HTML("<br/>   All operations complete!   <br/><br/>"), type = "message", duration = NULL)
    }, error = function(e) {
      message("", e)
      showNotification(ui = HTML(paste0("Something went wrong. Possible reasons: <br/>", paste(gsub(pattern = "\\n|Error: ", replacement = "<br/>", x = e)))), type = "error", duration = NULL)
    })
  },
  message = function(i) {
    shinyjs::html(id = "consoleAggrVars", html = i$message, add = TRUE)
  },
  warning = function(w) {
    shinyjs::html(id = "consoleAggrVars", html = paste0("Warning: ", w$message, "\n"), add = TRUE)
  })
  session$sendCustomMessage(type = "scrollCallback", 1)
}, ignoreInit = TRUE)
output$h1selectPISACountries <- renderText("Select PISA countries' data")
hide("selectPISACountriesChooseOutFile")
hide("saveSelectPISACountriesSyntax")
hide("copySelectPISACountriesSyntax")
hide("consoleSelectPISACountries")
output$selectPISACountriesIntro <- renderText({HTML("Select PISA .RData file to load.")})
file.select.PISA <- reactiveValues(loaded = NULL, is.lsa.data = NULL, resp.type = NULL, study = NULL, cycle = NULL, country.ID = NULL, default.weight = NULL, select.PISA.syntax = NULL)
shinyFileChoose(input, "selectPISACountriesChooseSrcFile", roots = available.volumes, filetype = list(RData = "RData"))
observeEvent(eventExpr = input$selectPISACountriesChooseSrcFile, {
  file.select.PISA$loaded <- NULL
  file.select.PISA$study <- NULL
  file.select.PISA$cycle <- NULL
  file.select.PISA$resp.type <- NULL
  if(length(parseFilePaths(available.volumes, input$selectPISACountriesChooseSrcFile)$datapath) > 0 && file.size(parseFilePaths(available.volumes, input$selectPISACountriesChooseSrcFile)$datapath) > 104857600) {
    showNotification(ui = HTML('The size of the selected<br/>file is rather large. Please<br/>wait until the file is loaded.'), type = "message")
  }
  if(length(parseFilePaths(available.volumes, input$selectPISACountriesChooseSrcFile)$datapath) > 0) {
    file.select.PISA$loaded <- get(load(parseFilePaths(available.volumes, input$selectPISACountriesChooseSrcFile)$datapath))
    if(!"lsa.data" %in% class(file.select.PISA$loaded)) {
      file.select.PISA$loaded <- NULL
      showNotification(ui = HTML('The loaded data file<br/>does not contain "lsa.data".<br/>All operations stop<br/>here.<br/>Check your input.'), type = "error")
    } else if(attr(x = file.select.PISA$loaded, which = "study") != "PISA") {
      file.select.PISA$loaded <- NULL
      showNotification(ui = HTML('The loaded data file does<br/>not contain PISA data.<br/>All operations stop here.<br/>Check your input.'), type = "error")
    } else {
      if("lsa.data" %in% class(file.select.PISA$loaded)) {
        file.select.PISA$is.lsa.data <- TRUE
      } else {
        file.select.PISA$is.lsa.data <- FALSE
      }
      file.select.PISA$study <- attr(x = file.select.PISA$loaded, which = "study")
      file.select.PISA$cycle <- attr(x = file.select.PISA$loaded, which = "cycle")
      file.select.PISA$resp.type <- attr(x = file.select.PISA$loaded, which = "file.type")
      file.select.PISA$loaded <- data.table(CNT = sort(levels(file.select.PISA$loaded[ , CNT])), order_col = 1:length(levels(file.select.PISA$loaded[ , CNT])))
    }
  }
  output$selectPISACountriesSrcPathDisplay <- renderText({parseFilePaths(available.volumes, input$selectPISACountriesChooseSrcFile)$datapath})
}, ignoreInit = TRUE)
observe({
  if(!is.null(file.select.PISA$loaded) && file.select.PISA$is.lsa.data == FALSE) {
    showNotification(ui = HTML('The data is not of class "lsa.data".<br/>Please check the file content.'), type = "error")
  } else if (!is.null(file.select.PISA$loaded) && file.select.PISA$is.lsa.data == TRUE) {
    output$selectPISACountriesStudyName <- renderText({
      if(is.null(file.select.PISA$resp.type)) {
        return(NULL)
      } else {
        HTML(paste0('Study: ', file.select.PISA$study))
      }
    })
    output$selectPISACountriesStudyCycle <- renderText({
      if(is.null(file.select.PISA$resp.type)) {
        return(NULL)
      } else {
        HTML(paste0('Cycle: ', file.select.PISA$cycle))
      }
    })
    output$selectPISACountriesRespHead <- renderText({
      if(is.null(file.select.PISA$resp.type)) {
        return(NULL)
      } else {
        HTML('<u>The file contains data from the following respondents:</u>')
      }
    })
    output$selectPISACountriesRespAvailable <- renderText({
      if(is.null(file.select.PISA$resp.type)) {
        return(NULL)
      } else {
        HTML(file.merged.respondents[[file.select.PISA$resp.type]])
      }
    })
    output$selectPISACountriesExplText <- renderText({
      if(is.null(file.select.PISA$resp.type)) {
        return(NULL)
      } else {
        HTML('Use the panels below to select the countries whose data shall be kept in the new file.')
      }
    })
    select.PISA.initial.available.countries <- file.select.PISA$loaded
    select.PISA.selected.countries <- data.table(CNT = as.character(), order_col = as.numeric())
    selectPISAAllCnt <- reactiveValues(selectPISAAvailCnt = select.PISA.initial.available.countries, selectPISASelCnt = select.PISA.selected.countries)
    output$selectPISACountriesArrowSelCntRight <- renderUI({
      if(is.null(file.select.PISA$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "selectPISACountriesArrowSelCntRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$selectPISACountriesArrowSelCntLeft <- renderUI({
      if(is.null(file.select.PISA$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "selectPISACountriesArrowSelCntLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    observeEvent(input$selectPISACountriesArrowSelCntRight, {
      req(input$selectPISACountriesAvailableCountries_rows_selected)
      selectPISAAllCnt$selectPISASelCnt <- rbind(isolate(selectPISAAllCnt$selectPISASelCnt), selectPISAAllCnt$selectPISAAvailCnt[input$selectPISACountriesAvailableCountries_rows_selected, , drop = FALSE])
      selectPISAAllCnt$selectPISASelCnt <- selectPISAAllCnt$selectPISASelCnt[complete.cases(selectPISAAllCnt$selectPISASelCnt), , drop = FALSE]
      selectPISAAllCnt$selectPISAAvailCnt <- isolate(selectPISAAllCnt$selectPISAAvailCnt[-input$selectPISACountriesAvailableCountries_rows_selected, , drop = FALSE])
    })
    observeEvent(input$selectPISACountriesArrowSelCntLeft, {
      req(input$selectPISASelectedCountries_rows_selected)
      selectPISAAllCnt$selectPISAAvailCnt <- rbind(isolate(selectPISAAllCnt$selectPISAAvailCnt),        selectPISAAllCnt$selectPISASelCnt[input$selectPISASelectedCountries_rows_selected, , drop = FALSE])
      selectPISAAllCnt$selectPISAAvailCnt <- selectPISAAllCnt$selectPISAAvailCnt[complete.cases(selectPISAAllCnt$selectPISAAvailCnt), , drop = FALSE]
      selectPISAAllCnt$selectPISASelCnt <- isolate(selectPISAAllCnt$selectPISASelCnt[-input$selectPISASelectedCountries_rows_selected, , drop = FALSE])
    })
    output$selectPISACountriesAvailableCountries <- renderDT({
      setkeyv(x = selectPISAAllCnt$selectPISAAvailCnt, cols = "order_col")
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Available countries"),
    rownames = FALSE,
    filter = "top",
    colnames = c("Names", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No countries available"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(visible = FALSE, targets = 1)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 350, scroller = TRUE
    ))
    output$selectPISASelectedCountries <- renderDT({
      setkeyv(x = selectPISAAllCnt$selectPISASelCnt, cols = "order_col")
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Selected countries"),
    rownames = FALSE,
    colnames = c("Names", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No countries have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(visible = FALSE, targets = 1)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 405, scroller = TRUE
    ))
    shinyFileSave(input, "selectPISACountriesChooseOutFile", filetype = list(RData = "RData"), roots = available.volumes, updateFreq = 100000)
    observe({
      if(is.null(file.select.PISA$loaded) || length(parseSavePath(available.volumes, input$selectPISACountriesChooseSrcFile)$datapath) > 0 && nrow(selectPISAAllCnt$selectPISASelCnt) == 0) {
        hide("selectPISACountriesChooseOutFile")
      } else {
        show("selectPISACountriesChooseOutFile")
      }
      if(is.null(file.select.PISA$loaded)) {
        hide("h1selectPISACountries")
        hide("selectPISACountriesStudyName")
        hide("selectPISACountriesStudyCycle")
        hide("selectPISACountriesRespHead")
        hide("selectPISACountriesRespAvailable")
        hide("selectPISACountriesExplText")
        hide("selectPISACountriesAvailableCountries")
        hide("selectPISACountriesArrowSelCntRight")
        hide("selectPISACountriesArrowSelCntLeft")
        hide("selectPISASelectedCountries")
        hide("selectPISACountriesSyntaxHead")
        hide("selectPISACountriesSyntax")
        hide("selectPISACountriesExecBtnHead")
        hide("execSelectPISACountries")
        hide("consoleSelectPISACountries")
      } else {
        show("h1selectPISACountries")
        show("selectPISACountriesStudyName")
        show("selectPISACountriesStudyCycle")
        show("selectPISACountriesRespHead")
        show("selectPISACountriesRespAvailable")
        show("selectPISACountriesExplText")
        show("selectPISACountriesAvailableCountries")
        show("selectPISACountriesArrowSelCntRight")
        show("selectPISACountriesArrowSelCntLeft")
        show("selectPISASelectedCountries")
        show("selectPISACountriesSyntaxHead")
        show("selectPISACountriesSyntax")
        show("selectPISACountriesExecBtnHead")
        show("execSelectPISACountries")
        show("consoleSelectPISACountries")
      }
      if(length(parseFilePaths(available.volumes, input$selectPISACountriesChooseSrcFile)$datapath) == 0 ||
         length(parseSavePath(available.volumes, input$selectPISACountriesChooseOutFile)$datapath) == 0 ||
         nrow(selectPISAAllCnt$selectPISASelCnt) == 0) {
        hide("saveSelectPISACountriesSyntax")
        hide("copySelectPISACountriesSyntax")
        hide("consoleSelectPISACountries")
      } else {
        show("saveSelectPISACountriesSyntax")
        show("copySelectPISACountriesSyntax")
        show("consoleSelectPISACountries")
      }
    })
    syntaxSelectPISA <- reactive({
      file.select.PISA$select.PISA.syntax <- paste0(
        'lsa.select.countries.PISA(data.file = "', parseFilePaths(available.volumes, input$selectPISACountriesChooseSrcFile)$datapath, '", ',
        if(nrow(selectPISAAllCnt$selectPISASelCnt) > 0) {
          if(nrow(selectPISAAllCnt$selectPISASelCnt) == 1) {
            paste0('cnt.names = "', paste(selectPISAAllCnt$selectPISASelCnt[ , CNT], collapse = '", "'), '"')
          } else if(nrow(selectPISAAllCnt$selectPISASelCnt) > 1) {
            paste0('cnt.names = c("', paste(selectPISAAllCnt$selectPISASelCnt[ , CNT], collapse = '", "'), '")')
          }
        },
        paste0(', output.file = "', parseSavePath(available.volumes, input$selectPISACountriesChooseOutFile)$datapath, '"'),
        ')'
      )
    })
    output$selectPISACountriesSyntaxHead <- renderText({
      if(length(parseSavePath(available.volumes, input$selectPISACountriesChooseOutFile)$datapath) == 1 && nrow(rbindlist(l = list(selectPISAAllCnt$selectPISASelCnt))) >= 1) {
        HTML("Syntax")
      } else {
        return(NULL)
      }
    })
    output$selectPISACountriesSyntax <- renderText({
      if(length(parseSavePath(available.volumes, input$selectPISACountriesChooseOutFile)$datapath) == 1 && nrow(rbindlist(l = list(selectPISAAllCnt$selectPISASelCnt))) >= 1) {
        syntaxSelectPISA()
      } else {
        return(NULL)
      }
    })
    observe.syntax.save.button <- eval(parse(text = string.observe.syntax.save.button))
    observe.syntax.save.button(input = input, session = session, syntax.ID = "saveSelectPISACountriesSyntax", syntax.object = "syntaxSelectPISA()", volumes = available.volumes)
    output$copySelectPISACountriesSyntax <- renderUI({
      rclipButton(inputId = "copySelectPISACountriesSyntax", label = "Copy syntax", clipText = syntaxSelectPISA(), icon = icon("copy"), style = "color: #ffffff; background-color: #000000; border-radius: 5px; font-size: 80%; margin-bottom: 1px; padding: 1px; width: 85px; margin-top: 1px")
    })
    output$selectPISACountriesExecBtnHead <- renderText({
      if(length(parseSavePath(available.volumes, input$selectPISACountriesChooseOutFile)$datapath) == 1 && nrow(rbindlist(l = list(selectPISAAllCnt$selectPISASelCnt))) >= 1) {
        HTML("Press the button below to execute the syntax")
      } else {
        return(NULL)
      }
    })
    output$execSelectPISACountries <- renderUI({
      if(length(parseSavePath(available.volumes, input$selectPISACountriesChooseOutFile)$datapath) == 1 && nrow(rbindlist(l = list(selectPISAAllCnt$selectPISASelCnt))) >= 1) {
        actionButton(inputId = "execSelectPISACountries", label = "Execute syntax", icon = icon("cogs"), style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      } else {
        return(NULL)
      }
    })
  }
})
observeEvent(input$execSelectPISACountries, {
  showNotification(ui = HTML("<br/>   Execution started.   <br/><br/>"), type = "message")
  withCallingHandlers({html("consoleSelectPISACountries", "")
    tryCatch({
      expr = eval(parse(text = file.select.PISA$select.PISA.syntax))
      showNotification(ui = HTML("<br/>   All operations complete!   <br/><br/>"), type = "message", duration = NULL)
    }, error = function(e) {
      message("", e)
      showNotification(ui = HTML(paste0("Something went wrong. Possible reasons: <br/>", paste(gsub(pattern = "\\n|Error: ", replacement = "<br/>", x = e)))), type = "error", duration = NULL)
    })
  },
  message = function(i) {
    shinyjs::html(id = "consoleSelectPISACountries", html = i$message, add = TRUE)
  },
  warning = function(w) {
    shinyjs::html(id = "consoleSelectPISACountries", html = paste0("Warning: ", w$message, "\n"), add = TRUE)
  })
  session$sendCustomMessage(type = "scrollCallback", 1)
}, ignoreInit = TRUE)
output$h1PctsMeans <- renderText("Percentages and means")
hide("pctsMeansChooseOutFile")
hide("savePctsMeansSyntax")
hide("copyPctsMeansSyntax")
output$pctsMeansIntro <- renderText({HTML("Select large-scale assessment .RData file to load.")})
file.pct.means <- reactiveValues(loaded = NULL, is.lsa.data = NULL, resp.type = NULL, study = NULL, cycle = NULL, country.ID = NULL, PV.sets = NULL, default.weight = NULL, pct.means.syntax = NULL)
shinyFileChoose(input, "pctsMeansChooseSrcFile", roots = available.volumes, filetype = list(RData = "RData"))
observeEvent(eventExpr = input$pctsMeansChooseSrcFile, {
  file.pct.means$loaded <- NULL
  file.pct.means$study <- NULL
  file.pct.means$cycle <- NULL
  file.pct.means$resp.type <- NULL
  file.pct.means$PV.sets <- NULL
  file.pct.means$default.weight <- NULL
  if(length(parseFilePaths(available.volumes, input$pctsMeansChooseSrcFile)$datapath) > 0 && file.size(parseFilePaths(available.volumes, input$pctsMeansChooseSrcFile)$datapath) > 104857600) {
    showNotification(ui = HTML('The size of the selected<br/>file is rather large. Please<br/>wait until the file is loaded.'), type = "message")
  }
  if(length(parseFilePaths(available.volumes, input$pctsMeansChooseSrcFile)$datapath) > 0) {
    file.pct.means$loaded <- get(load(parseFilePaths(available.volumes, input$pctsMeansChooseSrcFile)$datapath))
    if("lsa.data" %in% class(file.pct.means$loaded)) {
      file.pct.means$is.lsa.data <- TRUE
    } else {
      file.pct.means$is.lsa.data <- FALSE
    }
    file.pct.means$study <- attr(x = file.pct.means$loaded, which = "study")
    file.pct.means$cycle <- attr(x = file.pct.means$loaded, which = "cycle")
    file.pct.means$resp.type <- attr(x = file.pct.means$loaded, which = "file.type")
    file.pct.means$loaded <- data.table(Variables = names(file.pct.means$loaded), Variable_Labels = sapply(X = file.pct.means$loaded, FUN = function(j) {
      if(is.null(attr(x = j, which = "variable.label"))) {
        return(NA_character_)
      } else {
        attr(x = j, which = "variable.label")
      }
    }),
    order_col = 1:ncol(file.pct.means$loaded))
    file.pct.means$PV.sets <- NULL
    tmp.PV.names <- grep(pattern = paste(all.available.PVs, collapse = "|"), x = file.pct.means$loaded[ , Variables], value = TRUE)
    if(length(tmp.PV.names) > 0) {
      collapsed.PVs <- collapse.loaded.file.PV.names(PV.vector = tmp.PV.names, vars.object = file.pct.means$loaded)
      file.pct.means$loaded <- file.pct.means$loaded[!Variables %in% tmp.PV.names]
      file.pct.means$loaded <- rbindlist(l = list(file.pct.means$loaded, collapsed.PVs))
      setkeyv(x = file.pct.means$loaded, cols = "order_col")
      file.pct.means$PV.sets <- collapsed.PVs[ , Variables]
    }
    if(!is.null(file.pct.means$study)) {
      file.pct.means$default.weight <- define.default.weight(study = file.pct.means$study, loaded.names.and.labels = file.pct.means$loaded, respondent.type = file.pct.means$resp.type)
    }
    file.pct.means$country.ID <- NULL
    if("IDCNTRY" %in% file.pct.means$loaded[ , Variables]) {
      file.pct.means$country.ID <- "IDCNTRY"
    } else {
      file.pct.means$country.ID <- "CNT"
    }
  }
  output$pctsMeansSrcPathDisplay <- renderText({parseFilePaths(available.volumes, input$pctsMeansChooseSrcFile)$datapath})
}, ignoreInit = TRUE)
observe({
  if(!is.null(file.pct.means$loaded) && file.pct.means$is.lsa.data == FALSE) {
    showNotification(ui = HTML('The data is not of class "lsa.data".<br/>Please check the file content.'), type = "error")
  } else if (!is.null(file.pct.means$loaded) && file.pct.means$is.lsa.data == TRUE) {
    output$pctsMeansStudyName <- renderText({
      if(is.null(file.pct.means$resp.type)) {
        return(NULL)
      } else {
        HTML(paste0('Study: ', file.pct.means$study))
      }
    })
    output$pctsMeansStudyCycle <- renderText({
      if(is.null(file.pct.means$resp.type)) {
        return(NULL)
      } else {
        HTML(paste0('Cycle: ', file.pct.means$cycle))
      }
    })
    output$pctsMeansRespHead <- renderText({
      if(is.null(file.pct.means$resp.type)) {
        return(NULL)
      } else {
        HTML('<u>The file contains data from the following respondents:</u>')
      }
    })
    output$pctsMeansRespAvailable <- renderText({
      if(is.null(file.pct.means$resp.type)) {
        return(NULL)
      } else {
        HTML(file.merged.respondents[[file.pct.means$resp.type]])
      }
    })
    output$pctsMeansNoWeights <- renderText({
      if(!is.null(file.pct.means$loaded) && is.null(file.pct.means$default.weight) || !is.null(file.pct.means$loaded) && length(file.pct.means$default.weight) == 0) {
        HTML('Error: The loaded file does not contain any recognizable default weight variable. Such files cannot be analyzed on their own and must be merged with other respondents in advance.')
      } else {
        return(NULL)
      }
    })
    output$pctsMeansVariablesExplText <- renderText({
      if(is.null(file.pct.means$resp.type)) {
        return(NULL)
      } else {
        HTML('Use the panels below to select the variables to compute percentages within groups specified by splitting variables and means of continuous variables for these groups.')
      }
    })
    pcts.means.initial.available.vars <- file.pct.means$loaded[!Variables %in% c(file.pct.means$default.weight, file.pct.means$country.ID), ]
    pcts.means.initial.selected.split.vars <- file.pct.means$loaded[Variables == file.pct.means$country.ID, ]
    pcts.means.initial.selected.bckg.vars <- data.table(Variables = as.character(), Variable_Labels = as.character(), order_col = as.numeric())
    pcts.means.initial.selected.PV.vars <- data.table(Variables = as.character(), Variable_Labels = as.character(), order_col = as.numeric())
    pcts.means.initial.selected.weight.var <- file.pct.means$loaded[Variables %in% file.pct.means$default.weight, ]
    pctsMeansAllVars <- reactiveValues(pctsMeansAvailVars = pcts.means.initial.available.vars, pctsMeansSelectedSplitVars = pcts.means.initial.selected.split.vars, pctsMeansSelectedBckgVars = pcts.means.initial.selected.bckg.vars, pctsMeansSelectedPVVars = pcts.means.initial.selected.PV.vars, pctsMeansSelectedWeightVar = pcts.means.initial.selected.weight.var)
    output$pctsMeansArrowSelSplitVarsRight <- renderUI({
      if(is.null(file.pct.means$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "pctsMeansArrowSelSplitVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$pctsMeansArrowSelSplitVarsLeft <- renderUI({
      if(is.null(file.pct.means$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "pctsMeansArrowSelSplitVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$pctsMeansArrowSelBckgVarsRight <- renderUI({
      if(is.null(file.pct.means$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "pctsMeansArrowSelBckgVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$pctsMeansArrowSelBckgVarsLeft <- renderUI({
      if(is.null(file.pct.means$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "pctsMeansArrowSelBckgVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$pctsMeansArrowSelPVsRight <- renderUI({
      if(is.null(file.pct.means$resp.type) || is.null(file.pct.means$PV.sets)) {
        return(NULL)
      } else {
        actionButton(inputId = "pctsMeansArrowSelPVsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$pctsMeansArrowSelPVsLeft <- renderUI({
      if(is.null(file.pct.means$resp.type) || is.null(file.pct.means$PV.sets)) {
        return(NULL)
      } else {
        actionButton(inputId = "pctsMeansArrowSelPVsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$pctsMeansArrowSelPVsRightDisbld <- renderUI({
      if(is.null(file.pct.means$resp.type) || is.null(file.pct.means$PV.sets)) {
        actionButton(inputId = "pctsMeansArrowSelPVsRightDisbld", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #c6c6c6; border-radius: 10px")
      } else {
        return(NULL)
      }
    })
    output$pctsMeansArrowSelPVsLeftDisbld <- renderUI({
      if(is.null(file.pct.means$resp.type) || is.null(file.pct.means$PV.sets)) {
        actionButton(inputId = "pctsMeansArrowSelPVsLeftDisbld", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #c6c6c6; border-radius: 10px")
      } else {
        return(NULL)
      }
    })
    output$pctsMeansArrowSelWeightVarsRight <- renderUI({
      if(is.null(file.pct.means$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "pctsMeansArrowSelWeightVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$pctsMeansArrowSelWeightVarsLeft <- renderUI({
      if(is.null(file.pct.means$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "pctsMeansArrowSelWeightVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    observeEvent(input$pctsMeansArrowSelSplitVarsRight, {
      req(input$pctsMeansAllAvailableVars_rows_selected)
      pctsMeansAllVars$pctsMeansSelectedSplitVars <- rbind(isolate(pctsMeansAllVars$pctsMeansSelectedSplitVars), pctsMeansAllVars$pctsMeansAvailVars[input$pctsMeansAllAvailableVars_rows_selected, , drop = FALSE])
      pctsMeansAllVars$pctsMeansSelectedSplitVars <- pctsMeansAllVars$pctsMeansSelectedSplitVars[complete.cases(pctsMeansAllVars$pctsMeansSelectedSplitVars[ , "Variables"]), , drop = FALSE]
      pctsMeansAllVars$pctsMeansAvailVars <- isolate(pctsMeansAllVars$pctsMeansAvailVars[-input$pctsMeansAllAvailableVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$pctsMeansArrowSelSplitVarsLeft, {
      req(input$pctsMeansSplitVars_rows_selected)
      pctsMeansAllVars$pctsMeansAvailVars <- rbind(isolate(pctsMeansAllVars$pctsMeansAvailVars),        pctsMeansAllVars$pctsMeansSelectedSplitVars[input$pctsMeansSplitVars_rows_selected, , drop = FALSE])
      pctsMeansAllVars$pctsMeansAvailVars <- pctsMeansAllVars$pctsMeansAvailVars[complete.cases(pctsMeansAllVars$pctsMeansAvailVars[ , "Variables"]), , drop = FALSE]
      if(nrow(pctsMeansAllVars$pctsMeansSelectedSplitVars) > 0) {
        pctsMeansAllVars$pctsMeansSelectedSplitVars <- isolate(pctsMeansAllVars$pctsMeansSelectedSplitVars[-input$pctsMeansSplitVars_rows_selected, , drop = FALSE])
      }
      if(!file.pct.means$country.ID %in% pctsMeansAllVars$pctsMeansSelectedSplitVars[ , Variables]) {
        showNotification(ui = HTML("Country ID <b>must always be</b> the first splitting variable!"), type = "error")
      }
      pctsMeansAllVars$pctsMeansSelectedSplitVars <- rbindlist(l = list(pctsMeansAllVars$pctsMeansSelectedSplitVars, pctsMeansAllVars$pctsMeansAvailVars[Variables == file.pct.means$country.ID, ]))
      pctsMeansAllVars$pctsMeansAvailVars <- pctsMeansAllVars$pctsMeansAvailVars[Variables != file.pct.means$country.ID, ]
    })
    observeEvent(input$pctsMeansArrowSelBckgVarsRight, {
      req(input$pctsMeansAllAvailableVars_rows_selected)
      pctsMeansAllVars$pctsMeansSelectedBckgVars <- rbind(isolate(pctsMeansAllVars$pctsMeansSelectedBckgVars), pctsMeansAllVars$pctsMeansAvailVars[input$pctsMeansAllAvailableVars_rows_selected, , drop = FALSE])
      pctsMeansAllVars$pctsMeansSelectedBckgVars <- pctsMeansAllVars$pctsMeansSelectedBckgVars[complete.cases(pctsMeansAllVars$pctsMeansSelectedBckgVars[ , "Variables"]), , drop = FALSE]
      pctsMeansAllVars$pctsMeansAvailVars <- isolate(pctsMeansAllVars$pctsMeansAvailVars[-input$pctsMeansAllAvailableVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$pctsMeansArrowSelBckgVarsLeft, {
      req(input$pctsMeansBckgVars_rows_selected)
      pctsMeansAllVars$pctsMeansAvailVars <- rbind(isolate(pctsMeansAllVars$pctsMeansAvailVars),        pctsMeansAllVars$pctsMeansSelectedBckgVars[input$pctsMeansBckgVars_rows_selected, , drop = FALSE])
      pctsMeansAllVars$pctsMeansAvailVars <- pctsMeansAllVars$pctsMeansAvailVars[complete.cases(pctsMeansAllVars$pctsMeansAvailVars[ , "Variables"]), , drop = FALSE]
      pctsMeansAllVars$pctsMeansSelectedBckgVars <- isolate(pctsMeansAllVars$pctsMeansSelectedBckgVars[-input$pctsMeansBckgVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$pctsMeansArrowSelPVsRight, {
      req(input$pctsMeansAllAvailableVars_rows_selected)
      pctsMeansAllVars$pctsMeansSelectedPVVars <- rbind(isolate(pctsMeansAllVars$pctsMeansSelectedPVVars), pctsMeansAllVars$pctsMeansAvailVars[input$pctsMeansAllAvailableVars_rows_selected, , drop = FALSE])
      pctsMeansAllVars$pctsMeansSelectedPVVars <- pctsMeansAllVars$pctsMeansSelectedPVVars[complete.cases(pctsMeansAllVars$pctsMeansSelectedPVVars[ , "Variables"]), , drop = FALSE]
      pctsMeansAllVars$pctsMeansAvailVars <- isolate(pctsMeansAllVars$pctsMeansAvailVars[-input$pctsMeansAllAvailableVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$pctsMeansArrowSelPVsLeft, {
      req(input$pctsMeansPVVars_rows_selected)
      pctsMeansAllVars$pctsMeansAvailVars <- rbind(isolate(pctsMeansAllVars$pctsMeansAvailVars),        pctsMeansAllVars$pctsMeansSelectedPVVars[input$pctsMeansPVVars_rows_selected, , drop = FALSE])
      pctsMeansAllVars$pctsMeansAvailVars <- pctsMeansAllVars$pctsMeansAvailVars[complete.cases(pctsMeansAllVars$pctsMeansAvailVars[ , "Variables"]), , drop = FALSE]
      pctsMeansAllVars$pctsMeansSelectedPVVars <- isolate(pctsMeansAllVars$pctsMeansSelectedPVVars[-input$pctsMeansPVVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$pctsMeansArrowSelWeightVarsRight, {
      req(input$pctsMeansAllAvailableVars_rows_selected)
      pctsMeansAllVars$pctsMeansSelectedWeightVar <- rbind(isolate(pctsMeansAllVars$pctsMeansSelectedWeightVar), pctsMeansAllVars$pctsMeansAvailVars[input$pctsMeansAllAvailableVars_rows_selected, , drop = FALSE])
      pctsMeansAllVars$pctsMeansSelectedWeightVar <- pctsMeansAllVars$pctsMeansSelectedWeightVar[complete.cases(pctsMeansAllVars$pctsMeansSelectedWeightVar[ , "Variables"]), , drop = FALSE]
      pctsMeansAllVars$pctsMeansAvailVars <- isolate(pctsMeansAllVars$pctsMeansAvailVars[-input$pctsMeansAllAvailableVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$pctsMeansArrowSelWeightVarsLeft, {
      req(input$pctsMeansWeightVar_rows_selected)
      pctsMeansAllVars$pctsMeansAvailVars <- rbind(isolate(pctsMeansAllVars$pctsMeansAvailVars),        pctsMeansAllVars$pctsMeansSelectedWeightVar[input$pctsMeansWeightVar_rows_selected, , drop = FALSE])
      pctsMeansAllVars$pctsMeansAvailVars <- pctsMeansAllVars$pctsMeansAvailVars[complete.cases(pctsMeansAllVars$pctsMeansAvailVars[ , "Variables"]), , drop = FALSE]
      if(nrow(pctsMeansAllVars$pctsMeansSelectedWeightVar) > 0) {
        pctsMeansAllVars$pctsMeansSelectedWeightVar <- isolate(pctsMeansAllVars$pctsMeansSelectedWeightVar[-input$pctsMeansWeightVar_rows_selected, , drop = FALSE])
      }
    })
    output$pctsMeansAllAvailableVars <- renderDT({
      setkeyv(x = pctsMeansAllVars$pctsMeansAvailVars, cols = "order_col")
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Available variables"),
    rownames = FALSE,
    filter = "top",
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables available"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 766, scroller = TRUE
    ))
    output$pctsMeansSplitVars <- renderDT({
      pctsMeansAllVars$pctsMeansSelectedSplitVars
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Split variables"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$pctsMeansInclMiss <- renderUI({
      if(!is.null(pctsMeansAllVars$pctsMeansSelectedSplitVars) && nrow(pctsMeansAllVars$pctsMeansSelectedSplitVars) == 0) {
        return(NULL)
      } else {
        checkboxInput(inputId = "pctsMeansInclMiss", label = "Compute statistics for the missing values of the split variables", value = FALSE, width = "400px")
      }
    })
    output$pctsMeansBckgVars <- renderDT({
      pctsMeansAllVars$pctsMeansSelectedBckgVars
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Background continuous variables"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$pctsMeansPVVars <- renderDT({
      if(is.null(file.pct.means$PV.sets)) {
        return(NULL)
      } else {
        pctsMeansAllVars$pctsMeansSelectedPVVars
      }
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Plausible values"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$pctsMeansPVVarsDisbld <- renderDT({
      if(is.null(file.pct.means$PV.sets)) {
        data.table(V1 = as.character(), V2 = as.character())
      } else {
        return(NULL)
      }
    },
    select = "none",
    caption = htmltools::tags$caption(style = "color: #c6c6c6; font-weight: bold;", "Plausible values"),
    rownames = FALSE,
    colnames = c("Names", "Labels"),
    options = list(
      language = list(zeroRecords = "No variables can be selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#c6c6c6', 'color': '#ffffff'});", "}"),
      dom = "ti",
      ordering = FALSE,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0)),
      headerCallback = JS("function(thead, data, start, end, display){$('th', thead).css('border-bottom', 'none');}"),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$pctsMeansWeightVar <- renderDT({
      pctsMeansAllVars$pctsMeansSelectedWeightVar
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Weight variable"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = paste0("No weight selected, default (", file.pct.means$default.weight, ") will be used")),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$pctsMeansPVsNotPVs <- renderText({
      if(!is.null(pctsMeansAllVars$pctsMeansSelectedPVVars) && any(pctsMeansAllVars$pctsMeansSelectedPVVars[ , Variables] %in% file.pct.means$PV.sets == FALSE)) {
        HTML('Warning: One or more of the selected variables in "Plausible values" is not a set of PVs. Please check the added variables.')
      } else {
        return(NULL)
      }
    })
    output$pctsMeansSplitArePVs <- renderText({
      if(!is.null(pctsMeansAllVars$pctsMeansSelectedSplitVars) && any(pctsMeansAllVars$pctsMeansSelectedSplitVars[ , Variables] %in% file.pct.means$PV.sets == TRUE)) {
        HTML('Warning: One or more of the selected variables in "Split variables" are sets of PVs. Please check the added variables.')
      } else {
        return(NULL)
      }
    })
    output$pctsMeansBckgArePVs <- renderText({
      if(!is.null(pctsMeansAllVars$pctsMeansSelectedBckgVars) && any(pctsMeansAllVars$pctsMeansSelectedBckgVars[ , Variables] %in% file.pct.means$PV.sets == TRUE)) {
        HTML('Warning: One or more of the selected variables in "Background continuous variables" are sets of PVs. Please check the added variables.')
      } else {
        return(NULL)
      }
    })
    output$pctsMeansWgtsNotWgts <- renderText({
      if(any(pctsMeansAllVars$pctsMeansSelectedWeightVar[ , Variables] %in% all.studies.available.weights == FALSE)) {
        HTML('Warning: The variable in "Weight variable" is not a weight. Please check the added variable.')
      } else {
        return(NULL)
      }
    })
    output$pctsMeansWarnMoreVars <- renderText({
      if(!is.null(pctsMeansAllVars$pctsMeansSelectedBckgVars) && nrow(pctsMeansAllVars$pctsMeansSelectedBckgVars) > 1) {
        HTML('<b>Note:</b> Averages for more than one background variable can be computed at the same time. However, the estimates will slightly differ compared to computing means one by one because the cases with the missing values on each "bckg.avg.vars" are removed in advance and the more variables are provided, the more cases are likely to be removed.')
      } else if(!is.null(pctsMeansAllVars$pctsMeansSelectedBckgVars) && nrow(pctsMeansAllVars$pctsMeansSelectedBckgVars) > 0 && nrow(pctsMeansAllVars$pctsMeansSelectedPVVars) > 0 && all(pctsMeansAllVars$pctsMeansSelectedPVVars[ , Variables] %in% file.pct.means$PV.sets) == TRUE) {
        HTML('<b>Note:</b> Averages for both background variables and PVs can be computed at the same time. However, the estimates will slightly differ compared to computing means one by one because the cases with the missing values on each "bckg.avg.vars" are removed in advance and the more variables are provided, the more cases are likely to be removed.')
      }
    })
    observe({
      if(nrow(pctsMeansAllVars$pctsMeansSelectedWeightVar) > 1) {
        showNotification(ui = HTML("Only one weight variable can be selected!"), type = "error")
        pctsMeansAllVars$pctsMeansAvailVars <- rbind(isolate(pctsMeansAllVars$pctsMeansAvailVars),        pctsMeansAllVars$pctsMeansSelectedWeightVar[nrow(pctsMeansAllVars$pctsMeansSelectedWeightVar), , drop = FALSE])
        pctsMeansAllVars$pctsMeansAvailVars <- pctsMeansAllVars$pctsMeansAvailVars[complete.cases(pctsMeansAllVars$pctsMeansAvailVars[ , "Variables"]), , drop = FALSE]
        pctsMeansAllVars$pctsMeansSelectedWeightVar <- isolate(pctsMeansAllVars$pctsMeansSelectedWeightVar[-2, , drop = FALSE])
      }
    })
    observeEvent(eventExpr = input$pctsMeansChooseSrcFile, {
      pctsMeansAllVars$pctsMeansSelectedSplitVars <- NULL
      pctsMeansAllVars$pctsMeansSelectedPVVars <- NULL
      pctsMeansAllVars$pctsMeansSelectedBckgVars <- NULL
    }, ignoreInit = TRUE)
    output$pctsMeansShortcut <- renderUI({
      if(!is.null(file.pct.means$loaded) && file.pct.means$study %in% c("PIRLS", "prePIRLS", "ePIRLS", "RLII", "TIMSS", "eTIMSS PSI", "preTIMSS", "TIMSS Advanced", "TiPi")) {
        checkboxInput(inputId = "pctsMeansShortcut", label = "Use shortcut method for computing SE", value = FALSE, width = "350px")
      }
    })
    output$pctsMeansGraphs <- renderUI({
      if(!is.null(file.pct.means$loaded)) {
        checkboxInput(inputId = "pctsMeansGraphs", label = "Produce graphs", value = FALSE, width = "350px")
      }
    })
    output$pctsMeansGraphsPctXlabelChk <- renderUI({
      if(!is.null(file.pct.means$loaded) && isTRUE(input$pctsMeansGraphs)) {
        checkboxInput(inputId = "pctsMeansGraphsPctXlabelChk", label = "Custom percentages graphs x-axis label", value = FALSE, width = "300px")
      }
    })
    output$pctsMeansGraphsPctXlabelTXT <- renderUI({
      if(!is.null(file.pct.means$loaded) && isTRUE(input$pctsMeansGraphs) && isTRUE(input$pctsMeansGraphsPctXlabelChk)) {
        textInput(inputId = "pctsMeansGraphsPctXlabelTXT", label = NULL, placeholder = "Type your custom horizontal axis label for the percentage plots", width = "100%")
      }
    })
    output$pctsMeansGraphsPctYlabelChk <- renderUI({
      if(!is.null(file.pct.means$loaded) && isTRUE(input$pctsMeansGraphs)) {
        checkboxInput(inputId = "pctsMeansGraphsPctYlabelChk", label = "Custom percentages graphs y-axis label", value = FALSE, width = "300px")
      }
    })
    output$pctsMeansGraphsPctYlabelTXT <- renderUI({
      if(!is.null(file.pct.means$loaded) && isTRUE(input$pctsMeansGraphs) && isTRUE(input$pctsMeansGraphsPctYlabelChk)) {
        textInput(inputId = "pctsMeansGraphsPctYlabelTXT", label = NULL, placeholder = "Type your custom vertical axis label for the percentage plots", width = "100%")
      }
    })
    output$pctsMeansGraphsMeanXlabelsChk <- renderUI({
      if(!is.null(file.pct.means$loaded) && isTRUE(input$pctsMeansGraphs) && nrow(rbindlist(l = list(pctsMeansAllVars$pctsMeansSelectedBckgVars, pctsMeansAllVars$pctsMeansSelectedPVVars))) > 0) {
        checkboxInput(inputId = "pctsMeansGraphsMeanXlabelsChk", label = "Custom means graphs x-axis labels", value = FALSE, width = "300px")
      }
    })
    output$pctsMeansGraphsMeanXlabelsTXT <- renderUI({
      if(!is.null(file.pct.means$loaded) && nrow(rbindlist(l = list(pctsMeansAllVars$pctsMeansSelectedBckgVars, pctsMeansAllVars$pctsMeansSelectedPVVars))) > 0 && isTRUE(input$pctsMeansGraphs) && isTRUE(input$pctsMeansGraphsMeanXlabelsChk)) {
        textInput(inputId = "pctsMeansGraphsMeanXlabelsTXT", label = NULL, placeholder = "Type your custom horizontal axis labels for the mean plots, separated by semicolons", width = "100%")
      }
    })
    output$pctsMeansGraphsMeanYlabelsChk <- renderUI({
      if(!is.null(file.pct.means$loaded) && isTRUE(input$pctsMeansGraphs) && nrow(rbindlist(l = list(pctsMeansAllVars$pctsMeansSelectedBckgVars, pctsMeansAllVars$pctsMeansSelectedPVVars))) > 0) {
        checkboxInput(inputId = "pctsMeansGraphsMeanYlabelsChk", label = "Custom means graphs y-axis labels", value = FALSE, width = "300px")
      }
    })
    output$pctsMeansGraphsMeanYlabelsTXT <- renderUI({
      if(!is.null(file.pct.means$loaded) && nrow(rbindlist(l = list(pctsMeansAllVars$pctsMeansSelectedBckgVars, pctsMeansAllVars$pctsMeansSelectedPVVars))) > 0 && isTRUE(input$pctsMeansGraphs) && isTRUE(input$pctsMeansGraphsMeanYlabelsChk)) {
        textInput(inputId = "pctsMeansGraphsMeanYlabelsTXT", label = NULL, placeholder = "Type your custom vertical axis labels for the mean plots, separated by semicolons", width = "100%")
      }
    })
    means.custom.X.labels <- reactive({
      if(!is.null(input$pctsMeansGraphsMeanXlabelsTXT)) {
        means.custom.X.labels <- strsplit(x = input$pctsMeansGraphsMeanXlabelsTXT, split = "[[:space:]]*\\;[[:space:]]*")
      }
    })
    output$warnPctsMeansCustomXlab <- renderText({
      if(is.null(input$pctsMeansGraphsMeanXlabelsTXT) == FALSE) {
        if(input$pctsMeansGraphsMeanXlabelsChk == TRUE & nrow(rbindlist(l = list(pctsMeansAllVars$pctsMeansSelectedBckgVars, pctsMeansAllVars$pctsMeansSelectedPVVars))) != length(unlist(means.custom.X.labels()))) {
          HTML('The number of custom labels for the <u>horizontal axis</u> in mean plots must be the same as the number of selected "Background continuous variables" and/or sets of "Plausible values".')
        } else if(input$pctsMeansGraphsMeanXlabelsChk == FALSE && nrow(rbindlist(l = list(pctsMeansAllVars$pctsMeansSelectedBckgVars, pctsMeansAllVars$pctsMeansSelectedPVVars))) == length(unlist(means.custom.X.labels()))) {
          HTML("")
        }
      }
    })
    means.custom.Y.labels <- reactive({
      if(!is.null(input$pctsMeansGraphsMeanYlabelsTXT)) {
        means.custom.Y.labels <- strsplit(x = input$pctsMeansGraphsMeanYlabelsTXT, split = "[[:space:]]*\\;[[:space:]]*")
      }
    })
    output$warnPctsMeansCustomYlab <- renderText({
      if(is.null(input$pctsMeansGraphsMeanYlabelsTXT) == FALSE) {
        if(input$pctsMeansGraphsMeanYlabelsChk == TRUE && nrow(rbindlist(l = list(pctsMeansAllVars$pctsMeansSelectedBckgVars, pctsMeansAllVars$pctsMeansSelectedPVVars))) != length(unlist(means.custom.Y.labels()))) {
          HTML('The number of custom labels for the <u>vertical axis</u> in mean plots must be the same as the number of selected "Background continuous variables" and/or sets of "Plausible values".')
        } else if(input$pctsMeansGraphsMeanYlabelsChk == FALSE&& nrow(rbindlist(l = list(pctsMeansAllVars$pctsMeansSelectedBckgVars, pctsMeansAllVars$pctsMeansSelectedPVVars))) == length(unlist(means.custom.Y.labels()))) {
          HTML("")
        }
      }
    })
    output$centralTendencyType <- renderUI({
      if(is.null(file.pct.means$resp.type)) {
        return(NULL)
      } else {
        radioButtons(inputId = "centralTendencyType", label = "Measure of central tendency", choices = c("Mean", "Median", "Mode"), width = "200px", selected = "Mean")
      }
    })
    output$centralTendencyTypeExpl <- renderText({
      if(is.null(file.pct.means$PV.sets) && is.null(file.pct.means$resp.type)) {
        return(NULL)
      } else if(!is.null(file.pct.means$PV.sets) && !is.null(file.pct.means$resp.type) && !is.null(input$centralTendencyType) && input$centralTendencyType == "Mean") {
        HTML('<br/><br/>Computes the mean (arithmetic average) of continuous variables.')
      } else if(!is.null(file.pct.means$PV.sets) && !is.null(file.pct.means$resp.type) && !is.null(input$centralTendencyType) && input$centralTendencyType == "Median") {
        HTML('<br/><br/>Computes the median of continuous or ordinal variables.')
      } else if(!is.null(file.pct.means$PV.sets) && !is.null(file.pct.means$resp.type) && !is.null(input$centralTendencyType) && input$centralTendencyType == "Mode") {
        HTML('<br/><br/>Computes the mode of continuous or ordinal variables.')
      }
    })
    shinyFileSave(input, "pctsMeansChooseOutFile", filetype = list(xlsx = "xlsx"), roots = available.volumes, updateFreq = 100000)
    output$pctsMeansOpenOutput <- renderUI({
      if(length(parseSavePath(available.volumes, input$pctsMeansChooseOutFile)$datapath) > 0 && length(parseFilePaths(available.volumes, input$pctsMeansChooseSrcFile)$datapath) > 0) {
        checkboxInput(inputId = "pctsMeansOpenOutput", label = "Open the output when done", value = TRUE, width = "250px")
      }
    })
    syntaxPctsMeans <- reactive({
      file.pct.means$pct.means.syntax <- paste0(
        'lsa.pcts.means(data.file = "', parseFilePaths(available.volumes, input$pctsMeansChooseSrcFile)$datapath, '", ',
        if(!is.null(pctsMeansAllVars$pctsMeansSelectedSplitVars) && length(pctsMeansAllVars$pctsMeansSelectedSplitVars[ , Variables]) == 1) {
          paste0('split.vars = "', pctsMeansAllVars$pctsMeansSelectedSplitVars[ , Variables], '"')
        } else if(!is.null(pctsMeansAllVars$pctsMeansSelectedSplitVars) && length(pctsMeansAllVars$pctsMeansSelectedSplitVars[ , Variables]) > 1) {
          paste0('split.vars = c("', paste(pctsMeansAllVars$pctsMeansSelectedSplitVars[ , Variables], collapse = '", "'), '")')
        },
        if(!is.null(pctsMeansAllVars$pctsMeansSelectedBckgVars) && nrow(pctsMeansAllVars$pctsMeansSelectedBckgVars) == 1) {
          paste0(', bckg.avg.vars = "', pctsMeansAllVars$pctsMeansSelectedBckgVars[ , Variables], '"')
        } else if(!is.null(pctsMeansAllVars$pctsMeansSelectedBckgVars) && nrow(pctsMeansAllVars$pctsMeansSelectedBckgVars) > 1) {
          paste0(', bckg.avg.vars = c("', paste(pctsMeansAllVars$pctsMeansSelectedBckgVars[ , Variables], collapse = '", "'), '")')
        },
        if(!is.null(pctsMeansAllVars$pctsMeansSelectedPVVars) && nrow(pctsMeansAllVars$pctsMeansSelectedPVVars) == 1) {
          paste0(', PV.root.avg = "', pctsMeansAllVars$pctsMeansSelectedPVVars[ , Variables], '"')
        } else if(!is.null(pctsMeansAllVars$pctsMeansSelectedPVVars) && nrow(pctsMeansAllVars$pctsMeansSelectedPVVars) > 1) {
          paste0(', PV.root.avg = c("', paste(pctsMeansAllVars$pctsMeansSelectedPVVars[ , Variables], collapse = '", "'), '")')
        },
        if(!is.null(input$centralTendencyType) && input$centralTendencyType == "Mean") {
          NULL
        } else if(!is.null(input$centralTendencyType) && input$centralTendencyType == "Median") {
          ', central.tendency = "median"'
        } else if(!is.null(input$centralTendencyType) && input$centralTendencyType == "Mode") {
          ', central.tendency = "mode"'
        },
        if(!is.null(pctsMeansAllVars$pctsMeansSelectedWeightVar) && nrow(pctsMeansAllVars$pctsMeansSelectedWeightVar) == 1 && !is.null(file.pct.means$default.weight) && pctsMeansAllVars$pctsMeansSelectedWeightVar[ , Variables] == file.pct.means$default.weight) {
          NULL
        } else if(!is.null(pctsMeansAllVars$pctsMeansSelectedWeightVar) && nrow(pctsMeansAllVars$pctsMeansSelectedWeightVar) == 1 && pctsMeansAllVars$pctsMeansSelectedWeightVar[ , Variables] %in% all.studies.available.weights && !is.null(file.pct.means$default.weight) && pctsMeansAllVars$pctsMeansSelectedWeightVar[ , Variables] != file.pct.means$default.weight) {
          paste0(', weight.var = "', pctsMeansAllVars$pctsMeansSelectedWeightVar[ , Variables], '"')
        } else if(!is.null(pctsMeansAllVars$pctsMeansSelectedWeightVar) && nrow(pctsMeansAllVars$pctsMeansSelectedWeightVar) == 0) {
          NULL
        },
        if(!is.null(input$pctsMeansInclMiss) && input$pctsMeansInclMiss == TRUE) {
          ", include.missing = TRUE"
        },
        if(!is.null(input$pctsMeansShortcut) && input$pctsMeansShortcut == TRUE) {
          ", shortcut = TRUE"
        },
        if(!is.null(input$pctsMeansGraphs) && input$pctsMeansGraphs == TRUE) {
          ", graphs = TRUE"
        },
        if(!is.null(input$pctsMeansGraphs) && input$pctsMeansGraphs == TRUE && !is.null(input$pctsMeansGraphsPctXlabelChk) && input$pctsMeansGraphsPctXlabelChk == TRUE && !is.null(input$pctsMeansGraphsPctXlabelTXT) && input$pctsMeansGraphsPctXlabelTXT != "") {
          paste0(', perc.x.label = "', input$pctsMeansGraphsPctXlabelTXT, '"')
        },
        if(!is.null(input$pctsMeansGraphs) && input$pctsMeansGraphs == TRUE && !is.null(input$pctsMeansGraphsPctYlabelChk) && input$pctsMeansGraphsPctYlabelChk == TRUE && !is.null(input$pctsMeansGraphsPctYlabelTXT) && input$pctsMeansGraphsPctYlabelTXT != "") {
          paste0(', perc.y.label = "', input$pctsMeansGraphsPctYlabelTXT, '"')
        },
        if(!is.null(input$pctsMeansGraphs) && input$pctsMeansGraphs == TRUE && !is.null(input$pctsMeansGraphsMeanXlabelsChk) && input$pctsMeansGraphsMeanXlabelsChk == TRUE && !is.null(input$pctsMeansGraphsMeanXlabelsTXT) && input$pctsMeansGraphsMeanXlabelsTXT != "") {
          paste0(', mean.x.labels = list("', paste(unlist(means.custom.X.labels()), collapse = '", "'), '")')
        },
        if(!is.null(input$pctsMeansGraphs) && input$pctsMeansGraphs == TRUE && !is.null(input$pctsMeansGraphsMeanYlabelsChk) && input$pctsMeansGraphsMeanYlabelsChk == TRUE && !is.null(input$pctsMeansGraphsMeanYlabelsTXT) && input$pctsMeansGraphsMeanYlabelsTXT != "") {
          paste0(', mean.y.labels = list("', paste(unlist(means.custom.Y.labels()), collapse = '", "'), '")')
        },
        paste0(', output.file = "', parseSavePath(available.volumes, input$pctsMeansChooseOutFile)$datapath, '"'),
        if(!is.null(input$pctsMeansOpenOutput) && input$pctsMeansOpenOutput == FALSE) {
          ', open.output = FALSE'
        } else if(!is.null(input$pctsMeansOpenOutput) && input$pctsMeansOpenOutput == TRUE) {
          NULL
        },
        ')'
      )
    })
    output$pctsMeansSyntaxHead <- renderText({
      if(length(parseSavePath(available.volumes, input$pctsMeansChooseOutFile)$datapath) == 1 && length(parseFilePaths(available.volumes, input$pctsMeansChooseSrcFile)$datapath) > 0) {
        HTML("Syntax")
      } else {
        return(NULL)
      }
    })
    observe.syntax.save.button <- eval(parse(text = string.observe.syntax.save.button))
    observe.syntax.save.button(input = input, session = session, syntax.ID = "savePctsMeansSyntax", syntax.object = "syntaxPctsMeans()", volumes = available.volumes)
    output$copyPctsMeansSyntax <- renderUI({
      rclipButton(inputId = "copyPctsMeansSyntax", label = "Copy syntax", clipText = syntaxPctsMeans(), icon = icon("copy"), style = "color: #ffffff; background-color: #000000; border-radius: 5px; font-size: 80%; margin-bottom: 1px; padding: 1px; width: 85px; margin-top: 1px")
    })
    output$pctsMeansSyntax <- renderText({
      if(length(parseSavePath(available.volumes, input$pctsMeansChooseOutFile)$datapath) == 1 && nrow(rbindlist(l = list(pctsMeansAllVars$pctsMeansSelectedSplitVars, pctsMeansAllVars$pctsMeansSelectedPVVars, pctsMeansAllVars$pctsMeansSelectedBckgVars))) >= 1) {
        syntaxPctsMeans()
      } else {
        return(NULL)
      }
    })
    output$pctsMeansExecBtnHead <- renderText({
      if(length(parseSavePath(available.volumes, input$pctsMeansChooseOutFile)$datapath) == 1) {
        HTML("Press the button below to execute the syntax")
      } else {
        return(NULL)
      }
    })
    output$execPctsMeans <- renderUI({
      if(length(parseSavePath(available.volumes, input$pctsMeansChooseOutFile)$datapath) == 1) {
        actionButton(inputId = "execPctsMeans", label = "Execute syntax", icon = icon("cogs"), style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      } else {
        return(NULL)
      }
    })
    observe({
      if(
        is.null(file.pct.means$loaded) ||
        is.null(pctsMeansAllVars$pctsMeansSelectedSplitVars) ||
        is.null(pctsMeansAllVars$pctsMeansSelectedPVVars) ||
        is.null(pctsMeansAllVars$pctsMeansSelectedBckgVars) ||
        is.null(pctsMeansAllVars$pctsMeansSelectedWeightVar) ||
        any(pctsMeansAllVars$pctsMeansSelectedPVVars[ , Variables] %in% file.pct.means$PV.sets == FALSE) ||
        any(pctsMeansAllVars$pctsMeansSelectedSplitVars[ , Variables] %in% file.pct.means$PV.sets == TRUE) ||
        any(pctsMeansAllVars$pctsMeansSelectedBckgVars[ , Variables] %in% file.pct.means$PV.sets == TRUE) ||
        any(pctsMeansAllVars$pctsMeansSelectedWeightVar[ , Variables] %in% all.studies.available.weights == FALSE) ||
        is.null(file.pct.means$default.weight) ||
        length(file.pct.means$default.weight) == 0
      ) {
        hide("pctsMeansShortcut")
        hide("pctsMeansGraphs")
        hide("pctsMeansChooseOutFile")
        hide("pctsMeansOpenOutput")
        hide("pctsMeansSyntaxHead")
        hide("pctsMeansSyntax")
        hide("pctsMeansExecBtnHead")
        hide("execPctsMeans")
        hide("consolePctsMeans")
      } else if(
        !is.null(file.pct.means$loaded) ||
        !is.null(pctsMeansAllVars$pctsMeansSelectedSplitVars) ||
        !is.null(pctsMeansAllVars$pctsMeansSelectedPVVars) ||
        !is.null(pctsMeansAllVars$pctsMeansSelectedBckgVars) ||
        !is.null(pctsMeansAllVars$pctsMeansSelectedWeightVar) ||
        all(pctsMeansAllVars$pctsMeansSelectedPVVars[ , Variables] %in% file.pct.means$PV.sets == TRUE) ||
        all(pctsMeansAllVars$pctsMeansSelectedSplitVars[ , Variables] %in% file.pct.means$PV.sets == FALSE) ||
        all(pctsMeansAllVars$pctsMeansSelectedBckgVars[ , Variables] %in% file.pct.means$PV.sets == FALSE) ||
        all(pctsMeansAllVars$pctsMeansSelectedWeightVar[ , Variables] %in% all.studies.available.weights == TRUE) ||
        !is.null(file.pct.means$default.weight) ||
        length(file.pct.means$default.weight) != 0
      ) {
        show("pctsMeansShortcut")
        show("pctsMeansGraphs")
        show("pctsMeansChooseOutFile")
        show("pctsMeansOpenOutput")
        show("pctsMeansSyntaxHead")
        show("pctsMeansSyntax")
        show("pctsMeansExecBtnHead")
        show("execPctsMeans")
        show("consolePctsMeans")
      }
      if(is.null(file.pct.means$default.weight) || length(file.pct.means$default.weight) == 0) {
        hide("pctsMeansVariablesExplText")
        hide("pctsMeansAllAvailableVars")
        hide("pctsMeansArrowSelSplitVarsRight")
        hide("pctsMeansArrowSelSplitVarsLeft")
        hide("pctsMeansSplitVars")
        hide("pctsMeansInclMiss")
        hide("pctsMeansArrowSelBckgVarsRight")
        hide("pctsMeansArrowSelBckgVarsLeft")
        hide("pctsMeansBckgVars")
        hide("pctsMeansArrowSelPVsRight")
        hide("pctsMeansArrowSelPVsLeft")
        hide("pctsMeansArrowSelPVsRightDisbld")
        hide("pctsMeansArrowSelPVsLeftDisbld")
        hide("pctsMeansPVVarsDisbld")
        hide("pctsMeansPVVars")
        hide("pctsMeansArrowSelWeightVarsRight")
        hide("pctsMeansArrowSelWeightVarsLeft")
        hide("pctsMeansWeightVar")
      } else if(!is.null(file.pct.means$default.weight) || length(file.pct.means$default.weight) != 0) {
        show("pctsMeansVariablesExplText")
        show("pctsMeansAllAvailableVars")
        show("pctsMeansArrowSelSplitVarsRight")
        show("pctsMeansArrowSelSplitVarsLeft")
        show("pctsMeansSplitVars")
        show("pctsMeansInclMiss")
        show("pctsMeansArrowSelBckgVarsRight")
        show("pctsMeansArrowSelBckgVarsLeft")
        show("pctsMeansBckgVars")
        show("pctsMeansArrowSelPVsRight")
        show("pctsMeansArrowSelPVsLeft")
        show("pctsMeansArrowSelPVsRightDisbld")
        show("pctsMeansArrowSelPVsLeftDisbld")
        show("pctsMeansPVVarsDisbld")
        show("pctsMeansPVVars")
        show("pctsMeansArrowSelWeightVarsRight")
        show("pctsMeansArrowSelWeightVarsLeft")
        show("pctsMeansWeightVar")
      }
      if(
        is.null(pctsMeansAllVars$pctsMeansSelectedPVVars) ||
        is.null(pctsMeansAllVars$pctsMeansSelectedBckgVars) ||
        is.null(pctsMeansAllVars$pctsMeansSelectedSplitVars) ||
        is.null(pctsMeansAllVars$pctsMeansSelectedWeightVar) ||
        nrow(rbindlist(l = list(pctsMeansAllVars$pctsMeansSelectedPVVars, pctsMeansAllVars$pctsMeansSelectedBckgVars), fill = TRUE)) == 0 ||
        is.null(file.pct.means$loaded) ||
        any(pctsMeansAllVars$pctsMeansSelectedPVVars[ , Variables] %in% file.pct.means$PV.sets == FALSE) ||
        any(pctsMeansAllVars$pctsMeansSelectedSplitVars[ , Variables] %in% file.pct.means$PV.sets == TRUE) ||
        any(pctsMeansAllVars$pctsMeansSelectedBckgVars[ , Variables] %in% file.pct.means$PV.sets == TRUE) ||
        any(pctsMeansAllVars$pctsMeansSelectedWeightVar[ , Variables] %in% all.studies.available.weights == FALSE) ||
        is.null(file.pct.means$default.weight) ||
        length(file.pct.means$default.weight) == 0) {
        hide("centralTendencyType")
        hide("centralTendencyTypeExpl")
      } else if(
        !is.null(pctsMeansAllVars$pctsMeansSelectedPVVars) ||
        !is.null(pctsMeansAllVars$pctsMeansSelectedBckgVars) ||
        !is.null(pctsMeansAllVars$pctsMeansSelectedSplitVars) ||
        !is.null(pctsMeansAllVars$pctsMeansSelectedWeightVar) ||
        nrow(rbindlist(l = list(pctsMeansAllVars$pctsMeansSelectedPVVars, pctsMeansAllVars$pctsMeansSelectedBckgVars), fill = TRUE)) > 0 ||
        all(pctsMeansAllVars$pctsMeansSelectedPVVars[ , Variables] %in% file.pct.means$PV.sets == TRUE) ||
        all(pctsMeansAllVars$pctsMeansSelectedSplitVars[ , Variables] %in% file.pct.means$PV.sets == FALSE) ||
        all(pctsMeansAllVars$pctsMeansSelectedBckgVars[ , Variables] %in% file.pct.means$PV.sets == FALSE) ||
        all(pctsMeansAllVars$pctsMeansSelectedWeightVar[ , Variables] %in% all.studies.available.weights == TRUE) ||
        !is.null(file.pct.means$default.weight) ||
        length(file.pct.means$default.weight) != 0
      ) {
        show("centralTendencyType")
        show("centralTendencyTypeExpl")
      }
      if(
        is.null(file.pct.means$loaded) ||
        length(parseSavePath(available.volumes, input$pctsMeansChooseOutFile)$datapath) == 0 ||
        !is.null(parseSavePath(available.volumes, input$pctsMeansChooseOutFile)$datapath) && length(parseSavePath(available.volumes, input$pctsMeansChooseOutFile)$datapath) == 0 ||
        length(parseFilePaths(available.volumes, input$pctsMeansChooseSrcFile)$datapath) == 0
      ) {
        hide("savePctsMeansSyntax")
        hide("copyPctsMeansSyntax")
      } else {
        show("savePctsMeansSyntax")
        show("copyPctsMeansSyntax")
      }
      if(!is.null(file.pct.means$loaded) && isTRUE(input$pctsMeansGraphs) && !is.null(input$pctsMeansGraphsPctXlabelChk) && isTRUE(input$pctsMeansGraphsPctXlabelChk) && !is.null(input$pctsMeansGraphsPctXlabelTXT) && input$pctsMeansGraphsPctXlabelTXT == "" ||
         !is.null(file.pct.means$loaded) && isTRUE(input$pctsMeansGraphs) && !is.null(input$pctsMeansGraphsPctYlabelChk) && isTRUE(input$pctsMeansGraphsPctYlabelChk) && !is.null(input$pctsMeansGraphsPctYlabelTXT) && input$pctsMeansGraphsPctYlabelTXT == "" ||
         !is.null(file.pct.means$loaded) && isTRUE(input$pctsMeansGraphs) && !is.null(input$pctsMeansGraphsMeanXlabelsChk) && isTRUE(input$pctsMeansGraphsMeanXlabelsChk) && !is.null(input$pctsMeansGraphsMeanXlabelsTXT) && input$pctsMeansGraphsMeanXlabelsTXT == "" ||
         !is.null(file.pct.means$loaded) && isTRUE(input$pctsMeansGraphs) && !is.null(input$pctsMeansGraphsMeanXlabelsChk) && isTRUE(input$pctsMeansGraphsMeanXlabelsChk) && !is.null(input$pctsMeansGraphsMeanXlabelsTXT) && nrow(rbindlist(l = list(pctsMeansAllVars$pctsMeansSelectedBckgVars, pctsMeansAllVars$pctsMeansSelectedPVVars))) != length(unlist(means.custom.X.labels())) ||
         !is.null(file.pct.means$loaded) && isTRUE(input$pctsMeansGraphs) && !is.null(input$pctsMeansGraphsMeanYlabelsChk) && isTRUE(input$pctsMeansGraphsMeanYlabelsChk) && !is.null(input$pctsMeansGraphsMeanYlabelsTXT) && input$pctsMeansGraphsMeanYlabelsTXT == "" ||
         !is.null(file.pct.means$loaded) && isTRUE(input$pctsMeansGraphs) && !is.null(input$pctsMeansGraphsMeanYlabelsChk) && isTRUE(input$pctsMeansGraphsMeanYlabelsChk) && !is.null(input$pctsMeansGraphsMeanYlabelsTXT) && nrow(rbindlist(l = list(pctsMeansAllVars$pctsMeansSelectedBckgVars, pctsMeansAllVars$pctsMeansSelectedPVVars))) != length(unlist(means.custom.Y.labels())) ||
         length(parseSavePath(available.volumes, input$pctsMeansChooseOutFile)$datapath) == 0) {
        hide("savePctsMeansSyntax")
        hide("copyPctsMeansSyntax")
        hide("pctsMeansExecBtnHead")
        hide("execPctsMeans")
        hide("pctsMeansOpenOutput")
        hide("pctsMeansSyntaxHead")
        hide("pctsMeansSyntax")
      } else if(!is.null(file.pct.means$loaded) && isTRUE(input$pctsMeansGraphs) && !is.null(input$pctsMeansGraphsPctXlabelChk) && isTRUE(input$pctsMeansGraphsPctXlabelChk) && !is.null(input$pctsMeansGraphsPctXlabelTXT) && input$pctsMeansGraphsPctXlabelTXT != "" ||
                !is.null(file.pct.means$loaded) && isTRUE(input$pctsMeansGraphs) && !is.null(input$pctsMeansGraphsPctYlabelChk) && isTRUE(input$pctsMeansGraphsPctYlabelChk) && !is.null(input$pctsMeansGraphsPctYlabelTXT) && input$pctsMeansGraphsPctYlabelTXT != "" ||
                !is.null(file.pct.means$loaded) && isTRUE(input$pctsMeansGraphs) && !is.null(input$pctsMeansGraphsMeanXlabelsChk) && isTRUE(input$pctsMeansGraphsMeanXlabelsChk) && !is.null(input$pctsMeansGraphsMeanXlabelsTXT) && input$pctsMeansGraphsMeanXlabelsTXT != "" ||
                !is.null(file.pct.means$loaded) && isTRUE(input$pctsMeansGraphs) && !is.null(input$pctsMeansGraphsMeanXlabelsChk) && isTRUE(input$pctsMeansGraphsMeanXlabelsChk) && !is.null(input$pctsMeansGraphsMeanXlabelsTXT) && nrow(rbindlist(l = list(pctsMeansAllVars$pctsMeansSelectedBckgVars, pctsMeansAllVars$pctsMeansSelectedPVVars))) == length(unlist(means.custom.X.labels())) ||
                !is.null(file.pct.means$loaded) && isTRUE(input$pctsMeansGraphs) && !is.null(input$pctsMeansGraphsMeanYlabelsChk) && isTRUE(input$pctsMeansGraphsMeanYlabelsChk) && !is.null(input$pctsMeansGraphsMeanYlabelsTXT) && input$pctsMeansGraphsMeanYlabelsTXT != "" ||
                !is.null(file.pct.means$loaded) && isTRUE(input$pctsMeansGraphs) && !is.null(input$pctsMeansGraphsMeanYlabelsChk) && isTRUE(input$pctsMeansGraphsMeanYlabelsChk) && !is.null(input$pctsMeansGraphsMeanYlabelsTXT) && nrow(rbindlist(l = list(pctsMeansAllVars$pctsMeansSelectedBckgVars, pctsMeansAllVars$pctsMeansSelectedPVVars))) == length(unlist(means.custom.Y.labels())) ||
                length(parseSavePath(available.volumes, input$pctsMeansChooseOutFile)$datapath) > 0) {
        show("savePctsMeansSyntax")
        show("copyPctsMeansSyntax")
        show("pctsMeansExecBtnHead")
        show("execPctsMeans")
        show("pctsMeansOpenOutput")
        show("pctsMeansSyntaxHead")
        show("pctsMeansSyntax")
      }
    })
  }
})
observeEvent(input$execPctsMeans, {
  showNotification(ui = HTML("<br/>   Execution started.   <br/><br/>"), type = "message")
  withCallingHandlers({html("consolePctsMeans", "")
    tryCatch({
      expr = eval(parse(text = file.pct.means$pct.means.syntax))
      showNotification(ui = HTML("<br/>   All operations complete!   <br/><br/>"), type = "message", duration = NULL)
    }, error = function(e) {
      message("", e)
      showNotification(ui = HTML(paste0("Something went wrong. Possible reasons: <br/>", paste(gsub(pattern = "\\n|Error: ", replacement = "<br/>", x = e)))), type = "error", duration = NULL)
    })
  },
  message = function(i) {
    shinyjs::html(id = "consolePctsMeans", html = i$message, add = TRUE)
  },
  warning = function(w) {
    shinyjs::html(id = "consolePctsMeans", html = paste0("Warning: ", w$message, "\n"), add = TRUE)
  })
  session$sendCustomMessage(type = "scrollCallback", 1)
}, ignoreInit = TRUE)
output$h1Prctls <- renderText("Percentiles")
hide("prctlsChooseOutFile")
hide("savePrctlstSyntax")
hide("copyPrctlstSyntax")
output$prctlsIntro <- renderText({HTML("Select large-scale assessment .RData file to load.")})
file.prctls <- reactiveValues(loaded = NULL, is.lsa.data = NULL, vars.classes = NULL, resp.type = NULL, study = NULL, cycle = NULL, country.ID = NULL, PV.sets = NULL, default.weight = NULL, prctls.values = "5 25 50 75 95", prctls.syntax = NULL)
shinyFileChoose(input, "prctlsChooseSrcFile", roots = available.volumes, filetype = list(RData = "RData"))
observeEvent(eventExpr = input$prctlsChooseSrcFile, {
  file.prctls$loaded <- NULL
  file.prctls$vars.classes <- NULL
  file.prctls$study <- NULL
  file.prctls$cycle <- NULL
  file.prctls$resp.type <- NULL
  file.prctls$PV.sets <- NULL
  file.prctls$default.weight <- NULL
  if(length(parseFilePaths(available.volumes, input$prctlsChooseSrcFile)$datapath) > 0 && file.size(parseFilePaths(available.volumes, input$prctlsChooseSrcFile)$datapath) > 104857600) {
    showNotification(ui = HTML('The size of the selected<br/>file is rather large. Please<br/>wait until the file is loaded.'), type = "message")
  }
  if(length(parseFilePaths(available.volumes, input$prctlsChooseSrcFile)$datapath) > 0) {
    file.prctls$loaded <- get(load(parseFilePaths(available.volumes, input$prctlsChooseSrcFile)$datapath))
    if("lsa.data" %in% class(file.prctls$loaded)) {
      file.prctls$is.lsa.data <- TRUE
    } else {
      file.prctls$is.lsa.data <- FALSE
    }
    file.prctls$study <- attr(x = file.prctls$loaded, which = "study")
    file.prctls$cycle <- attr(x = file.prctls$loaded, which = "cycle")
    file.prctls$resp.type <- attr(x = file.prctls$loaded, which = "file.type")
    file.prctls$vars.classes <- lapply(X = file.prctls$loaded, FUN = class)
    file.prctls$loaded <- data.table(Variables = names(file.prctls$loaded), Variable_Labels = sapply(X = file.prctls$loaded, FUN = function(j) {
      if(is.null(attr(x = j, which = "variable.label"))) {
        return(NA_character_)
      } else {
        attr(x = j, which = "variable.label")
      }
    }),
    order_col = 1:ncol(file.prctls$loaded))
    tmp.PV.names <- grep(pattern = paste(all.available.PVs, collapse = "|"), x = file.prctls$loaded[ , Variables], value = TRUE)
    if(length(tmp.PV.names) > 0) {
      collapsed.PVs <- collapse.loaded.file.PV.names(PV.vector = tmp.PV.names, vars.object = file.prctls$loaded)
      file.prctls$loaded <- file.prctls$loaded[!Variables %in% tmp.PV.names]
      file.prctls$loaded <- rbindlist(l = list(file.prctls$loaded, collapsed.PVs))
      setkeyv(x = file.prctls$loaded, cols = "order_col")
      file.prctls$PV.sets <- collapsed.PVs[ , Variables]
    }
    if(!is.null(file.prctls$study)) {
      file.prctls$default.weight <- define.default.weight(study = file.prctls$study, loaded.names.and.labels = file.prctls$loaded, respondent.type = file.prctls$resp.type)
    }
    file.prctls$country.ID <- NULL
    if("IDCNTRY" %in% file.prctls$loaded[ , Variables]) {
      file.prctls$country.ID <- "IDCNTRY"
    } else {
      file.prctls$country.ID <- "CNT"
    }
  }
  output$prctlsSrcPathDisplay <- renderText({parseFilePaths(available.volumes, input$prctlsChooseSrcFile)$datapath})
}, ignoreInit = TRUE)
observe({
  if(!is.null(file.prctls$loaded) && file.prctls$is.lsa.data == FALSE) {
    showNotification(ui = HTML('The data is not of class "lsa.data".<br/>Please check the file content.'), type = "error")
  } else if (!is.null(file.prctls$loaded) && file.prctls$is.lsa.data == TRUE) {
    output$prctlsStudyName <- renderText({
      if(is.null(file.prctls$resp.type)) {
        return(NULL)
      } else {
        HTML(paste0('Study: ', file.prctls$study))
      }
    })
    output$prctlsStudyCycle <- renderText({
      if(is.null(file.prctls$resp.type)) {
        return(NULL)
      } else {
        HTML(paste0('Cycle: ', file.prctls$cycle))
      }
    })
    output$prctlsRespHead <- renderText({
      if(is.null(file.prctls$resp.type)) {
        return(NULL)
      } else {
        HTML('<u>The file contains data from the following respondents:</u>')
      }
    })
    output$prctlsRespAvailable <- renderText({
      if(is.null(file.prctls$resp.type)) {
        return(NULL)
      } else {
        HTML(file.merged.respondents[[file.prctls$resp.type]])
      }
    })
    output$prctlsNoWeights <- renderText({
      if(!is.null(file.prctls$loaded) && is.null(file.prctls$default.weight) || !is.null(file.prctls$loaded) && length(file.prctls$default.weight) == 0) {
        HTML('Error: The loaded file does not contain any recognizable default weight variable. Such files cannot be analyzed on their own and must be merged with other respondents in advance.')
      } else {
        return(NULL)
      }
    })
    output$prctlsVariablesExplText <- renderText({
      if(is.null(file.prctls$resp.type)) {
        return(NULL)
      } else {
        HTML('Use the panels below to select the variables to compute percentiles of continuous variables within groups specified by splitting variables and precentages of respondents within these groups.')
      }
    })
    prctls.initial.available.vars <- file.prctls$loaded[!Variables %in% c(file.prctls$default.weight, file.prctls$country.ID), ]
    prctls.initial.selected.split.vars <- file.prctls$loaded[Variables == file.prctls$country.ID, ]
    prctls.initial.selected.bckg.vars <- data.table(Variables = as.character(), Variable_Labels = as.character(), order_col = as.numeric())
    prctls.initial.selected.PV.vars <- data.table(Variables = as.character(), Variable_Labels = as.character(), order_col = as.numeric())
    prctls.initial.selected.weight.var <- file.prctls$loaded[Variables %in% file.prctls$default.weight, ]
    prctlsAllVars <- reactiveValues(prctlsAvailVars = prctls.initial.available.vars, prctlsSelectedSplitVars = prctls.initial.selected.split.vars, prctlsSelectedBckgVars = prctls.initial.selected.bckg.vars, prctlsSelectedPVVars = prctls.initial.selected.PV.vars, prctlsSelectedWeightVar = prctls.initial.selected.weight.var)
    output$prctlsArrowSelSplitVarsRight <- renderUI({
      if(is.null(file.prctls$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "prctlsArrowSelSplitVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$prctlsArrowSelSplitVarsLeft <- renderUI({
      if(is.null(file.prctls$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "prctlsArrowSelSplitVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$prctlsArrowSelBckgVarsRight <- renderUI({
      if(is.null(file.prctls$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "prctlsArrowSelBckgVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$prctlsArrowSelBckgVarsLeft <- renderUI({
      if(is.null(file.prctls$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "prctlsArrowSelBckgVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$prctlsArrowSelPVsRight <- renderUI({
      if(is.null(file.prctls$resp.type) || is.null(file.prctls$PV.sets)) {
        return(NULL)
      } else {
        actionButton(inputId = "prctlsArrowSelPVsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$prctlsArrowSelPVsLeft <- renderUI({
      if(is.null(file.prctls$resp.type) || is.null(file.prctls$PV.sets)) {
        return(NULL)
      } else {
        actionButton(inputId = "prctlsArrowSelPVsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$prctlsArrowSelPVsRightDisbld <- renderUI({
      if(is.null(file.prctls$resp.type) || is.null(file.prctls$PV.sets)) {
        actionButton(inputId = "prctlsArrowSelPVsRightDisbld", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #c6c6c6; border-radius: 10px")
      } else {
        return(NULL)
      }
    })
    output$prctlsArrowSelPVsLeftDisbld <- renderUI({
      if(is.null(file.prctls$resp.type) || is.null(file.prctls$PV.sets)) {
        actionButton(inputId = "prctlsArrowSelPVsLeftDisbld", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #c6c6c6; border-radius: 10px")
      } else {
        return(NULL)
      }
    })
    output$prctlsArrowSelWeightVarsRight <- renderUI({
      if(is.null(file.prctls$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "prctlsArrowSelWeightVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$prctlsArrowSelWeightVarsLeft <- renderUI({
      if(is.null(file.prctls$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "prctlsArrowSelWeightVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    observeEvent(input$prctlsArrowSelSplitVarsRight, {
      req(input$prctlsAllAvailableVars_rows_selected)
      prctlsAllVars$prctlsSelectedSplitVars <- rbind(isolate(prctlsAllVars$prctlsSelectedSplitVars), prctlsAllVars$prctlsAvailVars[input$prctlsAllAvailableVars_rows_selected, , drop = FALSE])
      prctlsAllVars$prctlsSelectedSplitVars <- prctlsAllVars$prctlsSelectedSplitVars[complete.cases(prctlsAllVars$prctlsSelectedSplitVars[ , "Variables"]), , drop = FALSE]
      prctlsAllVars$prctlsAvailVars <- isolate(prctlsAllVars$prctlsAvailVars[-input$prctlsAllAvailableVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$prctlsArrowSelSplitVarsLeft, {
      req(input$prctlsSplitVars_rows_selected)
      prctlsAllVars$prctlsAvailVars <- rbind(isolate(prctlsAllVars$prctlsAvailVars),        prctlsAllVars$prctlsSelectedSplitVars[input$prctlsSplitVars_rows_selected, , drop = FALSE])
      prctlsAllVars$prctlsAvailVars <- prctlsAllVars$prctlsAvailVars[complete.cases(prctlsAllVars$prctlsAvailVars[ , "Variables"]), , drop = FALSE]
      if(nrow(prctlsAllVars$prctlsSelectedSplitVars) > 0) {
        prctlsAllVars$prctlsSelectedSplitVars <- isolate(prctlsAllVars$prctlsSelectedSplitVars[-input$prctlsSplitVars_rows_selected, , drop = FALSE])
      }
      if(!file.prctls$country.ID %in% prctlsAllVars$prctlsSelectedSplitVars[ , Variables]) {
        showNotification(ui = HTML("Country ID <b>must always be</b> the first splitting variable!"), type = "error")
      }
      prctlsAllVars$prctlsSelectedSplitVars <- rbindlist(l = list(prctlsAllVars$prctlsSelectedSplitVars, prctlsAllVars$prctlsAvailVars[Variables == file.prctls$country.ID, ]))
      prctlsAllVars$prctlsAvailVars <- prctlsAllVars$prctlsAvailVars[Variables != file.prctls$country.ID, ]
    })
    observeEvent(input$prctlsArrowSelBckgVarsRight, {
      req(input$prctlsAllAvailableVars_rows_selected)
      prctlsAllVars$prctlsSelectedBckgVars <- rbind(isolate(prctlsAllVars$prctlsSelectedBckgVars), prctlsAllVars$prctlsAvailVars[input$prctlsAllAvailableVars_rows_selected, , drop = FALSE])
      prctlsAllVars$prctlsSelectedBckgVars <- prctlsAllVars$prctlsSelectedBckgVars[complete.cases(prctlsAllVars$prctlsSelectedBckgVars[ , "Variables"]), , drop = FALSE]
      prctlsAllVars$prctlsAvailVars <- isolate(prctlsAllVars$prctlsAvailVars[-input$prctlsAllAvailableVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$prctlsArrowSelBckgVarsLeft, {
      req(input$prctlsBckgVars_rows_selected)
      prctlsAllVars$prctlsAvailVars <- rbind(isolate(prctlsAllVars$prctlsAvailVars),        prctlsAllVars$prctlsSelectedBckgVars[input$prctlsBckgVars_rows_selected, , drop = FALSE])
      prctlsAllVars$prctlsAvailVars <- prctlsAllVars$prctlsAvailVars[complete.cases(prctlsAllVars$prctlsAvailVars[ , "Variables"]), , drop = FALSE]
      prctlsAllVars$prctlsSelectedBckgVars <- isolate(prctlsAllVars$prctlsSelectedBckgVars[-input$prctlsBckgVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$prctlsArrowSelPVsRight, {
      req(input$prctlsAllAvailableVars_rows_selected)
      prctlsAllVars$prctlsSelectedPVVars <- rbind(isolate(prctlsAllVars$prctlsSelectedPVVars), prctlsAllVars$prctlsAvailVars[input$prctlsAllAvailableVars_rows_selected, , drop = FALSE])
      prctlsAllVars$prctlsSelectedPVVars <- prctlsAllVars$prctlsSelectedPVVars[complete.cases(prctlsAllVars$prctlsSelectedPVVars[ , "Variables"]), , drop = FALSE]
      if(nrow(prctlsAllVars$prctlsSelectedPVVars)) {
        prctlsAllVars$prctlsAvailVars <- isolate(prctlsAllVars$prctlsAvailVars[-input$prctlsAllAvailableVars_rows_selected, , drop = FALSE])
      }
    })
    observeEvent(input$prctlsArrowSelPVsLeft, {
      req(input$prctlsPVVars_rows_selected)
      prctlsAllVars$prctlsAvailVars <- rbind(isolate(prctlsAllVars$prctlsAvailVars),        prctlsAllVars$prctlsSelectedPVVars[input$prctlsPVVars_rows_selected, , drop = FALSE])
      prctlsAllVars$prctlsAvailVars <- prctlsAllVars$prctlsAvailVars[complete.cases(prctlsAllVars$prctlsAvailVars[ , "Variables"]), , drop = FALSE]
      if(nrow(prctlsAllVars$prctlsSelectedPVVars)) {
        prctlsAllVars$prctlsSelectedPVVars <- isolate(prctlsAllVars$prctlsSelectedPVVars[-input$prctlsPVVars_rows_selected, , drop = FALSE])
      }
    })
    observeEvent(input$prctlsArrowSelWeightVarsRight, {
      req(input$prctlsAllAvailableVars_rows_selected)
      prctlsAllVars$prctlsSelectedWeightVar <- rbind(isolate(prctlsAllVars$prctlsSelectedWeightVar), prctlsAllVars$prctlsAvailVars[input$prctlsAllAvailableVars_rows_selected, , drop = FALSE])
      prctlsAllVars$prctlsSelectedWeightVar <- prctlsAllVars$prctlsSelectedWeightVar[complete.cases(prctlsAllVars$prctlsSelectedWeightVar[ , "Variables"]), , drop = FALSE]
      prctlsAllVars$prctlsAvailVars <- isolate(prctlsAllVars$prctlsAvailVars[-input$prctlsAllAvailableVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$prctlsArrowSelWeightVarsLeft, {
      req(input$prctlsWeightVar_rows_selected)
      prctlsAllVars$prctlsAvailVars <- rbind(isolate(prctlsAllVars$prctlsAvailVars),        prctlsAllVars$prctlsSelectedWeightVar[input$prctlsWeightVar_rows_selected, , drop = FALSE])
      prctlsAllVars$prctlsAvailVars <- prctlsAllVars$prctlsAvailVars[complete.cases(prctlsAllVars$prctlsAvailVars[ , "Variables"]), , drop = FALSE]
      if(nrow(prctlsAllVars$prctlsSelectedWeightVar) > 0) {
        prctlsAllVars$prctlsSelectedWeightVar <- isolate(prctlsAllVars$prctlsSelectedWeightVar[-input$prctlsWeightVar_rows_selected, , drop = FALSE])
      }
    })
    output$prctlsAllAvailableVars <- renderDT({
      setkeyv(x = prctlsAllVars$prctlsAvailVars, cols = "order_col")
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Available variables"),
    rownames = FALSE,
    filter = "top",
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables available"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 766, scroller = TRUE
    ))
    output$prctlsSplitVars <- renderDT({
      prctlsAllVars$prctlsSelectedSplitVars
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Split variables"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$prctlsInclMiss <- renderUI({
      if(nrow(prctlsAllVars$prctlsSelectedSplitVars) == 0) {
        return(NULL)
      } else {
        checkboxInput(inputId = "prctlsInclMiss", label = "Compute statistics for the missing values of the split variables", value = FALSE, width = "400px")
      }
    })
    output$prctlsBckgVars <- renderDT({
      prctlsAllVars$prctlsSelectedBckgVars
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Background continuous variables"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$prctlsPVVars <- renderDT({
      if(is.null(file.prctls$PV.sets)) {
        return(NULL)
      } else {
        prctlsAllVars$prctlsSelectedPVVars
      }
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Plausible values"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$prctlsPVVarsDisbld <- renderDT({
      if(is.null(file.prctls$PV.sets)) {
        data.table(V1 = as.character(), V2 = as.character())
      } else {
        return(NULL)
      }
    },
    select = "none",
    caption = htmltools::tags$caption(style = "color: #c6c6c6; font-weight: bold;", "Plausible values"),
    rownames = FALSE,
    colnames = c("Names", "Labels"),
    options = list(
      language = list(zeroRecords = "No variables can be selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#c6c6c6', 'color': '#ffffff'});", "}"),
      dom = "ti",
      ordering = FALSE,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0)),
      headerCallback = JS("function(thead, data, start, end, display){$('th', thead).css('border-bottom', 'none');}"),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$prctlsWeightVar <- renderDT({
      prctlsAllVars$prctlsSelectedWeightVar
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Weight variable"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = paste0("No weight selected, default (", file.prctls$default.weight, ") will be used")),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$prctlsPVsNotPVs <- renderText({
      if(!is.null(prctlsAllVars$prctlsSelectedPVVars) && any(prctlsAllVars$prctlsSelectedPVVars[ , Variables] %in% file.prctls$PV.sets == FALSE)) {
        HTML('Warning: One or more of the selected variables in "Plausible values" is not a set of PVs. Please check the added variables.')
      } else {
        return(NULL)
      }
    })
    output$prctlsSplitArePVs <- renderText({
      if(any(prctlsAllVars$prctlsSelectedSplitVars[ , Variables] %in% file.prctls$PV.sets == TRUE)) {
        HTML('Warning: One or more of the selected variables in "Split variables" are sets of PVs. Please check the added variables.')
      } else {
        return(NULL)
      }
    })
    output$prctlsBckgArePVs <- renderText({
      if(!is.null(prctlsAllVars$prctlsSelectedPVVars) && any(prctlsAllVars$prctlsSelectedBckgVars[ , Variables] %in% file.prctls$PV.sets == TRUE)) {
        HTML('Warning: One or more of the selected variables in "Background continuous variables" are sets of PVs. Please check the added variables.')
      } else {
        return(NULL)
      }
    })
    output$prctlsBckgNotCnt <- renderText({
      if(!is.null(prctlsAllVars$prctlsSelectedPVVars) && any(unlist(file.prctls$vars.classes[prctlsAllVars$prctlsSelectedBckgVars[ , Variables]]) != "numeric")) {
        HTML('Warning: One or more of the selected variables in "Background continuous variables" is not continuous. Please check the added variables.')
      } else {
        return(NULL)
      }
    })
    output$prctlsWgtsNotWgts <- renderText({
      if(any(prctlsAllVars$prctlsSelectedWeightVar[ , Variables] %in% all.studies.available.weights == FALSE)) {
        HTML('Warning: The variable in "Weight variable" is not a weight. Please check the added variable.')
      } else {
        return(NULL)
      }
    })
    output$prctlsWarnMoreVars <- renderText({
      if(!is.null(prctlsAllVars$prctlsSelectedPVVars) && nrow(prctlsAllVars$prctlsSelectedBckgVars) > 1) {
        HTML('<b>Note:</b> Percentiles for more than one background variable can be computed at the same time. However, the estimates will slightly differ compared to computing percentiles one by one because the cases with the missing values on each "bckg.prctls.vars" are removed in advance and the more variables are provided, the more cases are likely to be removed.')
      } else if(!is.null(prctlsAllVars$prctlsSelectedPVVars) && nrow(prctlsAllVars$prctlsSelectedBckgVars) > 0 && nrow(prctlsAllVars$prctlsSelectedPVVars) > 0 && all(prctlsAllVars$prctlsSelectedPVVars[ , Variables] %in% file.prctls$PV.sets) == TRUE) {
        HTML('<b>Note:</b> Percentiles for both background variables and PVs can be computed at the same time. However, the estimates will slightly differ compared to computing percentiles one by one because the cases with the missing values on each "bckg.prctls.vars" are removed in advance and the more variables are provided, the more cases are likely to be removed.')
      }
    })
    observe({
      if(nrow(prctlsAllVars$prctlsSelectedWeightVar) > 1) {
        showNotification(ui = HTML("Only one weight variable can be selected!"), type = "error")
        prctlsAllVars$prctlsAvailVars <- rbind(isolate(prctlsAllVars$prctlsAvailVars),        prctlsAllVars$prctlsSelectedWeightVar[nrow(prctlsAllVars$prctlsSelectedWeightVar), , drop = FALSE])
        prctlsAllVars$prctlsAvailVars <- prctlsAllVars$prctlsAvailVars[complete.cases(prctlsAllVars$prctlsAvailVars[ , "Variables"]), , drop = FALSE]
        prctlsAllVars$prctlsSelectedWeightVar <- isolate(prctlsAllVars$prctlsSelectedWeightVar[-2, , drop = FALSE])
      }
    })
    observeEvent(eventExpr = input$prctlsChooseSrcFile, {
      prctlsAllVars$prctlsSelectedPVVars <- NULL
      prctlsAllVars$prctlsSelectedBckgVars <- NULL
    }, ignoreInit = TRUE)
    output$prctlsValuesExpl <- renderText({
      if(nrow(prctlsAllVars$prctlsAvailVars) == 0) {
        return(NULL)
      } else {
        HTML('In the field below, add/change the percentiles that will be calculated from the distribution of values for the selected variables.<br/>The values <b>must</b> be whole numbers, divided by spaces.')
      }
    })
    output$prctlsValues <- renderUI({
      if(nrow(prctlsAllVars$prctlsAvailVars) == 0) {
        return(NULL)
      } else {
        textInput(inputId = "prctlsValues", label = "Percentiles", value = file.prctls$prctls.values, width = "350px")
      }
    })
    output$prctlsValuesReset <- renderUI({
      if(nrow(prctlsAllVars$prctlsAvailVars) == 0) {
        return(NULL)
      } else {
        actionButton(inputId = "prctlsValuesReset", label = "Reset", icon = icon("undo-alt"), style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    prctls.not.numbers <- reactiveVal()
    observe({
      if(!is.null(input$prctlsValues) && grepl(pattern = "[[:alpha:]]|[[:punct:]]", x = input$prctlsValues) == TRUE) {
        prctls.not.numbers(TRUE)
      } else if(!is.null(input$prctlsValues) && grepl(pattern = "[[:alpha:]]|[[:punct:]]", x = input$prctlsValues) == FALSE) {
        prctls.not.numbers(FALSE)
      }
    })
    output$prctlsNotNum <- renderText({
      if(!is.null(input$prctlsValues) && prctls.not.numbers() == TRUE) {
        HTML('<br/>Warning: The values passed to the field on the left can contain <u>only</u> numbers and spaces. Please check the input.')
      } else {
        return(NULL)
      }
    })
    prctls.out.of.bounds <- reactiveVal()
    observe({
      suppressWarnings(
        if(!is.null(input$prctlsValues) && any(na.omit(as.numeric(unlist(str_split(string = input$prctlsValues, pattern = "[[:space:]]+")))) > 99)) {
          prctls.out.of.bounds(TRUE)
        } else if(!is.null(input$prctlsValues) && any(na.omit(as.numeric(unlist(str_split(string = input$prctlsValues, pattern = "[[:space:]]+")))) < 1)) {
          prctls.out.of.bounds(TRUE)
        } else {
          prctls.out.of.bounds(FALSE)
        }
      )
    })
    output$prctlsNotInRange <- renderText({
      if(!is.null(input$prctlsValues) && prctls.out.of.bounds() == TRUE) {
        HTML('<br/>Warning: The values passed to the field on the left can be <u>only</u> between 1 and 99. Please check the input.')
      } else {
        return(NULL)
      }
    })
    observeEvent(input$prctlsValuesReset, {
      shinyjs::reset("prctlsValues")
    })
    output$prctlsShortcut <- renderUI({
      if(!is.null(file.prctls$loaded) && file.prctls$study %in% c("PIRLS", "prePIRLS", "ePIRLS", "RLII", "TIMSS", "eTIMSS PSI", "preTIMSS", "TIMSS Advanced", "TiPi")) {
        checkboxInput(inputId = "prctlsShortcut", label = "Use shortcut method for computing SE", value = FALSE, width = "350px")
      }
    })
    output$prctlsGraphs <- renderUI({
      if(!is.null(file.prctls$loaded)) {
        checkboxInput(inputId = "prctlsGraphs", label = "Produce graphs", value = FALSE, width = "350px")
      }
    })
    output$prctlsGraphsPctXlabelChk <- renderUI({
      if(!is.null(file.prctls$loaded) && isTRUE(input$prctlsGraphs)) {
        checkboxInput(inputId = "prctlsGraphsPctXlabelChk", label = "Custom percentages graphs x-axis label", value = FALSE, width = "300px")
      }
    })
    output$prctlsGraphsPctXlabelTXT <- renderUI({
      if(!is.null(file.prctls$loaded) && isTRUE(input$prctlsGraphs) && isTRUE(input$prctlsGraphsPctXlabelChk)) {
        textInput(inputId = "prctlsGraphsPctXlabelTXT", label = NULL, placeholder = "Type your custom horizontal axis label for the percentage plots", width = "100%")
      }
    })
    output$prctlsGraphsPctYlabelChk <- renderUI({
      if(!is.null(file.prctls$loaded) && isTRUE(input$prctlsGraphs)) {
        checkboxInput(inputId = "prctlsGraphsPctYlabelChk", label = "Custom percentages graphs y-axis label", value = FALSE, width = "300px")
      }
    })
    output$prctlsGraphsPctYlabelTXT <- renderUI({
      if(!is.null(file.prctls$loaded) && isTRUE(input$prctlsGraphs) && isTRUE(input$prctlsGraphsPctYlabelChk)) {
        textInput(inputId = "prctlsGraphsPctYlabelTXT", label = NULL, placeholder = "Type your custom vertical axis label for the percentage plots", width = "100%")
      }
    })
    output$prctlsGraphsPrctlXlabelsChk <- renderUI({
      if(!is.null(file.prctls$loaded) && isTRUE(input$prctlsGraphs) && nrow(rbindlist(l = list(prctlsAllVars$prctlsSelectedBckgVars, prctlsAllVars$prctlsSelectedPVVars))) > 0) {
        checkboxInput(inputId = "prctlsGraphsPrctlXlabelsChk", label = "Custom percentiles graphs x-axis labels", value = FALSE, width = "300px")
      }
    })
    output$prctlsGraphsPrctlXlabelsTXT <- renderUI({
      if(!is.null(file.prctls$loaded) && isTRUE(input$prctlsGraphs) && isTRUE(input$prctlsGraphsPrctlXlabelsChk)) {
        textInput(inputId = "prctlsGraphsPrctlXlabelsTXT", label = NULL, placeholder = "Type your custom horizontal axis labels for the percentile plots, separated by semicolons", width = "100%")
      }
    })
    output$prctlsGraphsPrctlYlabelsChk <- renderUI({
      if(!is.null(file.prctls$loaded) && isTRUE(input$prctlsGraphs) && nrow(rbindlist(l = list(prctlsAllVars$prctlsSelectedBckgVars, prctlsAllVars$prctlsSelectedPVVars))) > 0) {
        checkboxInput(inputId = "prctlsGraphsPrctlYlabelsChk", label = "Custom percentiles graphs y-axis labels", value = FALSE, width = "300px")
      }
    })
    output$prctlsGraphsPrctlYlabelsTXT <- renderUI({
      if(!is.null(file.prctls$loaded) && isTRUE(input$prctlsGraphs) && isTRUE(input$prctlsGraphsPrctlYlabelsChk)) {
        textInput(inputId = "prctlsGraphsPrctlYlabelsTXT", label = NULL, placeholder = "Type your custom vertical axis labels for the percentile plots, separated by semicolons", width = "100%")
      }
    })
    prctls.custom.X.labels <- reactive({
      if(!is.null(input$prctlsGraphsPrctlXlabelsTXT)) {
        prctls.custom.X.labels <- strsplit(x = input$prctlsGraphsPrctlXlabelsTXT, split = "[[:space:]]*\\;[[:space:]]*")
      }
    })
    output$warnPrctlsCustomXlab <- renderText({
      if(is.null(input$prctlsGraphsPrctlXlabelsTXT) == FALSE) {
        if(input$prctlsGraphsPrctlXlabelsChk == TRUE & nrow(rbindlist(l = list(prctlsAllVars$prctlsSelectedBckgVars, prctlsAllVars$prctlsSelectedPVVars))) != length(unlist(prctls.custom.X.labels()))) {
          HTML('The number of custom labels for the <u>horizontal axis</u> in percentile plots must be the same as the number of selected "Background continuous variables" and/or sets of "Plausible values".')
        } else if(input$prctlsGraphsPrctlXlabelsChk == FALSE && nrow(rbindlist(l = list(prctlsAllVars$prctlsSelectedBckgVars, prctlsAllVars$prctlsSelectedPVVars))) == length(unlist(prctls.custom.X.labels()))) {
          HTML("")
        }
      }
    })
    prctls.custom.Y.labels <- reactive({
      if(!is.null(input$prctlsGraphsPrctlYlabelsTXT)) {
        prctls.custom.Y.labels <- strsplit(x = input$prctlsGraphsPrctlYlabelsTXT, split = "[[:space:]]*\\;[[:space:]]*")
      }
    })
    output$warnPrctlsCustomYlab <- renderText({
      if(is.null(input$prctlsGraphsPrctlYlabelsTXT) == FALSE) {
        if(input$prctlsGraphsPrctlYlabelsChk == TRUE && nrow(rbindlist(l = list(prctlsAllVars$prctlsSelectedBckgVars, prctlsAllVars$prctlsSelectedPVVars))) != length(unlist(prctls.custom.Y.labels()))) {
          HTML('The number of custom labels for the <u>vertical axis</u> in percentile plots must be the same as the number of selected "Background continuous variables" and/or sets of "Plausible values".')
        } else if(input$prctlsGraphsPrctlYlabelsChk == FALSE&& nrow(rbindlist(l = list(prctlsAllVars$prctlsSelectedBckgVars, prctlsAllVars$prctlsSelectedPVVars))) == length(unlist(prctls.custom.Y.labels()))) {
          HTML("")
        }
      }
    })
    shinyFileSave(input, "prctlsChooseOutFile", filetype = list(xlsx = "xlsx"), roots = available.volumes, updateFreq = 100000)
    output$prctlsOpenOutput <- renderUI({
      if(length(parseSavePath(available.volumes, input$prctlsChooseOutFile)$datapath) > 0 && length(parseFilePaths(available.volumes, input$prctlsChooseSrcFile)$datapath) > 0 && nrow(rbindlist(l = list(prctlsAllVars$prctlsSelectedPVVars, prctlsAllVars$prctlsSelectedBckgVars))) >= 1) {
        checkboxInput(inputId = "prctlsOpenOutput", label = "Open the output when done", value = TRUE, width = "250px")
      }
    })
    syntaxPrctls <- reactive({
      tmp.prctls.values <- unlist(str_split(string = trimws(input$prctlsValues), pattern = "[[:space:]]+"))
      file.prctls$prctls.syntax <- paste0(
        paste0('lsa.prctls(data.file = "', parseFilePaths(available.volumes, input$prctlsChooseSrcFile)$datapath, '"'),
        if(nrow(prctlsAllVars$prctlsSelectedSplitVars) == 1) {
          paste0(', split.vars = "', prctlsAllVars$prctlsSelectedSplitVars[ , Variables], '"')
        } else if(nrow(prctlsAllVars$prctlsSelectedSplitVars) > 1) {
          paste0(', split.vars = c("', paste(prctlsAllVars$prctlsSelectedSplitVars[ , Variables], collapse = '", "'), '")')
        },
        if(!is.null(prctlsAllVars$prctlsSelectedBckgVars) && nrow(prctlsAllVars$prctlsSelectedBckgVars) == 0) {
          NULL
        } else if(!is.null(prctlsAllVars$prctlsSelectedBckgVars) && nrow(prctlsAllVars$prctlsSelectedBckgVars) == 1) {
          paste0(', bckg.prctls.vars = "', prctlsAllVars$prctlsSelectedBckgVars[ , Variables], '"')
        } else if(!is.null(prctlsAllVars$prctlsSelectedBckgVars) && nrow(prctlsAllVars$prctlsSelectedBckgVars) > 1) {
          paste0(', bckg.prctls.vars = c("', paste(prctlsAllVars$prctlsSelectedBckgVars[ , Variables], collapse = '", "'), '")')
        },
        if(!is.null(prctlsAllVars$prctlsSelectedPVVars) && nrow(prctlsAllVars$prctlsSelectedPVVars) == 0) {
          NULL
        } else if(!is.null(prctlsAllVars$prctlsSelectedPVVars) && nrow(prctlsAllVars$prctlsSelectedPVVars) == 1) {
          paste0(', PV.root.prctls = "', prctlsAllVars$prctlsSelectedPVVars[ , Variables], '"')
        } else if(!is.null(prctlsAllVars$prctlsSelectedPVVars) && nrow(prctlsAllVars$prctlsSelectedPVVars) > 1) {
          paste0(', PV.root.prctls = c("', paste(prctlsAllVars$prctlsSelectedPVVars[ , Variables], collapse = '", "'), '")')
        },
        if(length(tmp.prctls.values) == 1) {
          paste0(', prctls = ', gsub(pattern = "[[:space:]]+", replacement = "", x = tmp.prctls.values))
        } else if(length(tmp.prctls.values) > 1) {
          paste0(', prctls = c(', paste(tmp.prctls.values, collapse = ', '), ')')
        } else {
          NULL
        },
        if(!is.null(prctlsAllVars$prctlsSelectedWeightVar) && nrow(prctlsAllVars$prctlsSelectedWeightVar) == 0) {
          NULL
        } else if(!is.null(prctlsAllVars$prctlsSelectedWeightVar) && nrow(prctlsAllVars$prctlsSelectedWeightVar) == 1 && !is.null(file.prctls$default.weight) && prctlsAllVars$prctlsSelectedWeightVar[ , Variables] == file.prctls$default.weight) {
          NULL
        } else if(!is.null(prctlsAllVars$prctlsSelectedWeightVar) && nrow(prctlsAllVars$prctlsSelectedWeightVar) == 1 && !is.null(file.prctls$default.weight) && prctlsAllVars$prctlsSelectedWeightVar[ , Variables] != file.prctls$default.weight) {
          paste0(', weight.var = "', prctlsAllVars$prctlsSelectedWeightVar[ , Variables], '"')
        },
        if(is.null(input$prctlsInclMiss) || input$prctlsInclMiss == FALSE) {
          NULL
        } else if(!is.null(input$prctlsInclMiss) || input$prctlsInclMiss == TRUE) {
          ', include.missing = TRUE'
        },
        if(is.null(input$prctlsShortcut) || input$prctlsShortcut == FALSE) {
          NULL
        } else if(!is.null(input$prctlsShortcut) || input$prctlsShortcut == TRUE) {
          ', shortcut = TRUE'
        },
        if(is.null(input$prctlsGraphs) || input$prctlsGraphs == FALSE) {
          NULL
        } else if(!is.null(input$prctlsGraphs) || input$prctlsGraphs == TRUE) {
          ', graphs = TRUE'
        },
        if(!is.null(input$prctlsGraphs) && input$prctlsGraphs == TRUE && !is.null(input$prctlsGraphsPctXlabelChk) && input$prctlsGraphsPctXlabelChk == TRUE && !is.null(input$prctlsGraphsPctXlabelTXT) && input$prctlsGraphsPctXlabelTXT != "") {
          paste0(', perc.x.label = "', input$prctlsGraphsPctXlabelTXT, '"')
        },
        if(!is.null(input$prctlsGraphs) && input$prctlsGraphs == TRUE && !is.null(input$prctlsGraphsPctYlabelChk) && input$prctlsGraphsPctYlabelChk == TRUE && !is.null(input$prctlsGraphsPctYlabelTXT) && input$prctlsGraphsPctYlabelTXT != "") {
          paste0(', perc.y.label = "', input$prctlsGraphsPctYlabelTXT, '"')
        },
        if(!is.null(input$prctlsGraphs) && input$prctlsGraphs == TRUE && !is.null(input$prctlsGraphsPrctlXlabelsChk) && input$prctlsGraphsPrctlXlabelsChk == TRUE && !is.null(input$prctlsGraphsPrctlXlabelsTXT) && input$prctlsGraphsPrctlXlabelsTXT != "") {
          paste0(', prctl.x.labels = list("', paste(unlist(prctls.custom.X.labels()), collapse = '", "'), '")')
        },
        if(!is.null(input$prctlsGraphs) && input$prctlsGraphs == TRUE && !is.null(input$prctlsGraphsPrctlYlabelsChk) && input$prctlsGraphsPrctlYlabelsChk == TRUE && !is.null(input$prctlsGraphsPrctlYlabelsTXT) && input$prctlsGraphsPrctlYlabelsTXT != "") {
          paste0(', prctl.y.labels = list("', paste(unlist(prctls.custom.Y.labels()), collapse = '", "'), '")')
        },
        paste0(', output.file = "', parseSavePath(available.volumes, input$prctlsChooseOutFile)$datapath, '"'),
        if(is.null(input$prctlsOpenOutput) || input$prctlsOpenOutput == FALSE) {
          NULL
        } else if(!is.null(input$prctlsOpenOutput) || input$prctlsOpenOutput == TRUE) {
          ', open.output = TRUE'
        },
        ')'
      )
    })
    output$prctlsSyntaxHead <- renderText({
      if(length(parseSavePath(available.volumes, input$prctlsChooseOutFile)$datapath) == 1 && length(parseFilePaths(available.volumes, input$prctlsChooseSrcFile)$datapath) > 0 && nrow(rbindlist(l = list(prctlsAllVars$prctlsSelectedPVVars, prctlsAllVars$prctlsSelectedBckgVars))) >= 1) {
        HTML("Syntax")
      } else {
        return(NULL)
      }
    })
    observe.syntax.save.button <- eval(parse(text = string.observe.syntax.save.button))
    observe.syntax.save.button(input = input, session = session, syntax.ID = "savePrctlstSyntax", syntax.object = "syntaxPrctls()", volumes = available.volumes)
    output$copyPrctlsSyntax <- renderUI({
      rclipButton(inputId = "copyPrctlsSyntax", label = "Copy syntax", clipText = syntaxPrctls(), icon = icon("copy"), style = "color: #ffffff; background-color: #000000; border-radius: 5px; font-size: 80%; margin-bottom: 1px; padding: 1px; width: 85px; margin-top: 1px")
    })
    output$prctlsSyntax <- renderText({
      if(length(parseSavePath(available.volumes, input$prctlsChooseOutFile)$datapath) == 1 && nrow(rbindlist(l = list(prctlsAllVars$prctlsSelectedPVVars, prctlsAllVars$prctlsSelectedBckgVars))) >= 1) {
        syntaxPrctls()
      } else {
        return(NULL)
      }
    })
    output$prctlsExecBtnHead <- renderText({
      if(length(parseSavePath(available.volumes, input$prctlsChooseOutFile)$datapath) == 1 && length(parseFilePaths(available.volumes, input$prctlsChooseSrcFile)$datapath) > 0 && nrow(rbindlist(l = list(prctlsAllVars$prctlsSelectedPVVars, prctlsAllVars$prctlsSelectedBckgVars))) >= 1) {
        HTML("Press the button below to execute the syntax")
      } else {
        return(NULL)
      }
    })
    output$execPrctls <- renderUI({
      if(length(parseSavePath(available.volumes, input$prctlsChooseOutFile)$datapath) == 1 && length(parseFilePaths(available.volumes, input$prctlsChooseSrcFile)$datapath) > 0 && nrow(rbindlist(l = list(prctlsAllVars$prctlsSelectedPVVars, prctlsAllVars$prctlsSelectedBckgVars))) >= 1) {
        actionButton(inputId = "execPrctls", label = "Execute syntax", icon = icon("cogs"), style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      } else {
        return(NULL)
      }
    })
    observe({
      if(
        is.null(file.prctls$loaded) ||
        is.null(prctlsAllVars$prctlsSelectedBckgVars) ||
        is.null(prctlsAllVars$prctlsSelectedPVVars) ||
        nrow(rbindlist(l = list(prctlsAllVars$prctlsSelectedBckgVars, prctlsAllVars$prctlsSelectedPVVars))) == 0 ||
        any(prctlsAllVars$prctlsSelectedPVVars[ , Variables] %in% file.prctls$PV.sets == FALSE) ||
        any(prctlsAllVars$prctlsSelectedSplitVars[ , Variables] %in% file.prctls$PV.sets == TRUE) ||
        any(prctlsAllVars$prctlsSelectedBckgVars[ , Variables] %in% file.prctls$PV.sets == TRUE) ||
        is.null(file.prctls$default.weight) ||
        any(prctlsAllVars$prctlsSelectedWeightVar[ , Variables] %in% all.studies.available.weights == FALSE) ||
        any(unlist(file.prctls$vars.classes[prctlsAllVars$prctlsSelectedBckgVars[ , Variables]]) != "numeric")
      ) {
        hide("prctlsValuesExpl")
        hide("prctlsValues")
        hide("prctlsValuesReset")
        hide("prctlsWarnMoreVars")
      } else if(
        !is.null(file.prctls$loaded) ||
        !is.null(prctlsAllVars$prctlsSelectedBckgVars) ||
        !is.null(prctlsAllVars$prctlsSelectedPVVars) ||
        nrow(rbindlist(l = list(prctlsAllVars$prctlsSelectedBckgVars, prctlsAllVars$prctlsSelectedPVVars))) > 0 ||
        any(prctlsAllVars$prctlsSelectedPVVars[ , Variables] %in% file.prctls$PV.sets == TRUE) ||
        any(prctlsAllVars$prctlsSelectedSplitVars[ , Variables] %in% file.prctls$PV.sets == FALSE) ||
        any(prctlsAllVars$prctlsSelectedBckgVars[ , Variables] %in% file.prctls$PV.sets == FALSE) ||
        !is.null(file.prctls$default.weight) ||
        any(prctlsAllVars$prctlsSelectedWeightVar[ , Variables] %in% all.studies.available.weights == TRUE) ||
        all(unlist(file.prctls$vars.classes[prctlsAllVars$prctlsSelectedBckgVars[ , Variables]]) != "numeric")
      ) {
        show("prctlsValuesExpl")
        show("prctlsValues")
        show("prctlsValuesReset")
        show("prctlsWarnMoreVars")
      }
      if(
        is.null(file.prctls$loaded) ||
        is.null(prctlsAllVars$prctlsSelectedBckgVars) ||
        is.null(prctlsAllVars$prctlsSelectedPVVars) ||
        any(prctlsAllVars$prctlsSelectedPVVars[ , Variables] %in% file.prctls$PV.sets == FALSE) ||
        is.null(prctlsAllVars$prctlsSelectedSplitVars) ||
        any(prctlsAllVars$prctlsSelectedSplitVars[ , Variables] %in% file.prctls$PV.sets == TRUE) ||
        any(prctlsAllVars$prctlsSelectedBckgVars[ , Variables] %in% file.prctls$PV.sets == TRUE) ||
        is.null(prctlsAllVars$prctlsSelectedWeightVar) ||
        any(prctlsAllVars$prctlsSelectedWeightVar[ , Variables] %in% all.studies.available.weights == FALSE) ||
        nrow(rbindlist(l = list(prctlsAllVars$prctlsSelectedBckgVars, prctlsAllVars$prctlsSelectedPVVars))) == 0 ||
        input$prctlsValues == "" ||
        prctls.not.numbers() == TRUE ||
        prctls.out.of.bounds() == TRUE ||
        any(unlist(file.prctls$vars.classes[prctlsAllVars$prctlsSelectedBckgVars[ , Variables]]) != "numeric") ||
        !is.null(file.prctls$loaded) && isTRUE(input$prctlsGraphs) && !is.null(input$prctlsGraphsPctXlabelChk) && isTRUE(input$prctlsGraphsPctXlabelChk) && !is.null(input$prctlsGraphsPctXlabelTXT) && input$prctlsGraphsPctXlabelTXT == "" ||
        !is.null(file.prctls$loaded) && isTRUE(input$prctlsGraphs) && !is.null(input$prctlsGraphsPctYlabelChk) && isTRUE(input$prctlsGraphsPctYlabelChk) && !is.null(input$prctlsGraphsPctYlabelTXT) && input$prctlsGraphsPctYlabelTXT == "" ||
        !is.null(file.prctls$loaded) && isTRUE(input$prctlsGraphs) && !is.null(input$prctlsGraphsPrctlXlabelsChk) && isTRUE(input$prctlsGraphsPrctlXlabelsChk) && !is.null(input$prctlsGraphsPrctlXlabelsTXT) && input$prctlsGraphsPrctlXlabelsTXT == "" ||
        !is.null(file.prctls$loaded) && isTRUE(input$prctlsGraphs) && !is.null(input$prctlsGraphsPrctlXlabelsChk) && isTRUE(input$prctlsGraphsPrctlXlabelsChk) && !is.null(input$prctlsGraphsPrctlXlabelsTXT) && nrow(rbindlist(l = list(prctlsAllVars$prctlsSelectedBckgVars, prctlsAllVars$prctlsSelectedPVVars))) != length(unlist(prctls.custom.X.labels())) ||
        !is.null(file.prctls$loaded) && isTRUE(input$prctlsGraphs) && !is.null(input$prctlsGraphsPrctlYlabelsChk) && isTRUE(input$prctlsGraphsPrctlYlabelsChk) && !is.null(input$prctlsGraphsPrctlYlabelsTXT) && input$prctlsGraphsPrctlYlabelsTXT == "" ||
        !is.null(file.prctls$loaded) && isTRUE(input$prctlsGraphs) && !is.null(input$prctlsGraphsPrctlYlabelsChk) && isTRUE(input$prctlsGraphsPrctlYlabelsChk) && !is.null(input$prctlsGraphsPrctlYlabelsTXT) && nrow(rbindlist(l = list(prctlsAllVars$prctlsSelectedBckgVars, prctlsAllVars$prctlsSelectedPVVars))) != length(unlist(prctls.custom.Y.labels()))
      ) {
        hide("prctlsShortcut")
        hide("prctlsGraphs")
        hide("prctlsChooseOutFile")
        hide("prctlsOpenOutput")
        hide("prctlsSyntaxHead")
        hide("savePrctlstSyntax")
        hide("copyPrctlsSyntax")
        hide("prctlsSyntax")
        hide("prctlsExecBtnHead")
        hide("execPrctls")
        hide("consolePrctls")
      } else if(
        !is.null(file.prctls$loaded) ||
        !is.null(prctlsAllVars$prctlsSelectedBckgVars) ||
        !is.null(prctlsAllVars$prctlsSelectedPVVars) ||
        any(prctlsAllVars$prctlsSelectedPVVars[ , Variables] %in% file.prctls$PV.sets == TRUE) ||
        any(prctlsAllVars$prctlsSelectedSplitVars[ , Variables] %in% file.prctls$PV.sets == FALSE) ||
        any(prctlsAllVars$prctlsSelectedBckgVars[ , Variables] %in% file.prctls$PV.sets == FALSE) ||
        any(prctlsAllVars$prctlsSelectedWeightVar[ , Variables] %in% all.studies.available.weights == TRUE) ||
        nrow(rbindlist(l = list(prctlsAllVars$prctlsSelectedBckgVars, prctlsAllVars$prctlsSelectedPVVars))) > 0 ||
        input$prctlsValues != "" ||
        prctls.not.numbers() == FALSE ||
        prctls.out.of.bounds() == FALSE ||
        all(unlist(file.prctls$vars.classes[prctlsAllVars$prctlsSelectedBckgVars[ , Variables]]) != "numeric") ||
        !is.null(file.prctls$loaded) && isTRUE(input$prctlsGraphs) && !is.null(input$prctlsGraphsPctXlabelChk) && isTRUE(input$prctlsGraphsPctXlabelChk) && !is.null(input$prctlsGraphsPctXlabelTXT) && input$prctlsGraphsPctXlabelTXT != "" ||
        !is.null(file.prctls$loaded) && isTRUE(input$prctlsGraphs) && !is.null(input$prctlsGraphsPctYlabelChk) && isTRUE(input$prctlsGraphsPctYlabelChk) && !is.null(input$prctlsGraphsPctYlabelTXT) && input$prctlsGraphsPctYlabelTXT != "" ||
        !is.null(file.prctls$loaded) && isTRUE(input$prctlsGraphs) && !is.null(input$prctlsGraphsPrctlXlabelsChk) && isTRUE(input$prctlsGraphsPrctlXlabelsChk) && !is.null(input$prctlsGraphsPrctlXlabelsTXT) && input$prctlsGraphsPrctlXlabelsTXT != "" ||
        !is.null(file.prctls$loaded) && isTRUE(input$prctlsGraphs) && !is.null(input$prctlsGraphsPrctlXlabelsChk) && isTRUE(input$prctlsGraphsPrctlXlabelsChk) && !is.null(input$prctlsGraphsPrctlXlabelsTXT) && nrow(rbindlist(l = list(prctlsAllVars$prctlsSelectedBckgVars, prctlsAllVars$prctlsSelectedPVVars))) == length(unlist(prctls.custom.X.labels())) ||
        !is.null(file.prctls$loaded) && isTRUE(input$prctlsGraphs) && !is.null(input$prctlsGraphsPrctlYlabelsChk) && isTRUE(input$prctlsGraphsPrctlYlabelsChk) && !is.null(input$prctlsGraphsPrctlYlabelsTXT) && input$prctlsGraphsPrctlYlabelsTXT != "" ||
        !is.null(file.prctls$loaded) && isTRUE(input$prctlsGraphs) && !is.null(input$prctlsGraphsPrctlYlabelsChk) && isTRUE(input$prctlsGraphsPrctlYlabelsChk) && !is.null(input$prctlsGraphsPrctlYlabelsTXT) && nrow(rbindlist(l = list(prctlsAllVars$prctlsSelectedBckgVars, prctlsAllVars$prctlsSelectedPVVars))) == length(unlist(prctls.custom.Y.labels()))
      ) {
        show("prctlsShortcut")
        show("prctlsGraphs")
        show("prctlsChooseOutFile")
        show("prctlsOpenOutput")
        show("prctlsSyntaxHead")
        show("savePrctlstSyntax")
        show("copyPrctlsSyntax")
        show("prctlsSyntax")
        show("prctlsExecBtnHead")
        show("execPrctls")
        show("consolePrctls")
      }
      if(is.null(file.prctls$default.weight) || length(file.prctls$default.weight) == 0) {
        hide("prctlsVariablesExplText")
        hide("prctlsAllAvailableVars")
        hide("prctlsArrowSelSplitVarsRight")
        hide("prctlsArrowSelSplitVarsLeft")
        hide("prctlsSplitVars")
        hide("prctlsInclMiss")
        hide("prctlsArrowSelBckgVarsRight")
        hide("prctlsArrowSelBckgVarsLeft")
        hide("prctlsBckgVars")
        hide("prctlsArrowSelPVsRight")
        hide("prctlsArrowSelPVsLeft")
        hide("prctlsArrowSelPVsRightDisbld")
        hide("prctlsArrowSelPVsLeftDisbld")
        hide("prctlsPVVarsDisbld")
        hide("prctlsPVVars")
        hide("prctlsArrowSelWeightVarsRight")
        hide("prctlsArrowSelWeightVarsLeft")
        hide("prctlsWeightVar")
      } else if(!is.null(file.prctls$default.weight) || length(file.prctls$default.weight) != 0) {
        show("prctlsVariablesExplText")
        show("prctlsAllAvailableVars")
        show("prctlsArrowSelSplitVarsRight")
        show("prctlsArrowSelSplitVarsLeft")
        show("prctlsSplitVars")
        show("prctlsInclMiss")
        show("prctlsArrowSelBckgVarsRight")
        show("prctlsArrowSelBckgVarsLeft")
        show("prctlsBckgVars")
        show("prctlsArrowSelPVsRight")
        show("prctlsArrowSelPVsLeft")
        show("prctlsArrowSelPVsRightDisbld")
        show("prctlsArrowSelPVsLeftDisbld")
        show("prctlsPVVarsDisbld")
        show("prctlsPVVars")
        show("prctlsArrowSelWeightVarsRight")
        show("prctlsArrowSelWeightVarsLeft")
        show("prctlsWeightVar")
      }
      if(
        is.null(file.prctls$loaded) ||
        is.null(prctlsAllVars$prctlsSelectedBckgVars) ||
        is.null(prctlsAllVars$prctlsSelectedPVVars) ||
        !is.null(prctlsAllVars$prctlsSelectedBckgVars) & !is.null(prctlsAllVars$prctlsSelectedPVVars) & nrow(rbindlist(l = list(prctlsAllVars$prctlsSelectedBckgVars, prctlsAllVars$prctlsSelectedPVVars))) == 0 ||
        input$prctlsValues == "" ||
        prctls.not.numbers() == TRUE ||
        prctls.out.of.bounds() == TRUE ||
        length(parseSavePath(available.volumes, input$prctlsChooseOutFile)$datapath) == 0
      ) {
        hide("savePrctlstSyntax")
        hide("copyPrctlsSyntax")
      }
      if(
        is.null(file.prctls$loaded) ||
        is.null(prctlsAllVars$prctlsSelectedBckgVars) ||
        is.null(prctlsAllVars$prctlsSelectedPVVars) ||
        !is.null(prctlsAllVars$prctlsSelectedBckgVars) & !is.null(prctlsAllVars$prctlsSelectedPVVars) & nrow(rbindlist(l = list(prctlsAllVars$prctlsSelectedBckgVars, prctlsAllVars$prctlsSelectedPVVars))) == 0 ||
        input$prctlsValues == "" ||
        prctls.not.numbers() == TRUE ||
        prctls.out.of.bounds() == TRUE
      ) {
        hide("prctlsGraphsPctXlabelChk")
        hide("prctlsGraphsPctYlabelChk")
        hide("prctlsGraphsPrctlXlabelsChk")
        hide("prctlsGraphsPrctlYlabelsChk")
        hide("prctlsGraphsPctXlabelTXT")
        hide("prctlsGraphsPctYlabelTXT")
        hide("prctlsGraphsPrctlXlabelsTXT")
        hide("prctlsGraphsPrctlYlabelsTXT")
      } else if(
        !is.null(file.prctls$loaded) ||
        !is.null(prctlsAllVars$prctlsSelectedBckgVars) ||
        !is.null(prctlsAllVars$prctlsSelectedPVVars) ||
        !is.null(prctlsAllVars$prctlsSelectedBckgVars) & !is.null(prctlsAllVars$prctlsSelectedPVVars) & nrow(rbindlist(l = list(prctlsAllVars$prctlsSelectedBckgVars, prctlsAllVars$prctlsSelectedPVVars))) == 0 ||
        input$prctlsValues != "" ||
        prctls.not.numbers() == FALSE ||
        prctls.out.of.bounds() == FALSE
      ) {
        show("prctlsGraphsPctXlabelChk")
        show("prctlsGraphsPctYlabelChk")
        show("prctlsGraphsPrctlXlabelsChk")
        show("prctlsGraphsPrctlYlabelsChk")
        show("prctlsGraphsPctXlabelTXT")
        show("prctlsGraphsPctYlabelTXT")
        show("prctlsGraphsPrctlXlabelsTXT")
        show("prctlsGraphsPrctlYlabelsTXT")
      }
    })
  }
})
observeEvent(input$execPrctls, {
  showNotification(ui = HTML("<br/>   Execution started.   <br/><br/>"), type = "message")
  withCallingHandlers({html("consolePrctls", "")
    tryCatch({
      expr = eval(parse(text = file.prctls$prctls.syntax))
      showNotification(ui = HTML("<br/>   All operations complete!   <br/><br/>"), type = "message", duration = NULL)
    }, error = function(e) {
      message("", e)
      showNotification(ui = HTML(paste0("Something went wrong. Possible reasons: <br/>", paste(gsub(pattern = "\\n|Error: ", replacement = "<br/>", x = e)))), type = "error", duration = NULL)
    })
  },
  message = function(i) {
    shinyjs::html(id = "consolePrctls", html = i$message, add = TRUE)
  },
  warning = function(w) {
    shinyjs::html(id = "consolePrctls", html = paste0("Warning: ", w$message, "\n"), add = TRUE)
  })
  session$sendCustomMessage(type = "scrollCallback", 1)
}, ignoreInit = TRUE)
output$h1Bench <- renderText("Benchmarks")
hide("benchChooseOutFile")
hide("saveBenchSyntax")
hide("copyBenchSyntax")
output$benchIntro <- renderText({HTML("Select large-scale assessment .RData file to load.")})
file.bench <- reactiveValues(loaded = NULL, is.lsa.data = NULL, resp.type = NULL, study = NULL, cycle = NULL, country.ID = NULL, PV.sets = NULL, default.weight = NULL, bench.values = NULL, bench.syntax = NULL)
shinyFileChoose(input, "benchChooseSrcFile", roots = available.volumes, filetype = list(RData = "RData"))
observeEvent(eventExpr = input$benchChooseSrcFile, {
  file.bench$loaded <- NULL
  file.bench$study <- NULL
  file.bench$cycle <- NULL
  file.bench$resp.type <- NULL
  file.bench$PV.sets <- NULL
  file.bench$bench.values <- NULL
  if(length(parseFilePaths(available.volumes, input$benchChooseSrcFile)$datapath) > 0 && file.size(parseFilePaths(available.volumes, input$benchChooseSrcFile)$datapath) > 104857600) {
    showNotification(ui = HTML('The size of the selected<br/>file is rather large. Please<br/>wait until the file is loaded.'), type = "message")
  }
  if(length(parseFilePaths(available.volumes, input$benchChooseSrcFile)$datapath) > 0) {
    file.bench$loaded <- get(load(parseFilePaths(available.volumes, input$benchChooseSrcFile)$datapath))
    if("lsa.data" %in% class(file.bench$loaded)) {
      file.bench$is.lsa.data <- TRUE
    } else {
      file.bench$is.lsa.data <- FALSE
    }
    file.bench$study <- attr(x = file.bench$loaded, which = "study")
    file.bench$cycle <- attr(x = file.bench$loaded, which = "cycle")
    file.bench$resp.type <- attr(x = file.bench$loaded, which = "file.type")
    file.bench$loaded <- data.table(Variables = names(file.bench$loaded), Variable_Labels = sapply(X = file.bench$loaded, FUN = function(j) {
      if(is.null(attr(x = j, which = "variable.label"))) {
        return(NA_character_)
      } else {
        attr(x = j, which = "variable.label")
      }
    }),
    order_col = 1:ncol(file.bench$loaded))
    file.bench$PV.sets <- NULL
    tmp.PV.names <- grep(pattern = paste(all.available.PVs, collapse = "|"), x = file.bench$loaded[ , Variables], value = TRUE)
    if(length(tmp.PV.names) > 0) {
      collapsed.PVs <- collapse.loaded.file.PV.names(PV.vector = tmp.PV.names, vars.object = file.bench$loaded)
      file.bench$loaded <- file.bench$loaded[!Variables %in% tmp.PV.names]
      file.bench$loaded <- rbindlist(l = list(file.bench$loaded, collapsed.PVs))
      setkeyv(x = file.bench$loaded, cols = "order_col")
      file.bench$PV.sets <- collapsed.PVs[ , Variables]
    }
    if(!is.null(file.bench$study)) {
      file.bench$default.weight <- define.default.weight(study = file.bench$study, loaded.names.and.labels = file.bench$loaded, respondent.type = file.bench$resp.type)
    }
    file.bench$country.ID <- NULL
    if("IDCNTRY" %in% file.bench$loaded[ , Variables]) {
      file.bench$country.ID <- "IDCNTRY"
    } else {
      file.bench$country.ID <- "CNT"
    }
  }
  output$benchSrcPathDisplay <- renderText({parseFilePaths(available.volumes, input$benchChooseSrcFile)$datapath})
}, ignoreInit = TRUE)
observe({
  if(!is.null(file.bench$loaded) && file.bench$is.lsa.data == FALSE) {
    showNotification(ui = HTML('The data is not of class "lsa.data".<br/>Please check the file content.'), type = "error")
  } else if (!is.null(file.bench$loaded) && file.bench$is.lsa.data == TRUE) {
    output$benchStudyName <- renderText({
      if(is.null(file.bench$resp.type)) {
        return(NULL)
      } else {
        HTML(paste0('Study: ', file.bench$study))
      }
    })
    output$benchStudyCycle <- renderText({
      if(is.null(file.bench$resp.type)) {
        return(NULL)
      } else {
        HTML(paste0('Cycle: ', file.bench$cycle))
      }
    })
    output$benchRespHead <- renderText({
      if(is.null(file.bench$resp.type)) {
        return(NULL)
      } else {
        HTML('<u>The file contains data from the following respondents:</u>')
      }
    })
    output$benchRespAvailable <- renderText({
      if(is.null(file.bench$resp.type)) {
        return(NULL)
      } else {
        HTML(file.merged.respondents[[file.bench$resp.type]])
      }
    })
    output$benchNoWeights <- renderText({
      if(!is.null(file.bench$loaded) && is.null(file.bench$default.weight) || length(file.bench$default.weight) == 0) {
        HTML('Error: The loaded file does not contain any recognizable default weight variable. Such files cannot be analyzed on their own and must be merged with other respondents in advance.')
      } else {
        return(NULL)
      }
    })
    output$noPVsInFile <- renderText({
      if(!is.null(file.bench$loaded) && is.null(file.bench$PV.sets)) {
        HTML('Error: The loaded file does not contain any recognizable set of plausible values, so no percentage of respondents at or above certain benchmarks can be computed. Please check the respondent types available in the loaded file from above.')
      } else {
        return(NULL)
      }
    })
    output$benchType <- renderUI({
      if(is.null(file.bench$PV.sets) || is.null(file.bench$resp.type)) {
        return(NULL)
      } else {
        radioButtons(inputId = "benchType", label = "Select benchmark type", choices = c("Discrete", "Cumulative"), width = "200px", selected = "Discrete")
      }
    })
    output$benchTypeExpl <- renderText({
      if(is.null(file.bench$PV.sets) && is.null(file.bench$resp.type)) {
        return(NULL)
      } else if(!is.null(file.bench$PV.sets) && !is.null(file.bench$resp.type) && !is.null(input$benchType) && input$benchType == "Discrete") {
        HTML('<br/>Computes the percentages of respondents (population estimate) within the boundaries specified by the benchmark values.<br/>Note: If background analysis variable is added, its average for each group will be computed as well.')
      } else if(!is.null(file.bench$PV.sets) && !is.null(file.bench$resp.type) && !is.null(input$benchType) && input$benchType == "Cumulative") {
        HTML('<br/>Computes the percentages of respondents (population estimate) at or above the benchmark values.<br/>Note: With this benchmarks type no analysis variable can be selected.')
      }
    })
    output$benchVariablesExplText <- renderText({
      if(is.null(file.bench$PV.sets) || is.null(file.bench$resp.type)) {
        return(NULL)
      } else {
        HTML('Use the panels below to select the variables to compute percentages of respondents (population estimate) reaching or surpassing specified benchmarks within groups specified by splitting variables.')
      }
    })
    bench.initial.available.vars <- file.bench$loaded[!Variables %in% c(file.bench$default.weight, file.bench$country.ID), ]
    bench.initial.selected.split.vars <- file.bench$loaded[Variables == file.bench$country.ID, ]
    bench.initial.selected.bckg.vars <- data.table(Variables = as.character(), Variable_Labels = as.character(), order_col = as.numeric())
    bench.initial.selected.PV.vars <- data.table(Variables = as.character(), Variable_Labels = as.character(), order_col = as.numeric())
    bench.initial.selected.weight.var <- file.bench$loaded[Variables %in% file.bench$default.weight, ]
    benchAllVars <- reactiveValues(benchAvailVars = bench.initial.available.vars, benchSelectedSplitVars = bench.initial.selected.split.vars, benchSelectedBckgVars = bench.initial.selected.bckg.vars, benchSelectedPVVars = bench.initial.selected.PV.vars, benchSelectedWeightVar = bench.initial.selected.weight.var)
    output$benchArrowSelSplitVarsRight <- renderUI({
      if(is.null(file.bench$PV.sets) || is.null(file.bench$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "benchArrowSelSplitVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$benchArrowSelSplitVarsLeft <- renderUI({
      if(is.null(file.bench$PV.sets)|| is.null(file.bench$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "benchArrowSelSplitVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$benchArrowSelBckgVarsRight <- renderUI({
      if(is.null(file.bench$PV.sets) || is.null(file.bench$resp.type) || is.null(input$benchType) || input$benchType == "Cumulative") {
        return(NULL)
      } else if(!is.null(file.bench$PV.sets) && !is.null(file.bench$resp.type) && input$benchType == "Discrete") {
        actionButton(inputId = "benchArrowSelBckgVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$benchArrowSelBckgVarsLeft <- renderUI({
      if(is.null(file.bench$PV.sets) || is.null(file.bench$resp.type) || is.null(input$benchType) || input$benchType == "Cumulative") {
        return(NULL)
      } else if(!is.null(file.bench$PV.sets) && !is.null(file.bench$resp.type) && input$benchType == "Discrete") {
        actionButton(inputId = "benchArrowSelBckgVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$benchArrowSelBckgVarsRightDisbld <- renderUI({
      if(is.null(file.bench$resp.type) || is.null(input$benchType) || input$benchType == "Discrete") {
        return(NULL)
      } else if(!is.null(file.bench$resp.type) && input$benchType == "Cumulative") {
        actionButton(inputId = "benchArrowSelBckgVarsRightDisbld", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #c6c6c6; border-radius: 10px")
      }
    })
    output$benchArrowSelBckgVarsLeftDisbld <- renderUI({
      if(is.null(file.bench$resp.type) || is.null(input$benchType) || input$benchType == "Discrete") {
        return(NULL)
      } else if(!is.null(file.bench$resp.type) & !is.null(input$benchType) & input$benchType == "Cumulative") {
        actionButton(inputId = "benchArrowSelBckgVarsLeftDisbld", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #c6c6c6; border-radius: 10px")
      }
    })
    output$benchArrowSelPVsRight <- renderUI({
      if(is.null(file.bench$resp.type) || is.null(file.bench$PV.sets)) {
        return(NULL)
      } else {
        actionButton(inputId = "benchArrowSelPVsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$benchArrowSelPVsLeft <- renderUI({
      if(is.null(file.bench$resp.type) || is.null(file.bench$PV.sets)) {
        return(NULL)
      } else {
        actionButton(inputId = "benchArrowSelPVsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$benchArrowSelWeightVarsRight <- renderUI({
      if(is.null(file.bench$PV.sets) || is.null(file.bench$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "benchArrowSelWeightVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$benchArrowSelWeightVarsLeft <- renderUI({
      if(is.null(file.bench$PV.sets)|| is.null(file.bench$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "benchArrowSelWeightVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    observeEvent(input$benchArrowSelSplitVarsRight, {
      req(input$benchAllAvailableVars_rows_selected)
      benchAllVars$benchSelectedSplitVars <- rbind(isolate(benchAllVars$benchSelectedSplitVars), benchAllVars$benchAvailVars[input$benchAllAvailableVars_rows_selected, , drop = FALSE])
      benchAllVars$benchSelectedSplitVars <- benchAllVars$benchSelectedSplitVars[complete.cases(benchAllVars$benchSelectedSplitVars[ , "Variables"]), , drop = FALSE]
      benchAllVars$benchAvailVars <- isolate(benchAllVars$benchAvailVars[-input$benchAllAvailableVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$benchArrowSelSplitVarsLeft, {
      req(input$benchSplitVars_rows_selected)
      benchAllVars$benchAvailVars <- rbind(isolate(benchAllVars$benchAvailVars),        benchAllVars$benchSelectedSplitVars[input$benchSplitVars_rows_selected, , drop = FALSE])
      benchAllVars$benchAvailVars <- benchAllVars$benchAvailVars[complete.cases(benchAllVars$benchAvailVars[ , "Variables"]), , drop = FALSE]
      if(nrow(benchAllVars$benchSelectedSplitVars) > 0) {
        benchAllVars$benchSelectedSplitVars <- isolate(benchAllVars$benchSelectedSplitVars[-input$benchSplitVars_rows_selected, , drop = FALSE])
      }
      if(!file.bench$country.ID %in% benchAllVars$benchSelectedSplitVars[ , Variables]) {
        showNotification(ui = HTML("Country ID <b>must always be</b> the first splitting variable!"), type = "error")
      }
      benchAllVars$benchSelectedSplitVars <- rbindlist(l = list(benchAllVars$benchSelectedSplitVars, benchAllVars$benchAvailVars[Variables == file.bench$country.ID, ]))
      benchAllVars$benchAvailVars <- benchAllVars$benchAvailVars[Variables != file.bench$country.ID, ]
    })
    observeEvent(input$benchArrowSelBckgVarsRight, {
      req(input$benchAllAvailableVars_rows_selected)
      benchAllVars$benchSelectedBckgVars <- rbind(isolate(benchAllVars$benchSelectedBckgVars), benchAllVars$benchAvailVars[input$benchAllAvailableVars_rows_selected, , drop = FALSE])
      benchAllVars$benchSelectedBckgVars <- benchAllVars$benchSelectedBckgVars[complete.cases(benchAllVars$benchSelectedBckgVars[ , "Variables"]), , drop = FALSE]
      benchAllVars$benchAvailVars <- isolate(benchAllVars$benchAvailVars[-input$benchAllAvailableVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$benchArrowSelBckgVarsLeft, {
      req(input$benchBckgVars_rows_selected)
      benchAllVars$benchAvailVars <- rbind(isolate(benchAllVars$benchAvailVars),        benchAllVars$benchSelectedBckgVars[input$benchBckgVars_rows_selected, , drop = FALSE])
      benchAllVars$benchAvailVars <- benchAllVars$benchAvailVars[complete.cases(benchAllVars$benchAvailVars[ , "Variables"]), , drop = FALSE]
      benchAllVars$benchSelectedBckgVars <- isolate(benchAllVars$benchSelectedBckgVars[-input$benchBckgVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$benchArrowSelPVsRight, {
      req(input$benchAllAvailableVars_rows_selected)
      benchAllVars$benchSelectedPVVars <- rbind(isolate(benchAllVars$benchSelectedPVVars), benchAllVars$benchAvailVars[input$benchAllAvailableVars_rows_selected, , drop = FALSE])
      benchAllVars$benchSelectedPVVars <- benchAllVars$benchSelectedPVVars[complete.cases(benchAllVars$benchSelectedPVVars[ , "Variables"]), , drop = FALSE]
      if(nrow(benchAllVars$benchSelectedPVVars) > 0) {
        benchAllVars$benchAvailVars <- isolate(benchAllVars$benchAvailVars[-input$benchAllAvailableVars_rows_selected, , drop = FALSE])
      }
    })
    observeEvent(input$benchArrowSelPVsLeft, {
      req(input$benchPVVars_rows_selected)
      benchAllVars$benchAvailVars <- rbind(isolate(benchAllVars$benchAvailVars),        benchAllVars$benchSelectedPVVars[input$benchPVVars_rows_selected, , drop = FALSE])
      benchAllVars$benchAvailVars <- benchAllVars$benchAvailVars[complete.cases(benchAllVars$benchAvailVars[ , "Variables"]), , drop = FALSE]
      if(nrow(benchAllVars$benchSelectedPVVars) > 0) {
        benchAllVars$benchSelectedPVVars <- isolate(benchAllVars$benchSelectedPVVars[-input$benchPVVars_rows_selected, , drop = FALSE])
      }
    })
    observeEvent(input$benchArrowSelWeightVarsRight, {
      req(input$benchAllAvailableVars_rows_selected)
      benchAllVars$benchSelectedWeightVar <- rbind(isolate(benchAllVars$benchSelectedWeightVar), benchAllVars$benchAvailVars[input$benchAllAvailableVars_rows_selected, , drop = FALSE])
      benchAllVars$benchSelectedWeightVar <- benchAllVars$benchSelectedWeightVar[complete.cases(benchAllVars$benchSelectedWeightVar[ , "Variables"]), , drop = FALSE]
      benchAllVars$benchAvailVars <- isolate(benchAllVars$benchAvailVars[-input$benchAllAvailableVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$benchArrowSelWeightVarsLeft, {
      req(input$benchWeightVar_rows_selected)
      benchAllVars$benchAvailVars <- rbind(isolate(benchAllVars$benchAvailVars),        benchAllVars$benchSelectedWeightVar[input$benchWeightVar_rows_selected, , drop = FALSE])
      benchAllVars$benchAvailVars <- benchAllVars$benchAvailVars[complete.cases(benchAllVars$benchAvailVars[ , "Variables"]), , drop = FALSE]
      if(nrow(benchAllVars$benchSelectedWeightVar) > 0) {
        benchAllVars$benchSelectedWeightVar <- isolate(benchAllVars$benchSelectedWeightVar[-input$benchWeightVar_rows_selected, , drop = FALSE])
      }
    })
    output$benchAllAvailableVars <- renderDT({
      if(!is.null(file.bench$PV.sets)) {
        setkeyv(x = benchAllVars$benchAvailVars, cols = "order_col")
      } else {
        return(NULL)
      }
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Available variables"),
    rownames = FALSE,
    filter = "top",
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables available"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 766, scroller = TRUE
    ))
    output$benchSplitVars <- renderDT({
      if(!is.null(file.bench$PV.sets)) {
        benchAllVars$benchSelectedSplitVars
      } else {
        return(NULL)
      }
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Split variables"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$benchInclMiss <- renderUI({
      if(is.null(file.bench$PV.sets) || nrow(benchAllVars$benchSelectedSplitVars) == 0) {
        return(NULL)
      } else {
        checkboxInput(inputId = "benchInclMiss", label = "Compute statistics for the missing values of the split variables", value = FALSE, width = "400px")
      }
    })
    output$benchBckgVars <- renderDT({
      if(!is.null(file.bench$PV.sets) && !is.null(input$benchType) && input$benchType == "Discrete") {
        benchAllVars$benchSelectedBckgVars
      } else {
        return(NULL)
      }
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Analysis (background continuous) variables"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$benchBckgVarsDisbld <- renderDT({
      if(!is.null(input$benchType) && input$benchType == "Cumulative") {
        data.table(V1 = as.character(), V2 = as.character())
      } else {
        return(NULL)
      }
    },
    select = "none",
    caption = htmltools::tags$caption(style = "color: #c6c6c6; font-weight: bold;", "Analysis (background continuous) variables"),
    rownames = FALSE,
    colnames = c("Names", "Labels"),
    options = list(
      language = list(zeroRecords = "No variables can be selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#c6c6c6', 'color': '#ffffff'});", "}"),
      dom = "ti",
      ordering = FALSE,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0)),
      headerCallback = JS("function(thead, data, start, end, display){$('th', thead).css('border-bottom', 'none');}"),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$benchPVVars <- renderDT({
      if(is.null(file.bench$PV.sets)) {
        return(NULL)
      } else {
        benchAllVars$benchSelectedPVVars
      }
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Plausible values"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$benchWeightVar <- renderDT({
      if(!is.null(file.bench$PV.sets)) {
        benchAllVars$benchSelectedWeightVar
      } else {
        return(NULL)
      }
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Weight variable"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = paste0("No weight selected, default (", file.bench$default.weight, ") will be used")),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$benchPVsNotPVs <- renderText({
      if(!is.null(benchAllVars$benchSelectedPVVars) && any(benchAllVars$benchSelectedPVVars[ , Variables] %in% file.bench$PV.sets == FALSE)) {
        HTML('Warning: One or more of the selected variables in "Plausible values" is not a set of PVs. Please check the added variables.')
      } else {
        return(NULL)
      }
    })
    output$benchSplitArePVs <- renderText({
      if(any(benchAllVars$benchSelectedSplitVars[ , Variables] %in% file.bench$PV.sets == TRUE)) {
        HTML('Warning: One or more of the selected variables in "Split variables" are sets of PVs. Please check the added variables.')
      } else {
        return(NULL)
      }
    })
    output$benchBckgArePVs <- renderText({
      if(!is.null(benchAllVars$benchSelectedBckgVars) && any(benchAllVars$benchSelectedBckgVars[ , Variables] %in% file.bench$PV.sets == TRUE)) {
        HTML('Warning: One or more of the selected variables in "Analysis (background continuous) variables" are sets of PVs. Please check the added variables.')
      } else {
        return(NULL)
      }
    })
    output$benchWgtsNotWgts <- renderText({
      if(any(benchAllVars$benchSelectedWeightVar[ , Variables] %in% all.studies.available.weights == FALSE)) {
        HTML('Warning: The variable in "Weight variable" is not a weight. Please check the added variable.')
      } else {
        return(NULL)
      }
    })
    observe({
      if(!is.null(benchAllVars$benchSelectedBckgVars) && nrow(benchAllVars$benchSelectedBckgVars) > 1) {
        showNotification(ui = HTML("Only one background variable can be selected!"), type = "error")
        benchAllVars$benchAvailVars <- rbind(isolate(benchAllVars$benchAvailVars), benchAllVars$benchSelectedBckgVars[nrow(benchAllVars$benchSelectedBckgVars), , drop = FALSE])
        benchAllVars$benchAvailVars <- benchAllVars$benchAvailVars[complete.cases(benchAllVars$benchAvailVars[ , "Variables"]), , drop = FALSE]
        benchAllVars$benchSelectedBckgVars <- isolate(benchAllVars$benchSelectedBckgVars[-2, , drop = FALSE])
      }
    })
    observe({
      if(!is.null(benchAllVars$benchSelectedPVVars) && nrow(benchAllVars$benchSelectedPVVars) > 1) {
        showNotification(ui = HTML("Only one set of PVs can be selected!"), type = "error")
        benchAllVars$benchAvailVars <- rbind(isolate(benchAllVars$benchAvailVars), benchAllVars$benchSelectedPVVars[nrow(benchAllVars$benchSelectedPVVars), , drop = FALSE])
        benchAllVars$benchAvailVars <- benchAllVars$benchAvailVars[complete.cases(benchAllVars$benchAvailVars[ , "Variables"]), , drop = FALSE]
        benchAllVars$benchSelectedPVVars <- isolate(benchAllVars$benchSelectedPVVars[-2, , drop = FALSE])
      }
    })
    observe({
      if(nrow(benchAllVars$benchSelectedWeightVar) > 1) {
        showNotification(ui = HTML("Only one weight variable can be selected!"), type = "error")
        benchAllVars$benchAvailVars <- rbind(isolate(benchAllVars$benchAvailVars), benchAllVars$benchSelectedWeightVar[nrow(benchAllVars$benchSelectedWeightVar), , drop = FALSE])
        benchAllVars$benchAvailVars <- benchAllVars$benchAvailVars[complete.cases(benchAllVars$benchAvailVars[ , "Variables"]), , drop = FALSE]
        benchAllVars$benchSelectedWeightVar <- isolate(benchAllVars$benchSelectedWeightVar[-2, , drop = FALSE])
      }
    })
    observeEvent(eventExpr = input$benchChooseSrcFile, {
      benchAllVars$benchSelectedPVVars <- NULL
      benchAllVars$benchSelectedBckgVars <- NULL
    }, ignoreInit = TRUE)
    observe({
      if(!is.null(benchAllVars$benchSelectedPVVars) && nrow(benchAllVars$benchSelectedPVVars) > 0) {
        if(intersect(file.bench$study, names(default.benchmarks)) == "ICCS") {
          tmp.benchmarks <- default.benchmarks[["ICCS"]]
          bench.vals <- tmp.benchmarks[[intersect(file.bench$cycle, names(tmp.benchmarks))]]
        } else if(intersect(file.bench$study, names(default.benchmarks)) == "ICILS") {
          bench.vals <- default.benchmarks[["ICILS"]]
        } else if(intersect(file.bench$study, names(default.benchmarks)) == "PIRLS") {
          bench.vals <- default.benchmarks[["PIRLS"]]
        } else if(intersect(file.bench$study, names(default.benchmarks)) == "prePIRLS") {
          bench.vals <- default.benchmarks[["prePIRLS"]]
        } else if(intersect(file.bench$study, names(default.benchmarks)) == "ePIRLS") {
          bench.vals <- default.benchmarks[["ePIRLS"]]
        } else if(intersect(file.bench$study, names(default.benchmarks)) == "TIMSS") {
          bench.vals <- default.benchmarks[["TIMSS"]]
        } else if(intersect(file.bench$study, names(default.benchmarks)) == "preTIMSS") {
          bench.vals <- default.benchmarks[["preTIMSS"]]
        } else if(intersect(file.bench$study, names(default.benchmarks)) == "eTIMSS PSI") {
          bench.vals <- default.benchmarks[["eTIMSS PSI"]]
        } else if(intersect(file.bench$study, names(default.benchmarks)) == "TIMSS Advanced") {
          bench.vals <- default.benchmarks[["TIMSS Advanced"]]
        } else if(intersect(file.bench$study, names(default.benchmarks)) == "TiPi") {
          bench.vals <- default.benchmarks[["TiPi"]]
        } else if(intersect(file.bench$study, names(default.benchmarks)) == "PISA") {
          tmp.PV.root.name <- benchAllVars$benchSelectedPVVars[ , Variables]
          tmp.benchmarks <- default.benchmarks[["PISA"]]
          tmp.benchmarks.PVs <- grep(pattern = "root.PVs$", x = names(tmp.benchmarks), value = TRUE)
          tmp.benchmarks.PVs <- names(unlist(sapply(X = tmp.benchmarks.PVs, FUN = function(i) {
            intersect(tmp.benchmarks[[i]], tmp.PV.root.name)
          })))
          tmp.benchmarks.PVs <- gsub(pattern = ".root.PVs", replacement = "", x = tmp.benchmarks.PVs)
          tmp.benchmarks <- default.benchmarks[["PISA"]][[tmp.benchmarks.PVs]]
          bench.vals <- tmp.benchmarks[[as.character(file.bench$cycle)]]
        } else if(intersect(file.bench$study, names(default.benchmarks)) == "PISA for Development") {
          tmp.PV.root.name <- benchAllVars$benchSelectedPVVars[ , Variables]
          tmp.benchmarks <- default.benchmarks[["PISA for Development"]]
          tmp.benchmarks.PVs <- grep(pattern = "root.PVs$", x = names(tmp.benchmarks), value = TRUE)
          tmp.benchmarks.PVs <- names(unlist(sapply(X = tmp.benchmarks.PVs, FUN = function(i) {
            intersect(tmp.benchmarks[[i]], tmp.PV.root.name)
          })))
          tmp.benchmarks.PVs <- gsub(pattern = ".root.PVs", replacement = "", x = tmp.benchmarks.PVs)
          tmp.benchmarks <- default.benchmarks[["PISA for Development"]][[tmp.benchmarks.PVs]]
          bench.vals <- tmp.benchmarks[[as.character(file.bench$cycle)]]
        }
        file.bench$bench.values <- bench.vals
      }
    })
    output$benchValuesExpl <- renderText({
      if(nrow(benchAllVars$benchAvailVars) == 0) {
        return(NULL)
      } else {
        HTML('In the field below, add/change the benchmark cut-points for which percentahes of respondents (population estimate), reaching or surpassing, will be calculated for the selected PV set.<br/>The values can be whole numbers or decimal numbers (use period as decimal separator), divided by spaces.')
      }
    })
    output$benchValues <- renderUI({
      if(nrow(benchAllVars$benchAvailVars) == 0) {
        return(NULL)
      } else {
        textInput(inputId = "benchValues", label = "Achievement benchmarks", value = paste(file.bench$bench.values, collapse = " "), width = "350px")
      }
    })
    output$benchValuesReset <- renderUI({
      if(nrow(benchAllVars$benchAvailVars) == 0) {
        return(NULL)
      } else {
        actionButton(inputId = "benchValuesReset", label = "Reset", icon = icon("undo-alt"), style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    bench.not.numbers <- reactiveVal()
    observe({
      if(!is.null(input$benchValues) && grepl(pattern = "[[:alpha:]]|(?=[^.[:^punct:]])", x = input$benchValues, perl = TRUE) == TRUE) {
        bench.not.numbers(TRUE)
      } else if(!is.null(input$benchValues) && grepl(pattern = "[[:alpha:]]|(?=[^.[:^punct:]])", x = input$benchValues, perl = TRUE) == FALSE) {
        bench.not.numbers(FALSE)
      }
    })
    output$benchNotNum <- renderText({
      if(!is.null(input$benchValues) && bench.not.numbers() == TRUE) {
        HTML('<br/>Warning: The values passed to the field on the left can contain <u>only</u> numbers and spaces. Please check the input.')
      } else {
        return(NULL)
      }
    })
    bench.out.of.bounds <- reactiveVal()
    observe({
      suppressWarnings(
        if(!is.null(input$benchValues) && any(na.omit(as.numeric(unlist(str_split(string = input$benchValues, pattern = "[[:space:]]+")))) < 1)) {
          bench.out.of.bounds(TRUE)
        } else {
          bench.out.of.bounds(FALSE)
        }
      )
    })
    output$benchNotInRange <- renderText({
      if(!is.null(input$benchValues) && bench.out.of.bounds() == TRUE) {
        HTML('<br/>Warning: The values passed to the field on the left <u>must</u> be greater than 1. Please check the input.')
      } else {
        return(NULL)
      }
    })
    observeEvent(input$benchValuesReset, {
      shinyjs::reset("benchValues")
    })
    output$benchComputeWithin <- renderUI({
      if(is.null(file.bench$resp.type)) {
        return(NULL)
      } else {
        checkboxInput(inputId = "benchComputeWithin", label = "Compute percentages within benchmarks", width = "350px", value = FALSE)
      }
    })
    output$benchComputeWithinExpl <- renderText({
      if(is.null(file.bench$resp.type)) {
        return(NULL)
      } else if(!is.null(file.bench$resp.type) && !is.null(input$benchType) && input$benchComputeWithin == FALSE) {
        HTML('Compute the percentages of respondents reaching or surpassing each of the cut-off scores defined by the benchmark values.')
      } else if(!is.null(file.bench$resp.type) && !is.null(input$benchType) && input$benchComputeWithin == TRUE) {
        HTML('Compute the percentages of respondents with given characteristic at each of the performance levels.')
      }
    })
    output$benchShortcut <- renderUI({
      if(!is.null(file.bench$loaded) && file.bench$study %in% c("PIRLS", "prePIRLS", "ePIRLS", "RLII", "TIMSS", "eTIMSS PSI", "preTIMSS", "TIMSS Advanced", "TiPi")) {
        checkboxInput(inputId = "benchShortcut", label = "Use shortcut method for computing SE", value = FALSE, width = "350px")
      }
    })
    output$benchGraphs <- renderUI({
      if(!is.null(file.bench$loaded)) {
        checkboxInput(inputId = "benchGraphs", label = "Produce graphs", value = FALSE, width = "350px")
      }
    })
    output$benchGraphsPctXlabelChk <- renderUI({
      if(!is.null(file.bench$loaded) && nrow(benchAllVars$benchSelectedPVVars) > 0 && isTRUE(input$benchGraphs)) {
        checkboxInput(inputId = "benchGraphsPctXlabelChk", label = "Custom percentages graphs x-axis label", value = FALSE, width = "300px")
      }
    })
    output$benchGraphsPctXlabelTXT <- renderUI({
      if(!is.null(file.bench$loaded) && isTRUE(input$benchGraphs) && nrow(benchAllVars$benchSelectedPVVars) > 0 && isTRUE(input$benchGraphsPctXlabelChk)) {
        textInput(inputId = "benchGraphsPctXlabelTXT", label = NULL, placeholder = "Type your custom horizontal axis label for the percentage plots", width = "100%")
      }
    })
    output$benchGraphsPctYlabelChk <- renderUI({
      if(!is.null(file.bench$loaded) && nrow(benchAllVars$benchSelectedPVVars) > 0 && isTRUE(input$benchGraphs)) {
        checkboxInput(inputId = "benchGraphsPctYlabelChk", label = "Custom percentages graphs y-axis label", value = FALSE, width = "300px")
      }
    })
    output$benchGraphsPctYlabelTXT <- renderUI({
      if(!is.null(file.bench$loaded) && isTRUE(input$benchGraphs) && nrow(benchAllVars$benchSelectedPVVars) > 0 && isTRUE(input$benchGraphsPctYlabelChk)) {
        textInput(inputId = "benchGraphsPctYlabelTXT", label = NULL, placeholder = "Type your custom vertical axis label for the percentage plots", width = "100%")
      }
    })
    output$benchGraphsMeanXlabelsChk <- renderUI({
      if(!is.null(input$benchType) && input$benchType == "Discrete" && !is.null(file.bench$loaded) && isTRUE(input$benchGraphs) && nrow(benchAllVars$benchSelectedPVVars) > 0 && nrow(benchAllVars$benchSelectedBckgVars) > 0) {
        checkboxInput(inputId = "benchGraphsMeanXlabelsChk", label = "Custom mean graphs x-axis labels", value = FALSE, width = "300px")
      }
    })
    output$benchGraphsMeanXlabelsTXT <- renderUI({
      if(!is.null(input$benchType) && input$benchType == "Discrete" && !is.null(file.bench$loaded) && isTRUE(input$benchGraphs) && isTRUE(input$benchGraphsMeanXlabelsChk) && nrow(benchAllVars$benchSelectedPVVars) > 0 && nrow(benchAllVars$benchSelectedBckgVars) > 0) {
        textInput(inputId = "benchGraphsMeanXlabelsTXT", label = NULL, placeholder = "Type your custom horizontal axis labels for the percentile plots, separated by semicolons", width = "100%")
      }
    })
    output$benchGraphsMeanYlabelsChk <- renderUI({
      if(!is.null(input$benchType) && input$benchType == "Discrete" && !is.null(file.bench$loaded) && isTRUE(input$benchGraphs) && nrow(benchAllVars$benchSelectedPVVars) > 0 && nrow(benchAllVars$benchSelectedBckgVars) > 0) {
        checkboxInput(inputId = "benchGraphsMeanYlabelsChk", label = "Custom mean graphs y-axis labels", value = FALSE, width = "300px")
      }
    })
    output$benchGraphsMeanYlabelsTXT <- renderUI({
      if(!is.null(input$benchType) && input$benchType == "Discrete" && !is.null(file.bench$loaded) && isTRUE(input$benchGraphs) && isTRUE(input$benchGraphsMeanYlabelsChk) && nrow(benchAllVars$benchSelectedPVVars) > 0 && nrow(benchAllVars$benchSelectedBckgVars) > 0) {
        textInput(inputId = "benchGraphsMeanYlabelsTXT", label = NULL, placeholder = "Type your custom vertical axis labels for the percentile plots, separated by semicolons", width = "100%")
      }
    })
    shinyFileSave(input, "benchChooseOutFile", filetype = list(xlsx = "xlsx"), roots = available.volumes, updateFreq = 100000)
    output$benchOpenOutput <- renderUI({
      if(length(parseSavePath(available.volumes, input$benchChooseOutFile)$datapath) > 0 && length(parseFilePaths(available.volumes, input$benchChooseSrcFile)$datapath) > 0) {
        checkboxInput(inputId = "benchOpenOutput", label = "Open the output when done", value = TRUE, width = "250px")
      }
    })
    syntaxBench <- reactive({
      tmp.bench.values <- unlist(str_split(string = trimws(input$benchValues), pattern = "[[:space:]]+"))
      file.bench$bench.syntax <- paste0(
        paste0('lsa.bench(data.file = "', parseFilePaths(available.volumes, input$benchChooseSrcFile)$datapath, '"'),
        if(!is.null(benchAllVars$benchSelectedSplitVars) && nrow(benchAllVars$benchSelectedSplitVars) == 1) {
          paste0(', split.vars = "', benchAllVars$benchSelectedSplitVars[ , Variables], '"')
        } else if(!is.null(benchAllVars$benchSelectedSplitVars) && nrow(benchAllVars$benchSelectedSplitVars) > 1) {
          paste0(', split.vars = c("', paste(benchAllVars$benchSelectedSplitVars[ , Variables], collapse = '", "'), '")')
        },
        if(!is.null(benchAllVars$benchSelectedPVVars) && nrow(benchAllVars$benchSelectedPVVars) == 0) {
          NULL
        } else if(!is.null(benchAllVars$benchSelectedPVVars) && nrow(benchAllVars$benchSelectedPVVars) == 1) {
          paste0(', PV.root.bench = "', benchAllVars$benchSelectedPVVars[ , Variables], '"')
        } else if(!is.null(benchAllVars$benchSelectedPVVars) && nrow(benchAllVars$benchSelectedPVVars) > 1) {
          paste0(', PV.root.bench = c("', paste(benchAllVars$benchSelectedPVVars[ , Variables], collapse = '", "'), '")')
        },
        if(exists("tmp.bench.values") && length(tmp.bench.values) == 1) {
          paste0(', bench.vals = ', gsub(pattern = "[[:space:]]+", replacement = "", x = tmp.bench.values))
        } else if(exists("tmp.bench.values") && length(tmp.bench.values) > 1) {
          paste0(', bench.vals = c(', paste(tmp.bench.values, collapse = ', '), ')')
        } else {
          NULL
        },
        if(!is.null(input$benchType) && input$benchType == "Discrete") {
          NULL
        } else if(!is.null(input$benchType) && input$benchType == "Cumulative") {
          paste0(', bench.type = "cumulative"')
        },
        if(!is.null(input$benchComputeWithin) && input$benchComputeWithin == FALSE) {
          NULL
        } else if(!is.null(input$benchComputeWithin) && input$benchComputeWithin == TRUE) {
          ' , pcts.within = TRUE'
        },
        if(input$benchType == "Cumulative" || !is.null(benchAllVars$benchSelectedBckgVars) & nrow(benchAllVars$benchSelectedBckgVars) == 0) {
          NULL
        } else if(!is.null(benchAllVars$benchSelectedBckgVars) && nrow(benchAllVars$benchSelectedBckgVars) == 1) {
          paste0(', bckg.var = "', benchAllVars$benchSelectedBckgVars[ , Variables], '"')
        } else if(!is.null(benchAllVars$benchSelectedBckgVars) && nrow(benchAllVars$benchSelectedBckgVars) > 1) {
          paste0(', bckg.var = c("', paste(benchAllVars$benchSelectedBckgVars[ , Variables], collapse = '", "'), '")')
        },
        if(!is.null(benchAllVars$benchSelectedWeightVar) && nrow(benchAllVars$benchSelectedWeightVar) == 0) {
          NULL
        } else if(!is.null(benchAllVars$benchSelectedWeightVar) && nrow(benchAllVars$benchSelectedWeightVar) == 1 && benchAllVars$benchSelectedWeightVar[ , Variables] == file.bench$default.weight) {
          NULL
        } else if(!is.null(benchAllVars$benchSelectedWeightVar) && nrow(benchAllVars$benchSelectedWeightVar) == 1 && benchAllVars$benchSelectedWeightVar[ , Variables] != file.bench$default.weight) {
          paste0(', weight.var = "', benchAllVars$benchSelectedWeightVar[ , Variables], '"')
        },
        if(is.null(input$benchInclMiss) || input$benchInclMiss == FALSE) {
          NULL
        } else if(!is.null(input$benchInclMiss) || input$benchInclMiss == TRUE) {
          ', include.missing = TRUE'
        },
        if(is.null(input$benchShortcut) || input$benchShortcut == FALSE) {
          NULL
        } else if(!is.null(input$benchShortcut) || input$benchShortcut == TRUE) {
          ', shortcut = TRUE'
        },
        if(is.null(input$benchGraphs) || input$benchGraphs == FALSE) {
          NULL
        } else if(!is.null(input$benchGraphs) || input$benchGraphs == TRUE) {
          ', graphs = TRUE'
        },
        if(!is.null(input$benchGraphs) && input$benchGraphs == TRUE && !is.null(input$benchGraphsPctXlabelChk) && input$benchGraphsPctXlabelChk == TRUE && !is.null(input$benchGraphsPctXlabelTXT) && input$benchGraphsPctXlabelTXT != "") {
          paste0(', perc.x.label = "', input$benchGraphsPctXlabelTXT, '"')
        },
        if(!is.null(input$benchGraphs) && input$benchGraphs == TRUE && !is.null(input$benchGraphsPctYlabelChk) && input$benchGraphsPctYlabelChk == TRUE && !is.null(input$benchGraphsPctYlabelTXT) && input$benchGraphsPctYlabelTXT != "") {
          paste0(', perc.y.label = "', input$benchGraphsPctYlabelTXT, '"')
        },
        if(input$benchType == "Discrete" && !is.null(input$benchGraphs) && input$benchGraphs == TRUE && !is.null(input$benchGraphsMeanXlabelsChk) && input$benchGraphsMeanXlabelsChk == TRUE && !is.null(input$benchGraphsMeanXlabelsTXT) && input$benchGraphsMeanXlabelsTXT != "") {
          paste0(', mean.x.label = "', input$benchGraphsMeanXlabelsTXT, '"')
        },
        if(input$benchType == "Discrete" && !is.null(input$benchGraphs) && input$benchGraphs == TRUE && !is.null(input$benchGraphsMeanYlabelsChk) && input$benchGraphsMeanYlabelsChk == TRUE && !is.null(input$benchGraphsMeanYlabelsTXT) && input$benchGraphsMeanYlabelsTXT != "") {
          paste0(', mean.y.label = "', input$benchGraphsMeanYlabelsTXT, '"')
        },
        paste0(', output.file = "', parseSavePath(available.volumes, input$benchChooseOutFile)$datapath, '"'),
        if(is.null(input$benchOpenOutput) || input$benchOpenOutput == FALSE) {
          NULL
        } else if(!is.null(input$benchOpenOutput) || input$benchOpenOutput == TRUE) {
          ', open.output = TRUE'
        },
        ')'
      )
    })
    output$benchSyntaxHead <- renderText({
      if(length(parseSavePath(available.volumes, input$benchChooseOutFile)$datapath) == 1 && length(parseFilePaths(available.volumes, input$benchChooseSrcFile)$datapath) > 0) {
        HTML("Syntax")
      } else {
        return(NULL)
      }
    })
    observe.syntax.save.button <- eval(parse(text = string.observe.syntax.save.button))
    observe.syntax.save.button(input = input, session = session, syntax.ID = "saveBenchSyntax", syntax.object = "syntaxBench()", volumes = available.volumes)
    output$copyBenchSyntax <- renderUI({
      rclipButton(inputId = "copyBenchSyntax", label = "Copy syntax", clipText = syntaxBench(), icon = icon("copy"), style = "color: #ffffff; background-color: #000000; border-radius: 5px; font-size: 80%; margin-bottom: 1px; padding: 1px; width: 85px; margin-top: 1px")
    })
    output$benchSyntax <- renderText({
      if(length(parseSavePath(available.volumes, input$benchChooseOutFile)$datapath) == 1 && nrow(rbindlist(l = list(benchAllVars$benchSelectedPVVars, benchAllVars$benchSelectedBckgVars))) >= 1) {
        syntaxBench()
      } else {
        return(NULL)
      }
    })
    output$benchExecBtnHead <- renderText({
      if(length(parseSavePath(available.volumes, input$benchChooseOutFile)$datapath) == 1 && length(parseFilePaths(available.volumes, input$benchChooseSrcFile)$datapath) > 0) {
        HTML("Press the button below to execute the syntax")
      } else {
        return(NULL)
      }
    })
    output$execBench <- renderUI({
      if(length(parseSavePath(available.volumes, input$benchChooseOutFile)$datapath) == 1 && length(parseFilePaths(available.volumes, input$benchChooseSrcFile)$datapath) > 0) {
        actionButton(inputId = "execBench", label = "Execute syntax", icon = icon("cogs"), style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      } else {
        return(NULL)
      }
    })
    observe({
      if(is.null(file.bench$loaded) || !is.null(benchAllVars$benchSelectedPVVars) && !is.null(benchAllVars$benchSelectedBckgVars)) {
        if(nrow(rbindlist(l = list(benchAllVars$benchSelectedBckgVars, benchAllVars$benchSelectedPVVars))) == 0 || nrow(benchAllVars$benchSelectedPVVars)  == 0 || any(benchAllVars$benchSelectedPVVars[ , Variables] %in% file.bench$PV.sets == FALSE) || any(benchAllVars$benchSelectedSplitVars[ , Variables] %in% file.bench$PV.sets == TRUE) || any(benchAllVars$benchSelectedBckgVars[ , Variables] %in% file.bench$PV.sets == TRUE) || any(benchAllVars$benchSelectedWeightVar[ , Variables] %in% all.studies.available.weights == FALSE)) {
          hide("benchValuesExpl")
          hide("benchValues")
          hide("benchValuesReset")
          hide("benchWarnMoreVars")
        } else if(!is.null(file.bench$loaded) && nrow(rbindlist(l = list(benchAllVars$benchSelectedBckgVars, benchAllVars$benchSelectedPVVars))) > 0 || nrow(benchAllVars$benchSelectedPVVars) > 0 || any(benchAllVars$benchSelectedPVVars[ , Variables] %in% file.bench$PV.sets == TRUE) || any(benchAllVars$benchSelectedSplitVars[ , Variables] %in% file.bench$PV.sets == FALSE) || any(benchAllVars$benchSelectedBckgVars[ , Variables] %in% file.bench$PV.sets == FALSE) || any(benchAllVars$benchSelectedWeightVar[ , Variables] %in% all.studies.available.weights == TRUE)) {
          show("benchValuesExpl")
          show("benchValues")
          show("benchValuesReset")
          show("benchWarnMoreVars")
        }
        if(is.null(file.bench$loaded) || nrow(benchAllVars$benchSelectedPVVars) == 0 || any(benchAllVars$benchSelectedPVVars[ , Variables] %in% file.bench$PV.sets == FALSE) || any(benchAllVars$benchSelectedSplitVars[ , Variables] %in% file.bench$PV.sets == TRUE) || any(benchAllVars$benchSelectedBckgVars[ , Variables] %in% file.bench$PV.sets == TRUE) || any(benchAllVars$benchSelectedWeightVar[ , Variables] %in% all.studies.available.weights == FALSE) || nrow(rbindlist(l = list(benchAllVars$benchSelectedBckgVars, benchAllVars$benchSelectedPVVars))) == 0 || input$benchValues == "" || bench.not.numbers() == TRUE || bench.out.of.bounds() == TRUE) {
          hide("benchComputeWithin")
          hide("benchComputeWithinExpl")
          hide("benchShortcut")
          hide("benchGraphs")
          hide("benchGraphsPctXlabelChk")
          hide("benchGraphsPctYlabelChk")
          hide("benchGraphsPctXlabelTXT")
          hide("benchGraphsPctYlabelTXT")
          hide("benchGraphsMeanXlabelsChk")
          hide("benchGraphsMeanYlabelsChk")
          hide("benchGraphsMeanXlabelsTXT")
          hide("benchGraphsMeanYlabelsTXT")
          hide("benchChooseOutFile")
          hide("benchOpenOutput")
          hide("benchSyntaxHead")
          hide("benchSyntax")
          hide("benchExecBtnHead")
          hide("execBench")
        } else if (!is.null(file.bench$loaded) || nrow(benchAllVars$benchSelectedPVVars) > 0 || any(benchAllVars$benchSelectedPVVars[ , Variables] %in% file.bench$PV.sets == TRUE) || any(benchAllVars$benchSelectedSplitVars[ , Variables] %in% file.bench$PV.sets == FALSE) || any(benchAllVars$benchSelectedBckgVars[ , Variables] %in% file.bench$PV.sets == FALSE) || any(benchAllVars$benchSelectedWeightVar[ , Variables] %in% all.studies.available.weights == TRUE) || nrow(rbindlist(l = list(benchAllVars$benchSelectedBckgVars, benchAllVars$benchSelectedPVVars))) > 0 || input$benchValues != "" || bench.not.numbers() == FALSE || bench.out.of.bounds() == FALSE) {
          show("benchComputeWithin")
          show("benchComputeWithinExpl")
          show("benchShortcut")
          show("benchGraphs")
          show("benchGraphsPctXlabelChk")
          show("benchGraphsPctYlabelChk")
          show("benchGraphsPctXlabelTXT")
          show("benchGraphsPctYlabelTXT")
          show("benchGraphsMeanXlabelsChk")
          show("benchGraphsMeanYlabelsChk")
          show("benchGraphsMeanXlabelsTXT")
          show("benchGraphsMeanYlabelsTXT")
          show("benchChooseOutFile")
          show("benchOpenOutput")
          show("benchSyntaxHead")
          show("benchSyntax")
          show("benchExecBtnHead")
          show("execBench")
        }
      }
      if(is.null(file.bench$default.weight) || length(file.bench$default.weight) == 0) {
        hide("benchType")
        hide("benchTypeExpl")
        hide("benchVariablesExplText")
        hide("benchAllAvailableVars")
        hide("benchArrowSelSplitVarsRight")
        hide("benchArrowSelSplitVarsLeft")
        hide("benchSplitVars")
        hide("benchInclMiss")
        hide("benchArrowSelBckgVarsRight")
        hide("benchArrowSelBckgVarsLeft")
        hide("benchBckgVars")
        hide("benchArrowSelPVsRight")
        hide("benchArrowSelPVsLeft")
        hide("benchArrowSelPVsRightDisbld")
        hide("benchArrowSelPVsLeftDisbld")
        hide("benchPVVarsDisbld")
        hide("benchPVVars")
        hide("benchArrowSelWeightVarsRight")
        hide("benchArrowSelWeightVarsLeft")
        hide("benchWeightVar")
      } else if(!is.null(file.bench$default.weight) || length(file.bench$default.weight) != 0) {
        show("benchType")
        show("benchTypeExpl")
        show("benchVariablesExplText")
        show("benchAllAvailableVars")
        show("benchArrowSelSplitVarsRight")
        show("benchArrowSelSplitVarsLeft")
        show("benchSplitVars")
        show("benchInclMiss")
        show("benchArrowSelBckgVarsRight")
        show("benchArrowSelBckgVarsLeft")
        show("benchBckgVars")
        show("benchArrowSelPVsRight")
        show("benchArrowSelPVsLeft")
        show("benchArrowSelPVsRightDisbld")
        show("benchArrowSelPVsLeftDisbld")
        show("benchPVVarsDisbld")
        show("benchPVVars")
        show("benchArrowSelWeightVarsRight")
        show("benchArrowSelWeightVarsLeft")
        show("benchWeightVar")
      }
      if(
        is.null(benchAllVars$benchSelectedPVVars) ||
        nrow(benchAllVars$benchSelectedPVVars) == 0 ||
        input$benchValues == "" ||
        bench.not.numbers() == TRUE ||
        bench.out.of.bounds() == TRUE ||
        !is.null(benchAllVars$benchSelectedPVVars) && any(benchAllVars$benchSelectedPVVars[ , Variables] %in% file.bench$PV.sets == FALSE) ||
        !is.null(file.bench$loaded) && isTRUE(input$benchGraphs) && !is.null(input$benchGraphsPctXlabelChk) && isTRUE(input$benchGraphsPctXlabelChk) && !is.null(input$benchGraphsPctXlabelTXT) && input$benchGraphsPctXlabelTXT == "" ||
        !is.null(file.bench$loaded) && isTRUE(input$benchGraphs) && !is.null(input$benchGraphsPctYlabelChk) && isTRUE(input$benchGraphsPctYlabelChk) && !is.null(input$benchGraphsPctYlabelTXT) && input$benchGraphsPctYlabelTXT == "" ||
        !is.null(file.bench$loaded) && isTRUE(input$benchGraphs) && !is.null(input$benchGraphsMeanXlabelsChk) && isTRUE(input$benchGraphsMeanXlabelsChk) && !is.null(input$benchGraphsMeanXlabelsTXT) && input$benchGraphsMeanXlabelsTXT == "" ||
        !is.null(file.bench$loaded) && isTRUE(input$benchGraphs) && !is.null(input$benchGraphsMeanYlabelsChk) && isTRUE(input$benchGraphsMeanYlabelsChk) && !is.null(input$benchGraphsMeanYlabelsTXT) && input$benchGraphsMeanYlabelsTXT == "" ||
        length(parseSavePath(available.volumes, input$benchChooseOutFile)$datapath) == 0
      ) {
        hide("saveBenchSyntax")
        hide("copyBenchSyntax")
        hide("consoleBench")
      } else if(
        !is.null(benchAllVars$benchSelectedPVVars) ||
        nrow(benchAllVars$benchSelectedPVVars) > 0 ||
        input$benchValues != "" ||
        bench.not.numbers() == FALSE ||
        bench.out.of.bounds() == FALSE ||
        is.null(benchAllVars$benchSelectedPVVars) && all(benchAllVars$benchSelectedPVVars[ , Variables] %in% file.bench$PV.sets == TRUE) ||
        !is.null(file.bench$loaded) && isTRUE(input$benchGraphs) && !is.null(input$benchGraphsPctXlabelChk) && isTRUE(input$benchGraphsPctXlabelChk) && !is.null(input$benchGraphsPctXlabelTXT) && input$benchGraphsPctXlabelTXT != "" ||
        !is.null(file.bench$loaded) && isTRUE(input$benchGraphs) && !is.null(input$benchGraphsPctYlabelChk) && isTRUE(input$benchGraphsPctYlabelChk) && !is.null(input$benchGraphsPctYlabelTXT) && input$benchGraphsPctYlabelTXT != "" ||
        !is.null(file.bench$loaded) && isTRUE(input$benchGraphs) && !is.null(input$benchGraphsPctXlabelChk) && isTRUE(input$benchGraphsPctXlabelChk) && !is.null(input$benchGraphsPctXlabelTXT) && input$benchGraphsPctXlabelTXT != "" ||
        !is.null(file.bench$loaded) && isTRUE(input$benchGraphs) && !is.null(input$benchGraphsMeanYlabelsChk) && isTRUE(input$benchGraphsMeanYlabelsChk) && !is.null(input$benchGraphsMeanYlabelsTXT) && input$benchGraphsMeanYlabelsTXT != "" ||
        length(parseSavePath(available.volumes, input$benchChooseOutFile)$datapath) > 0
      ) {
        show("saveBenchSyntax")
        show("copyBenchSyntax")
        show("consoleBench")
      }
      if(
        is.null(benchAllVars$benchSelectedPVVars) ||
        nrow(benchAllVars$benchSelectedPVVars) == 0 ||
        !is.null(file.bench$loaded) && isTRUE(input$benchGraphs) && !is.null(input$benchGraphsPctXlabelChk) && isTRUE(input$benchGraphsPctXlabelChk) && !is.null(input$benchGraphsPctXlabelTXT) && input$benchGraphsPctXlabelTXT == "" ||
        !is.null(file.bench$loaded) && isTRUE(input$benchGraphs) && !is.null(input$benchGraphsPctYlabelChk) && isTRUE(input$benchGraphsPctYlabelChk) && !is.null(input$benchGraphsPctYlabelTXT) && input$benchGraphsPctYlabelTXT == "" ||
        !is.null(file.bench$loaded) && isTRUE(input$benchGraphs) && !is.null(input$benchGraphsMeanXlabelsChk) && isTRUE(input$benchGraphsMeanXlabelsChk) && !is.null(input$benchGraphsMeanXlabelsTXT) && input$benchGraphsMeanXlabelsTXT == "" ||
        !is.null(file.bench$loaded) && isTRUE(input$benchGraphs) && !is.null(input$benchGraphsMeanYlabelsChk) && isTRUE(input$benchGraphsMeanYlabelsChk) && !is.null(input$benchGraphsMeanYlabelsTXT) && input$benchGraphsMeanYlabelsTXT == ""
      ) {
        hide("benchChooseOutFile")
        hide("benchOpenOutput")
        hide("benchSyntaxHead")
        hide("benchSyntax")
        hide("benchExecBtnHead")
        hide("execBench")
      } else if(
        !is.null(benchAllVars$benchSelectedPVVars) ||
        nrow(benchAllVars$benchSelectedPVVars) > 0 ||
        !is.null(file.bench$loaded) && isTRUE(input$benchGraphs) && !is.null(input$benchGraphsPctXlabelChk) && isTRUE(input$benchGraphsPctXlabelChk) && !is.null(input$benchGraphsPctXlabelTXT) && input$benchGraphsPctXlabelTXT != "" ||
        !is.null(file.bench$loaded) && isTRUE(input$benchGraphs) && !is.null(input$benchGraphsPctYlabelChk) && isTRUE(input$benchGraphsPctYlabelChk) && !is.null(input$benchGraphsPctYlabelTXT) && input$benchGraphsPctYlabelTXT != "" ||
        !is.null(file.bench$loaded) && isTRUE(input$benchGraphs) && !is.null(input$benchGraphsPctXlabelChk) && isTRUE(input$benchGraphsPctXlabelChk) && !is.null(input$benchGraphsPctXlabelTXT) && input$benchGraphsPctXlabelTXT != "" ||
        !is.null(file.bench$loaded) && isTRUE(input$benchGraphs) && !is.null(input$benchGraphsMeanYlabelsChk) && isTRUE(input$benchGraphsMeanYlabelsChk) && !is.null(input$benchGraphsMeanYlabelsTXT) && input$benchGraphsMeanYlabelsTXT != ""
      ) {
        show("benchChooseOutFile")
        show("benchOpenOutput")
        show("benchSyntaxHead")
        show("benchSyntax")
        show("benchExecBtnHead")
        show("execBench")
      }
    })
  }
})
observeEvent(input$execBench, {
  showNotification(ui = HTML("<br/>   Execution started.   <br/><br/>"), type = "message")
  withCallingHandlers({html("consoleBench", "")
    tryCatch({
      expr = eval(parse(text = file.bench$bench.syntax))
      showNotification(ui = HTML("<br/>   All operations complete!   <br/><br/>"), type = "message", duration = NULL)
    }, error = function(e) {
      message("", e)
      showNotification(ui = HTML(paste0("Something went wrong. Possible reasons: <br/>", paste(gsub(pattern = "\\n|Error: ", replacement = "<br/>", x = e)))), type = "error", duration = NULL)
    })
  },
  message = function(i) {
    shinyjs::html(id = "consoleBench", html = i$message, add = TRUE)
  },
  warning = function(w) {
    shinyjs::html(id = "consoleBench", html = paste0("Warning: ", w$message, "\n"), add = TRUE)
  })
  session$sendCustomMessage(type = "scrollCallback", 1)
}, ignoreInit = TRUE)
output$h1CrossTabs <- renderText("Crosstabulations")
hide("crossTabsChooseOutFile")
hide("saveCrosstabsSyntax")
hide("copyCrosstabsSyntax")
output$crossTabsIntro <- renderText({HTML("Select large-scale assessment .RData file to load.")})
file.crosstabs <- reactiveValues(loaded = NULL, is.lsa.data = NULL, resp.type = NULL, study = NULL, cycle = NULL, country.ID = NULL, PV.sets = NULL, default.weight = NULL, crosstabs.syntax = NULL)
shinyFileChoose(input, "crossTabsChooseSrcFile", roots = available.volumes, filetype = list(RData = "RData"))
observeEvent(eventExpr = input$crossTabsChooseSrcFile, {
  file.crosstabs$loaded <- NULL
  file.crosstabs$study <- NULL
  file.crosstabs$cycle <- NULL
  file.crosstabs$resp.type <- NULL
  file.crosstabs$PV.sets <- NULL
  file.crosstabs$default.weight <- NULL
  if(length(parseFilePaths(available.volumes, input$crossTabsChooseSrcFile)$datapath) > 0 && file.size(parseFilePaths(available.volumes, input$crossTabsChooseSrcFile)$datapath) > 104857600) {
    showNotification(ui = HTML('The size of the selected<br/>file is rather large. Please<br/>wait until the file is loaded.'), type = "message")
  }
  if(length(parseFilePaths(available.volumes, input$crossTabsChooseSrcFile)$datapath) > 0) {
    file.crosstabs$loaded <- get(load(parseFilePaths(available.volumes, input$crossTabsChooseSrcFile)$datapath))
    if("lsa.data" %in% class(file.crosstabs$loaded)) {
      file.crosstabs$is.lsa.data <- TRUE
    } else {
      file.crosstabs$is.lsa.data <- FALSE
    }
    file.crosstabs$study <- attr(x = file.crosstabs$loaded, which = "study")
    file.crosstabs$cycle <- attr(x = file.crosstabs$loaded, which = "cycle")
    file.crosstabs$resp.type <- attr(x = file.crosstabs$loaded, which = "file.type")
    file.crosstabs$loaded <- data.table(Variables = names(file.crosstabs$loaded), Variable_Labels = sapply(X = file.crosstabs$loaded, FUN = function(j) {
      if(is.null(attr(x = j, which = "variable.label"))) {
        return(NA_character_)
      } else {
        attr(x = j, which = "variable.label")
      }
    }),
    order_col = 1:ncol(file.crosstabs$loaded))
    file.crosstabs$PV.sets <- NULL
    tmp.PV.names <- grep(pattern = paste(all.available.PVs, collapse = "|"), x = file.crosstabs$loaded[ , Variables], value = TRUE)
    if(length(tmp.PV.names) > 0) {
      collapsed.PVs <- collapse.loaded.file.PV.names(PV.vector = tmp.PV.names, vars.object = file.crosstabs$loaded)
      file.crosstabs$loaded <- file.crosstabs$loaded[!Variables %in% tmp.PV.names]
      file.crosstabs$loaded <- rbindlist(l = list(file.crosstabs$loaded, collapsed.PVs))
      setkeyv(x = file.crosstabs$loaded, cols = "order_col")
      file.crosstabs$PV.sets <- collapsed.PVs[ , Variables]
    }
    if(!is.null(file.crosstabs$study)) {
      file.crosstabs$default.weight <- define.default.weight(study = file.crosstabs$study, loaded.names.and.labels = file.crosstabs$loaded, respondent.type = file.crosstabs$resp.type)
    }
    file.crosstabs$country.ID <- NULL
    if("IDCNTRY" %in% file.crosstabs$loaded[ , Variables]) {
      file.crosstabs$country.ID <- "IDCNTRY"
    } else {
      file.crosstabs$country.ID <- "CNT"
    }
  }
  output$crossTabsSrcPathDisplay <- renderText({parseFilePaths(available.volumes, input$crossTabsChooseSrcFile)$datapath})
}, ignoreInit = TRUE)
observe({
  if(!is.null(file.crosstabs$loaded) && file.crosstabs$is.lsa.data == FALSE) {
    showNotification(ui = HTML('The data is not of class "lsa.data".<br/>Please check the file content.'), type = "error")
  } else if (!is.null(file.crosstabs$loaded) && file.crosstabs$is.lsa.data == TRUE) {
    output$crossTabsStudyName <- renderText({
      if(is.null(file.crosstabs$resp.type)) {
        return(NULL)
      } else {
        HTML(paste0('Study: ', file.crosstabs$study))
      }
    })
    output$crossTabsStudyCycle <- renderText({
      if(is.null(file.crosstabs$resp.type)) {
        return(NULL)
      } else {
        HTML(paste0('Cycle: ', file.crosstabs$cycle))
      }
    })
    output$crossTabsRespHead <- renderText({
      if(is.null(file.crosstabs$resp.type)) {
        return(NULL)
      } else {
        HTML('<u>The file contains data from the following respondents:</u>')
      }
    })
    output$crossTabsRespAvailable <- renderText({
      if(is.null(file.crosstabs$resp.type)) {
        return(NULL)
      } else {
        HTML(file.merged.respondents[[file.crosstabs$resp.type]])
      }
    })
    output$crossTabsNoWeights <- renderText({
      if(!is.null(file.crosstabs$loaded) && is.null(file.crosstabs$default.weight) || !is.null(file.crosstabs$loaded) && length(file.crosstabs$default.weight) == 0) {
        HTML('Error: The loaded file does not contain any recognizable default weight variable. Such files cannot be analyzed on their own and must be merged with other respondents in advance.')
      } else {
        return(NULL)
      }
    })
    output$crossTabsVariablesExplText <- renderText({
      if(is.null(file.crosstabs$resp.type)) {
        return(NULL)
      } else {
        HTML('Use the panels below to select the variables to compute crosstabulations for.')
      }
    })
    crosstabs.initial.available.vars <- file.crosstabs$loaded[!Variables %in% c(file.crosstabs$default.weight, file.crosstabs$country.ID), ]
    crosstabs.initial.selected.split.vars <- file.crosstabs$loaded[Variables == file.crosstabs$country.ID, ]
    crosstabs.initial.selected.bckg.row.var <- data.table(Variables = as.character(), Variable_Labels = as.character(), order_col = as.numeric())
    crosstabs.initial.selected.bckg.col.var <- data.table(Variables = as.character(), Variable_Labels = as.character(), order_col = as.numeric())
    crosstabs.initial.selected.PV.vars <- data.table(Variables = as.character(), Variable_Labels = as.character(), order_col = as.numeric())
    crosstabs.initial.selected.weight.var <- file.crosstabs$loaded[Variables %in% file.crosstabs$default.weight, ]
    crossTabsAllVars <- reactiveValues(crossTabsAvailVars = crosstabs.initial.available.vars, crossTabsSelectedSplitVars = crosstabs.initial.selected.split.vars, crossTabsSelectedBckgRowVar = crosstabs.initial.selected.bckg.row.var, crossTabsSelectedBckgColVar = crosstabs.initial.selected.bckg.col.var, crossTabsSelectedPVVars = crosstabs.initial.selected.PV.vars, crossTabsSelectedWeightVar = crosstabs.initial.selected.weight.var)
    output$crossTabsArrowSelSplitVarsRight <- renderUI({
      if(is.null(file.crosstabs$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "crossTabsArrowSelSplitVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$crossTabsArrowSelSplitVarsLeft <- renderUI({
      if(is.null(file.crosstabs$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "crossTabsArrowSelSplitVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$crossTabsArrowSelBckgRowVarRight <- renderUI({
      if(is.null(file.crosstabs$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "crossTabsArrowSelBckgRowVarRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$crossTabsArrowSelBckgRowVarLeft <- renderUI({
      if(is.null(file.crosstabs$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "crossTabsArrowSelBckgRowVarLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$crossTabsArrowSelBckgColVarRight <- renderUI({
      if(is.null(file.crosstabs$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "crossTabsArrowSelBckgColVarRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$crossTabsArrowSelBckgColVarLeft <- renderUI({
      if(is.null(file.crosstabs$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "crossTabsArrowSelBckgColVarLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$crossTabsArrowSelWeightVarRight <- renderUI({
      if(is.null(file.crosstabs$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "crossTabsArrowSelWeightVarRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$crossTabsArrowSelWeightVarLeft <- renderUI({
      if(is.null(file.crosstabs$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "crossTabsArrowSelWeightVarLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    observeEvent(input$crossTabsArrowSelSplitVarsRight, {
      req(input$crossTabsAllAvailableVars_rows_selected)
      crossTabsAllVars$crossTabsSelectedSplitVars <- rbind(isolate(crossTabsAllVars$crossTabsSelectedSplitVars), crossTabsAllVars$crossTabsAvailVars[input$crossTabsAllAvailableVars_rows_selected, , drop = FALSE])
      crossTabsAllVars$crossTabsSelectedSplitVars <- crossTabsAllVars$crossTabsSelectedSplitVars[complete.cases(crossTabsAllVars$crossTabsSelectedSplitVars[ , "Variables"]), , drop = FALSE]
      crossTabsAllVars$crossTabsAvailVars <- isolate(crossTabsAllVars$crossTabsAvailVars[-input$crossTabsAllAvailableVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$crossTabsArrowSelSplitVarsLeft, {
      req(input$crossTabsSplitVars_rows_selected)
      crossTabsAllVars$crossTabsAvailVars <- rbind(isolate(crossTabsAllVars$crossTabsAvailVars),        crossTabsAllVars$crossTabsSelectedSplitVars[input$crossTabsSplitVars_rows_selected, , drop = FALSE])
      crossTabsAllVars$crossTabsAvailVars <- crossTabsAllVars$crossTabsAvailVars[complete.cases(crossTabsAllVars$crossTabsAvailVars[ , "Variables"]), , drop = FALSE]
      if(nrow(crossTabsAllVars$crossTabsSelectedSplitVars) > 0) {
        crossTabsAllVars$crossTabsSelectedSplitVars <- isolate(crossTabsAllVars$crossTabsSelectedSplitVars[-input$crossTabsSplitVars_rows_selected, , drop = FALSE])
      }
      if(!file.crosstabs$country.ID %in% crossTabsAllVars$crossTabsSelectedSplitVars[ , Variables]) {
        showNotification(ui = HTML("Country ID <b>must always be</b> the first splitting variable!"), type = "error")
      }
      crossTabsAllVars$crossTabsSelectedSplitVars <- rbindlist(l = list(crossTabsAllVars$crossTabsSelectedSplitVars, crossTabsAllVars$crossTabsAvailVars[Variables == file.crosstabs$country.ID, ]))
      crossTabsAllVars$crossTabsAvailVars <- crossTabsAllVars$crossTabsAvailVars[Variables != file.crosstabs$country.ID, ]
    })
    observeEvent(input$crossTabsArrowSelBckgRowVarRight, {
      req(input$crossTabsAllAvailableVars_rows_selected)
      crossTabsAllVars$crossTabsSelectedBckgRowVar <- rbind(isolate(crossTabsAllVars$crossTabsSelectedBckgRowVar), crossTabsAllVars$crossTabsAvailVars[input$crossTabsAllAvailableVars_rows_selected, , drop = FALSE])
      crossTabsAllVars$crossTabsSelectedBckgRowVar <- crossTabsAllVars$crossTabsSelectedBckgRowVar[complete.cases(crossTabsAllVars$crossTabsSelectedBckgRowVar[ , "Variables"]), , drop = FALSE]
      crossTabsAllVars$crossTabsAvailVars <- isolate(crossTabsAllVars$crossTabsAvailVars[-input$crossTabsAllAvailableVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$crossTabsArrowSelBckgRowVarLeft, {
      req(input$crossTabsBckgRowVar_rows_selected)
      crossTabsAllVars$crossTabsAvailVars <- rbind(isolate(crossTabsAllVars$crossTabsAvailVars),        crossTabsAllVars$crossTabsSelectedBckgRowVar[input$crossTabsBckgRowVar_rows_selected, , drop = FALSE])
      crossTabsAllVars$crossTabsAvailVars <- crossTabsAllVars$crossTabsAvailVars[complete.cases(crossTabsAllVars$crossTabsAvailVars[ , "Variables"]), , drop = FALSE]
      crossTabsAllVars$crossTabsSelectedBckgRowVar <- isolate(crossTabsAllVars$crossTabsSelectedBckgRowVar[-input$crossTabsBckgRowVar_rows_selected, , drop = FALSE])
    })
    observeEvent(input$crossTabsArrowSelBckgColVarRight, {
      req(input$crossTabsAllAvailableVars_rows_selected)
      crossTabsAllVars$crossTabsSelectedBckgColVar <- rbind(isolate(crossTabsAllVars$crossTabsSelectedBckgColVar), crossTabsAllVars$crossTabsAvailVars[input$crossTabsAllAvailableVars_rows_selected, , drop = FALSE])
      crossTabsAllVars$crossTabsSelectedBckgColVar <- crossTabsAllVars$crossTabsSelectedBckgColVar[complete.cases(crossTabsAllVars$crossTabsSelectedBckgColVar[ , "Variables"]), , drop = FALSE]
      crossTabsAllVars$crossTabsAvailVars <- isolate(crossTabsAllVars$crossTabsAvailVars[-input$crossTabsAllAvailableVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$crossTabsArrowSelBckgColVarLeft, {
      req(input$crossTabsBckgColVar_rows_selected)
      crossTabsAllVars$crossTabsAvailVars <- rbind(isolate(crossTabsAllVars$crossTabsAvailVars),        crossTabsAllVars$crossTabsSelectedBckgColVar[input$crossTabsBckgColVar_rows_selected, , drop = FALSE])
      crossTabsAllVars$crossTabsAvailVars <- crossTabsAllVars$crossTabsAvailVars[complete.cases(crossTabsAllVars$crossTabsAvailVars[ , "Variables"]), , drop = FALSE]
      crossTabsAllVars$crossTabsSelectedBckgColVar <- isolate(crossTabsAllVars$crossTabsSelectedBckgColVar[-input$crossTabsBckgColVar_rows_selected, , drop = FALSE])
    })
    observeEvent(input$crossTabsArrowSelWeightVarRight, {
      req(input$crossTabsAllAvailableVars_rows_selected)
      crossTabsAllVars$crossTabsSelectedWeightVar <- rbind(isolate(crossTabsAllVars$crossTabsSelectedWeightVar), crossTabsAllVars$crossTabsAvailVars[input$crossTabsAllAvailableVars_rows_selected, , drop = FALSE])
      crossTabsAllVars$crossTabsSelectedWeightVar <- crossTabsAllVars$crossTabsSelectedWeightVar[complete.cases(crossTabsAllVars$crossTabsSelectedWeightVar[ , "Variables"]), , drop = FALSE]
      crossTabsAllVars$crossTabsAvailVars <- isolate(crossTabsAllVars$crossTabsAvailVars[-input$crossTabsAllAvailableVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$crossTabsArrowSelWeightVarLeft, {
      req(input$crossTabsWeightVar_rows_selected)
      crossTabsAllVars$crossTabsAvailVars <- rbind(isolate(crossTabsAllVars$crossTabsAvailVars),        crossTabsAllVars$crossTabsSelectedWeightVar[input$crossTabsWeightVar_rows_selected, , drop = FALSE])
      crossTabsAllVars$crossTabsAvailVars <- crossTabsAllVars$crossTabsAvailVars[complete.cases(crossTabsAllVars$crossTabsAvailVars[ , "Variables"]), , drop = FALSE]
      if(nrow(crossTabsAllVars$crossTabsSelectedWeightVar) > 0) {
        crossTabsAllVars$crossTabsSelectedWeightVar <- isolate(crossTabsAllVars$crossTabsSelectedWeightVar[-input$crossTabsWeightVar_rows_selected, , drop = FALSE])
      }
    })
    output$crossTabsAllAvailableVars <- renderDT({
      setkeyv(x = crossTabsAllVars$crossTabsAvailVars, cols = "order_col")
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Available variables"),
    rownames = FALSE,
    filter = "top",
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables available"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 726, scroller = TRUE
    ))
    output$crossTabsSplitVars <- renderDT({
      crossTabsAllVars$crossTabsSelectedSplitVars
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Split variables"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$crossTabsInclMiss <- renderUI({
      if(nrow(crossTabsAllVars$crossTabsSelectedSplitVars) == 0) {
        return(NULL)
      } else {
        checkboxInput(inputId = "crossTabsInclMiss", label = "Compute statistics for the missing values of the split variables", value = FALSE, width = "400px")
      }
    })
    output$crossTabsBckgRowVar <- renderDT({
      crossTabsAllVars$crossTabsSelectedBckgRowVar
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Background row variable"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    observe({
      if(!is.null(crossTabsAllVars$crossTabsSelectedBckgRowVar) && nrow(crossTabsAllVars$crossTabsSelectedBckgRowVar) > 1) {
        showNotification(ui = HTML("Only one row variable can be selected!"), type = "error")
        crossTabsAllVars$crossTabsAvailVars <- rbind(isolate(crossTabsAllVars$crossTabsAvailVars),        crossTabsAllVars$crossTabsSelectedBckgRowVar[nrow(crossTabsAllVars$crossTabsSelectedBckgRowVar), , drop = FALSE])
        crossTabsAllVars$crossTabsAvailVars <- crossTabsAllVars$crossTabsAvailVars[complete.cases(crossTabsAllVars$crossTabsAvailVars[ , "Variables"]), , drop = FALSE]
        crossTabsAllVars$crossTabsSelectedBckgRowVar <- isolate(crossTabsAllVars$crossTabsSelectedBckgRowVar[-2, , drop = FALSE])
      }
    })
    output$crossTabsBckgColVar <- renderDT({
      crossTabsAllVars$crossTabsSelectedBckgColVar
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Background column variable"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    observe({
      if(!is.null(crossTabsAllVars$crossTabsSelectedBckgColVar) && nrow(crossTabsAllVars$crossTabsSelectedBckgColVar) > 1) {
        showNotification(ui = HTML("Only one column variable can be selected!"), type = "error")
        crossTabsAllVars$crossTabsAvailVars <- rbind(isolate(crossTabsAllVars$crossTabsAvailVars),        crossTabsAllVars$crossTabsSelectedBckgColVar[nrow(crossTabsAllVars$crossTabsSelectedBckgColVar), , drop = FALSE])
        crossTabsAllVars$crossTabsAvailVars <- crossTabsAllVars$crossTabsAvailVars[complete.cases(crossTabsAllVars$crossTabsAvailVars[ , "Variables"]), , drop = FALSE]
        crossTabsAllVars$crossTabsSelectedBckgColVar <- isolate(crossTabsAllVars$crossTabsSelectedBckgColVar[-2, , drop = FALSE])
      }
    })
    output$crossTabsWeightVar <- renderDT({
      crossTabsAllVars$crossTabsSelectedWeightVar
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Weight variable"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = paste0("No weight selected, default (", file.crosstabs$default.weight, ") will be used")),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$crossTabsSplitArePVs <- renderText({
      if(any(crossTabsAllVars$crossTabsSelectedSplitVars[ , Variables] %in% file.crosstabs$PV.sets == TRUE)) {
        HTML('Warning: One or more of the selected variables in "Split variables" are sets of PVs. Please check the added variables.')
      } else {
        return(NULL)
      }
    })
    output$crossTabsBckgRowIsPVs <- renderText({
      if(!is.null(crossTabsAllVars$crossTabsSelectedBckgRowVar) && any(crossTabsAllVars$crossTabsSelectedBckgRowVar[ , Variables] %in% file.crosstabs$PV.sets == TRUE)) {
        HTML('Warning: The selected variable in "Background row variable" is sets of PVs. Please check the added variable.')
      } else {
        return(NULL)
      }
    })
    output$crossTabsBckgColIsPVs <- renderText({
      if(!is.null(crossTabsAllVars$crossTabsSelectedBckgColVar) && any(crossTabsAllVars$crossTabsSelectedBckgColVar[ , Variables] %in% file.crosstabs$PV.sets == TRUE)) {
        HTML('Warning: The selected variable in "Background column variable" is sets of PVs. Please check the added variable.')
      } else {
        return(NULL)
      }
    })
    output$crossTabsWgtsNotWgts <- renderText({
      if(any(crossTabsAllVars$crossTabsSelectedWeightVar[ , Variables] %in% all.studies.available.weights == FALSE)) {
        HTML('Warning: The variable in "Weight variable" is not a weight. Please check the added variable.')
      } else {
        return(NULL)
      }
    })
    observe({
      if(nrow(crossTabsAllVars$crossTabsSelectedWeightVar) > 1) {
        showNotification(ui = HTML("Only one weight variable can be selected!"), type = "error")
        crossTabsAllVars$crossTabsAvailVars <- rbind(isolate(crossTabsAllVars$crossTabsAvailVars),        crossTabsAllVars$crossTabsSelectedWeightVar[nrow(crossTabsAllVars$crossTabsSelectedWeightVar), , drop = FALSE])
        crossTabsAllVars$crossTabsAvailVars <- crossTabsAllVars$crossTabsAvailVars[complete.cases(crossTabsAllVars$crossTabsAvailVars[ , "Variables"]), , drop = FALSE]
        crossTabsAllVars$crossTabsSelectedWeightVar <- isolate(crossTabsAllVars$crossTabsSelectedWeightVar[-2, , drop = FALSE])
      }
    })
    observeEvent(eventExpr = input$crossTabsChooseSrcFile, {
      crossTabsAllVars$crossTabsSelectedPVVars <- NULL
      crossTabsAllVars$crossTabsSelectedBckgRowVar <- NULL
      crossTabsAllVars$crossTabsSelectedBckgColVar <- NULL
    }, ignoreInit = TRUE)
    output$crossTabsExpCnts <- renderUI({
      if(!is.null(file.crosstabs$loaded)) {
        checkboxInput(inputId = "crossTabsExpCnts", label = "Compute the expected counts", value = FALSE, width = "350px")
      }
    })
    output$crossTabsRowPcts <- renderUI({
      if(!is.null(file.crosstabs$loaded)) {
        checkboxInput(inputId = "crossTabsRowPcts", label = "Compute the row percentages", value = FALSE, width = "350px")
      }
    })
    output$crossTabsColPcts <- renderUI({
      if(!is.null(file.crosstabs$loaded)) {
        checkboxInput(inputId = "crossTabsColPcts", label = "Compute the column percentages", value = FALSE, width = "350px")
      }
    })
    output$crossTabsTotPcts <- renderUI({
      if(!is.null(file.crosstabs$loaded)) {
        checkboxInput(inputId = "crossTabsTotPcts", label = "Compute the total percentages", value = FALSE, width = "350px")
      }
    })
    output$crossTabsShortcut <- renderUI({
      if(!is.null(file.crosstabs$loaded) && file.crosstabs$study %in% c("PIRLS", "prePIRLS", "ePIRLS", "RLII", "TIMSS", "eTIMSS PSI", "preTIMSS", "TIMSS Advanced", "TiPi")) {
        checkboxInput(inputId = "crossTabsShortcut", label = "Use shortcut method for computing SE", value = FALSE, width = "350px")
      }
    })
    output$crossTabsGraphs <- renderUI({
      if(!is.null(file.crosstabs$loaded)) {
        checkboxInput(inputId = "crossTabsGraphs", label = "Produce graphs", value = FALSE, width = "350px")
      }
    })
    output$crossTabsGraphsPlotXlabelChk <- renderUI({
      if(!is.null(file.crosstabs$loaded) && isTRUE(input$crossTabsGraphs) && nrow(crossTabsAllVars$crossTabsSelectedBckgRowVar) > 0 && nrow(crossTabsAllVars$crossTabsSelectedBckgColVar) > 0) {
        checkboxInput(inputId = "crossTabsGraphsPlotXlabelChk", label = "Custom graphs row variable label", value = FALSE, width = "300px")
      }
    })
    output$crossTabsGraphsPlotXlabelTXT <- renderUI({
      if(!is.null(file.crosstabs$loaded) && isTRUE(input$crossTabsGraphs) && nrow(crossTabsAllVars$crossTabsSelectedBckgRowVar) > 0 && nrow(crossTabsAllVars$crossTabsSelectedBckgColVar) > 0 && isTRUE(input$crossTabsGraphsPlotXlabelChk)) {
        textInput(inputId = "crossTabsGraphsPlotXlabelTXT", label = NULL, placeholder = "Type your custom horizontal axis label for the plots", width = "100%")
      } else {NULL}
    })
    output$crossTabsGraphsPlotYlabelChk <- renderUI({
      if(!is.null(file.crosstabs$loaded) && nrow(crossTabsAllVars$crossTabsSelectedBckgRowVar) > 0  && nrow(crossTabsAllVars$crossTabsSelectedBckgColVar) > 0 && isTRUE(input$crossTabsGraphs)) {
        checkboxInput(inputId = "crossTabsGraphsPlotYlabelChk", label = "Custom graphs column variable label", value = FALSE, width = "300px")
      }
    })
    output$crossTabsGraphsPlotYlabelTXT <- renderUI({
      if(!is.null(file.crosstabs$loaded) && isTRUE(input$crossTabsGraphs) && nrow(crossTabsAllVars$crossTabsSelectedBckgRowVar) > 0 && nrow(crossTabsAllVars$crossTabsSelectedBckgColVar) > 0 && isTRUE(input$crossTabsGraphsPlotYlabelChk)) {
        textInput(inputId = "crossTabsGraphsPlotYlabelTXT", label = NULL, placeholder = "Type your custom vertical axis label for the plots", width = "100%")
      }
    })
    shinyFileSave(input, "crossTabsChooseOutFile", filetype = list(xlsx = "xlsx"), roots = available.volumes, updateFreq = 100000)
    output$crossTabsOpenOutput <- renderUI({
      if(length(parseSavePath(available.volumes, input$crossTabsChooseOutFile)$datapath) > 0 && length(parseFilePaths(available.volumes, input$crossTabsChooseSrcFile)$datapath) > 0) {
        checkboxInput(inputId = "crossTabsOpenOutput", label = "Open the output when done", value = TRUE, width = "250px")
      }
    })
    syntaxCrossTabs <- reactive({
      file.crosstabs$crosstabs.syntax <- paste0(
        'lsa.crosstabs(data.file = "', parseFilePaths(available.volumes, input$crossTabsChooseSrcFile)$datapath, '", ',
        if(length(crossTabsAllVars$crossTabsSelectedSplitVars[ , Variables]) == 1) {
          paste0('split.vars = "', crossTabsAllVars$crossTabsSelectedSplitVars[ , Variables], '"')
        } else if(length(crossTabsAllVars$crossTabsSelectedSplitVars[ , Variables]) > 1) {
          paste0('split.vars = c("', paste(crossTabsAllVars$crossTabsSelectedSplitVars[ , Variables], collapse = '", "'), '")')
        },
        if(!is.null(crossTabsAllVars$crossTabsSelectedBckgRowVar) && nrow(crossTabsAllVars$crossTabsSelectedBckgRowVar) == 1) {
          paste0(', bckg.row.var = "', crossTabsAllVars$crossTabsSelectedBckgRowVar[ , Variables], '"')
        },
        if(!is.null(crossTabsAllVars$crossTabsSelectedBckgColVar) && nrow(crossTabsAllVars$crossTabsSelectedBckgColVar) == 1) {
          paste0(', bckg.col.var = "', crossTabsAllVars$crossTabsSelectedBckgColVar[ , Variables], '"')
        },
        if(!is.null(crossTabsAllVars$crossTabsSelectedWeightVar) && nrow(crossTabsAllVars$crossTabsSelectedWeightVar) == 1 && !is.null(file.crosstabs$default.weight) && crossTabsAllVars$crossTabsSelectedWeightVar[ , Variables] == file.crosstabs$default.weight) {
          NULL
        } else if(!is.null(crossTabsAllVars$crossTabsSelectedWeightVar) && nrow(crossTabsAllVars$crossTabsSelectedWeightVar) == 1 && crossTabsAllVars$crossTabsSelectedWeightVar[ , Variables] %in% all.studies.available.weights && !is.null(file.crosstabs$default.weight) && crossTabsAllVars$crossTabsSelectedWeightVar[ , Variables] != file.crosstabs$default.weight) {
          paste0(', weight.var = "', crossTabsAllVars$crossTabsSelectedWeightVar[ , Variables], '"')
        } else if(!is.null(crossTabsAllVars$crossTabsSelectedWeightVar) && nrow(crossTabsAllVars$crossTabsSelectedWeightVar) == 0) {
          NULL
        },
        if(!is.null(input$crossTabsInclMiss) && input$crossTabsInclMiss == TRUE) {
          ", include.missing = TRUE"
        },
        if(!is.null(input$crossTabsExpCnts) && input$crossTabsExpCnts == TRUE) {
          ", expected.cnts = TRUE"
        },
        if(!is.null(input$crossTabsRowPcts) && input$crossTabsRowPcts == TRUE) {
          ", row.pcts = TRUE"
        },
        if(!is.null(input$crossTabsColPcts) && input$crossTabsColPcts == TRUE) {
          ", column.pcts = TRUE"
        },
        if(!is.null(input$crossTabsTotPcts) && input$crossTabsTotPcts == TRUE) {
          ", total.pcts = TRUE"
        },
        if(!is.null(input$crossTabsGraphs) && input$crossTabsGraphs == TRUE) {
          ", graphs = TRUE"
        },
        if(!is.null(input$crossTabsGraphs) && input$crossTabsGraphs == TRUE && !is.null(input$crossTabsGraphsPlotXlabelChk) && input$crossTabsGraphsPlotXlabelChk == TRUE && !is.null(input$crossTabsGraphsPlotXlabelTXT) && input$crossTabsGraphsPlotXlabelTXT != "") {
          paste0(', graph.row.label = "', input$crossTabsGraphsPlotXlabelTXT, '"')
        },
        if(!is.null(input$crossTabsGraphs) && input$crossTabsGraphs == TRUE && !is.null(input$crossTabsGraphsPlotYlabelChk) && input$crossTabsGraphsPlotYlabelChk == TRUE && !is.null(input$crossTabsGraphsPlotYlabelTXT) && input$crossTabsGraphsPlotYlabelTXT != "") {
          paste0(', graph.col.label = "', input$crossTabsGraphsPlotYlabelTXT, '"')
        },
        if(!is.null(input$crossTabsShortcut) && input$crossTabsShortcut == TRUE) {
          ", shortcut = TRUE"
        },
        paste0(', output.file = "', parseSavePath(available.volumes, input$crossTabsChooseOutFile)$datapath, '"'),
        if(!is.null(input$crossTabsOpenOutput) && input$crossTabsOpenOutput == FALSE) {
          ', open.output = FALSE'
        } else if(!is.null(input$crossTabsOpenOutput) && input$crossTabsOpenOutput == TRUE) {
          NULL
        },
        ')'
      )
    })
    output$crossTabsSyntaxHead <- renderText({
      if(length(parseSavePath(available.volumes, input$crossTabsChooseOutFile)$datapath) == 1 && length(parseFilePaths(available.volumes, input$crossTabsChooseSrcFile)$datapath) > 0) {
        HTML("Syntax")
      } else {
        return(NULL)
      }
    })
    observe.syntax.save.button <- eval(parse(text = string.observe.syntax.save.button))
    observe.syntax.save.button(input = input, session = session, syntax.ID = "saveCrosstabsSyntax", syntax.object = "syntaxCrossTabs()", volumes = available.volumes)
    output$copyCrosstabsSyntax <- renderUI({
      rclipButton(inputId = "copyCrosstabstSyntax", label = "Copy syntax", clipText = syntaxCrossTabs(), icon = icon("copy"), style = "color: #ffffff; background-color: #000000; border-radius: 5px; font-size: 80%; margin-bottom: 1px; padding: 1px; width: 85px; margin-top: 1px")
    })
    output$crossTabsSyntax <- renderText({
      if(length(parseSavePath(available.volumes, input$crossTabsChooseOutFile)$datapath) == 1 && nrow(rbindlist(l = list(crossTabsAllVars$crossTabsSelectedBckgRowVar, crossTabsAllVars$crossTabsSelectedBckgColVar))) >= 1) {
        syntaxCrossTabs()
      } else {
        return(NULL)
      }
    })
    output$crossTabsExecBtnHead <- renderText({
      if(length(parseSavePath(available.volumes, input$crossTabsChooseOutFile)$datapath) == 1 && length(parseFilePaths(available.volumes, input$crossTabsChooseSrcFile)$datapath) > 0) {
        HTML("Press the button below to execute the syntax")
      } else {
        return(NULL)
      }
    })
    output$execCrossTabs <- renderUI({
      if(length(parseSavePath(available.volumes, input$crossTabsChooseOutFile)$datapath) == 1 && length(parseFilePaths(available.volumes, input$crossTabsChooseSrcFile)$datapath) > 0) {
        actionButton(inputId = "execCrossTabs", label = "Execute syntax", icon = icon("cogs"), style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      } else {
        return(NULL)
      }
    })
    observe({
      if(is.null(crossTabsAllVars$crossTabsSelectedPVVars) || is.null(file.crosstabs$loaded) || any(crossTabsAllVars$crossTabsSelectedSplitVars[ , Variables] %in% file.crosstabs$PV.sets == TRUE) || nrow(crossTabsAllVars$crossTabsSelectedBckgRowVar) == 0 || nrow(crossTabsAllVars$crossTabsSelectedBckgColVar) == 0 || any(crossTabsAllVars$crossTabsSelectedBckgRowVar[ , Variables] %in% file.crosstabs$PV.sets == TRUE) || any(crossTabsAllVars$crossTabsSelectedBckgColVar[ , Variables] %in% file.crosstabs$PV.sets == TRUE) || any(crossTabsAllVars$crossTabsSelectedWeightVar[ , Variables] %in% all.studies.available.weights == FALSE) || is.null(file.crosstabs$default.weight) || length(file.crosstabs$default.weight) == 0) {
        hide("crossTabsExpCnts")
        hide("crossTabsRowPcts")
        hide("crossTabsColPcts")
        hide("crossTabsTotPcts")
        hide("crossTabsShortcut")
        hide("crossTabsGraphs")
        hide("crossTabsChooseOutFile")
        hide("crossTabsOpenOutput")
        hide("crossTabsSyntaxHead")
        hide("crossTabsSyntax")
        hide("crossTabsExecBtnHead")
        hide("execCrossTabs")
        hide("consoleCrossTabs")
      } else if (!is.null(file.crosstabs$loaded) || any(crossTabsAllVars$crossTabsSelectedPVVars[ , Variables] %in% file.crosstabs$PV.sets == TRUE) || any(crossTabsAllVars$crossTabsSelectedSplitVars[ , Variables] %in% file.crosstabs$PV.sets == FALSE) || any(crossTabsAllVars$crossTabsSelectedBckgRowVar[ , Variables] %in% file.crosstabs$PV.sets == FALSE) || any(crossTabsAllVars$crossTabsSelectedBckgColVar[ , Variables] %in% file.crosstabs$PV.sets == FALSE) || any(crossTabsAllVars$crossTabsSelectedWeightVar[ , Variables] %in% all.studies.available.weights == TRUE) || !is.null(file.crosstabs$default.weight) || length(file.crosstabs$default.weight) != 0) {
        show("crossTabsExpCnts")
        show("crossTabsRowPcts")
        show("crossTabsColPcts")
        show("crossTabsTotPcts")
        show("crossTabsShortcut")
        show("crossTabsGraphs")
        show("crossTabsChooseOutFile")
        show("crossTabsOpenOutput")
        show("crossTabsSyntaxHead")
        show("crossTabsSyntax")
        show("crossTabsExecBtnHead")
        show("execCrossTabs")
        show("consoleCrossTabs")
      }
      if(is.null(file.crosstabs$default.weight) || length(file.crosstabs$default.weight) == 0) {
        hide("crossTabsVariablesExplText")
        hide("crossTabsAllAvailableVars")
        hide("crossTabsArrowSelSplitVarRight")
        hide("crossTabsArrowSelSplitVarLeft")
        hide("crossTabsSplitVars")
        hide("crossTabsInclMiss")
        hide("crossTabsArrowSelBckgVarRight")
        hide("crossTabsArrowSelBckgVarLeft")
        hide("crossTabsBckgVars")
        hide("crossTabsArrowSelWeightVarRight")
        hide("crossTabsArrowSelWeightVarLeft")
        hide("crossTabsWeightVar")
      } else if(!is.null(file.crosstabs$default.weight) || length(file.crosstabs$default.weight) != 0) {
        show("crossTabsVariablesExplText")
        show("crossTabsAllAvailableVars")
        show("crossTabsArrowSelSplitVarRight")
        show("crossTabsArrowSelSplitVarLeft")
        show("crossTabsSplitVars")
        show("crossTabsInclMiss")
        show("crossTabsArrowSelBckgVarRight")
        show("crossTabsArrowSelBckgVarLeft")
        show("crossTabsBckgVars")
        show("crossTabsArrowSelWeightVarsRight")
        show("crossTabsArrowSelWeightVarLeft")
        show("crossTabsWeightVar")
      }
      if(
        is.null(crossTabsAllVars$crossTabsSelectedBckgRowVar) || nrow(crossTabsAllVars$crossTabsSelectedBckgRowVar) == 0 ||
        is.null(crossTabsAllVars$crossTabsSelectedBckgColVar) || nrow(crossTabsAllVars$crossTabsSelectedBckgColVar) == 0 ||
        length(parseSavePath(available.volumes, input$crossTabsChooseOutFile)$datapath) == 0
      ) {
        hide("saveCrosstabsSyntax")
        hide("copyCrosstabsSyntax")
      } else if(
        !is.null(crossTabsAllVars$crossTabsSelectedBckgRowVar) || nrow(crossTabsAllVars$crossTabsSelectedBckgRowVar) > 0 ||
        !is.null(crossTabsAllVars$crossTabsSelectedBckgColVar) || nrow(crossTabsAllVars$crossTabsSelectedBckgColVar) > 0 ||
        length(parseSavePath(available.volumes, input$crossTabsChooseOutFile)$datapath) != 0
      )
      {
        show("saveCrosstabsSyntax")
        show("copyCrosstabsSyntax")
      }
      if(
        !is.null(crossTabsAllVars$crossTabsSelectedBckgRowVar) && nrow(crossTabsAllVars$crossTabsSelectedBckgRowVar) == 0 ||
        !is.null(crossTabsAllVars$crossTabsSelectedBckgColVar) && nrow(crossTabsAllVars$crossTabsSelectedBckgColVar) == 0 ||
        !is.null(file.crosstabs$loaded) && isTRUE(input$crossTabsGraphs) && !is.null(input$crossTabsGraphsPlotXlabelChk) && isTRUE(input$crossTabsGraphsPlotXlabelChk) && !is.null(input$crossTabsGraphsPlotXlabelTXT) && input$crossTabsGraphsPlotXlabelTXT == "" ||
        !is.null(file.crosstabs$loaded) && isTRUE(input$crossTabsGraphs) && !is.null(input$crossTabsGraphsPlotYlabelChk) && isTRUE(input$crossTabsGraphsPlotYlabelChk) && !is.null(input$crossTabsGraphsPlotYlabelTXT) && input$crossTabsGraphsPlotYlabelTXT == "" ||
        !is.null(file.crosstabs$loaded) && isTRUE(input$crossTabsGraphs) && !is.null(input$crossTabsGraphsMeanXlabelsChk) && isTRUE(input$crossTabsGraphsMeanXlabelsChk) && !is.null(input$crossTabsGraphsMeanXlabelsTXT) && input$crossTabsGraphsMeanXlabelsTXT == "" ||
        !is.null(file.crosstabs$loaded) && isTRUE(input$crossTabsGraphs) && !is.null(input$crossTabsGraphsMeanYlabelsChk) && isTRUE(input$crossTabsGraphsMeanYlabelsChk) && !is.null(input$crossTabsGraphsMeanYlabelsTXT) && input$crossTabsGraphsMeanYlabelsTXT == "" ||
        length(parseSavePath(available.volumes, input$crossTabsChooseOutFile)$datapath) == 0) {
        hide("crossTabsOpenOutput")
        hide("saveCrosstabsSyntax")
        hide("copyCrosstabsSyntax")
        hide("crossTabsSyntaxHead")
        hide("crossTabsSyntax")
        hide("crossTabsExecBtnHead")
        hide("execCrossTabs")
        hide("consoleCrossTabs")
      } else if(!is.null(file.crosstabs$loaded) && nrow(crossTabsAllVars$crossTabsSelectedBckgRowVar) > 0 && nrow(crossTabsAllVars$crossTabsSelectedBckgColVar) > 0 ||
                !is.null(file.crosstabs$loaded) && isTRUE(input$crossTabsGraphs) && !is.null(input$crossTabsGraphsPlotXlabelChk) && isTRUE(input$crossTabsGraphsPlotXlabelChk) && !is.null(input$crossTabsGraphsPlotXlabelTXT) && input$crossTabsGraphsPlotXlabelTXT != "" ||
                !is.null(file.crosstabs$loaded) && isTRUE(input$crossTabsGraphs) && !is.null(input$crossTabsGraphsPlotYlabelChk) && isTRUE(input$crossTabsGraphsPlotYlabelChk) && !is.null(input$crossTabsGraphsPlotYlabelTXT) && input$crossTabsGraphsPlotYlabelTXT != "" ||
                !is.null(file.crosstabs$loaded) && isTRUE(input$crossTabsGraphs) && !is.null(input$crossTabsGraphsMeanXlabelsChk) && isTRUE(input$crossTabsGraphsMeanXlabelsChk) && !is.null(input$crossTabsGraphsMeanXlabelsTXT) && input$crossTabsGraphsMeanXlabelsTXT != "" ||
                !is.null(file.crosstabs$loaded) && isTRUE(input$crossTabsGraphs) && !is.null(input$crossTabsGraphsMeanYlabelsChk) && isTRUE(input$crossTabsGraphsMeanYlabelsChk) && !is.null(input$crossTabsGraphsMeanYlabelsTXT) && input$crossTabsGraphsMeanYlabelsTXT != "" ||
                length(parseSavePath(available.volumes, input$crossTabsChooseOutFile)$datapath) > 0) {
        show("crossTabsOpenOutput")
        show("saveCrosstabsSyntax")
        show("copyCrosstabsSyntax")
        show("crossTabsSyntaxHead")
        show("crossTabsSyntax")
        show("crossTabsExecBtnHead")
        show("execCrossTabs")
        show("consoleCrossTabs")
      }
      if(
        !is.null(file.crosstabs$loaded) && isTRUE(input$crossTabsGraphs) && !is.null(input$crossTabsGraphsPlotXlabelChk) && isTRUE(input$crossTabsGraphsPlotXlabelChk) && !is.null(input$crossTabsGraphsPlotXlabelTXT) && input$crossTabsGraphsPlotXlabelTXT == "" ||
        !is.null(file.crosstabs$loaded) && isTRUE(input$crossTabsGraphs) && !is.null(input$crossTabsGraphsPlotYlabelChk) && isTRUE(input$crossTabsGraphsPlotYlabelChk) && !is.null(input$crossTabsGraphsPlotYlabelTXT) && input$crossTabsGraphsPlotYlabelTXT == "" ||
        !is.null(file.crosstabs$loaded) && isTRUE(input$crossTabsGraphs) && !is.null(input$crossTabsGraphsMeanXlabelsChk) && isTRUE(input$crossTabsGraphsMeanXlabelsChk) && !is.null(input$crossTabsGraphsMeanXlabelsTXT) && input$crossTabsGraphsMeanXlabelsTXT == "" ||
        !is.null(file.crosstabs$loaded) && isTRUE(input$crossTabsGraphs) && !is.null(input$crossTabsGraphsMeanYlabelsChk) && isTRUE(input$crossTabsGraphsMeanYlabelsChk) && !is.null(input$crossTabsGraphsMeanYlabelsTXT) && input$crossTabsGraphsMeanYlabelsTXT == ""
      ) {
        hide("crossTabsChooseOutFile")
      } else if(
        !is.null(file.crosstabs$loaded) && isTRUE(input$crossTabsGraphs) && !is.null(input$crossTabsGraphsPlotXlabelChk) && isTRUE(input$crossTabsGraphsPlotXlabelChk) && !is.null(input$crossTabsGraphsPlotXlabelTXT) && input$crossTabsGraphsPlotXlabelTXT != "" ||
        !is.null(file.crosstabs$loaded) && isTRUE(input$crossTabsGraphs) && !is.null(input$crossTabsGraphsPlotYlabelChk) && isTRUE(input$crossTabsGraphsPlotYlabelChk) && !is.null(input$crossTabsGraphsPlotYlabelTXT) && input$crossTabsGraphsPlotYlabelTXT != "" ||
        !is.null(file.crosstabs$loaded) && isTRUE(input$crossTabsGraphs) && !is.null(input$crossTabsGraphsMeanXlabelsChk) && isTRUE(input$crossTabsGraphsMeanXlabelsChk) && !is.null(input$crossTabsGraphsMeanXlabelsTXT) && input$crossTabsGraphsMeanXlabelsTXT != "" ||
        !is.null(file.crosstabs$loaded) && isTRUE(input$crossTabsGraphs) && !is.null(input$crossTabsGraphsMeanYlabelsChk) && isTRUE(input$crossTabsGraphsMeanYlabelsChk) && !is.null(input$crossTabsGraphsMeanYlabelsTXT) && input$crossTabsGraphsMeanYlabelsTXT != ""
      ) {
        show("crossTabsChooseOutFile")
      }
    })
  }
})
observeEvent(input$execCrossTabs, {
  showNotification(ui = HTML("<br/>   Execution started.   <br/><br/>"), type = "message")
  withCallingHandlers({html("consoleCrossTabs", "")
    tryCatch({
      expr = eval(parse(text = file.crosstabs$crosstabs.syntax))
      showNotification(ui = HTML("<br/>   All operations complete!   <br/><br/>"), type = "message", duration = NULL)
    }, error = function(e) {
      message("", e)
      showNotification(ui = HTML(paste0("Something went wrong. Possible reasons: <br/>", paste(gsub(pattern = "\\n|Error: ", replacement = "<br/>", x = e)))), type = "error", duration = NULL)
    })
  },
  message = function(i) {
    shinyjs::html(id = "consoleCrossTabs", html = i$message, add = TRUE)
  },
  warning = function(w) {
    shinyjs::html(id = "consoleCrossTabs", html = paste0("Warning: ", w$message, "\n"), add = TRUE)
  })
  session$sendCustomMessage(type = "scrollCallback", 1)
}, ignoreInit = TRUE)
output$h1Corr <- renderText("Correlations")
hide("corrChooseOutFile")
hide("saveCorrSyntax")
hide("copyCorrSyntax")
output$corrIntro <- renderText({HTML("Select large-scale assessment .RData file to load.")})
file.corr <- reactiveValues(loaded = NULL, is.lsa.data = NULL, resp.type = NULL, study = NULL, cycle = NULL, country.ID = NULL, PV.sets = NULL, default.weight = NULL, corr.syntax = NULL)
shinyFileChoose(input, "corrChooseSrcFile", roots = available.volumes, filetype = list(RData = "RData"))
observeEvent(eventExpr = input$corrChooseSrcFile, {
  file.corr$loaded <- NULL
  file.corr$study <- NULL
  file.corr$cycle <- NULL
  file.corr$resp.type <- NULL
  file.corr$PV.sets <- NULL
  file.corr$default.weight <- NULL
  if(length(parseFilePaths(available.volumes, input$corrChooseSrcFile)$datapath) > 0 && file.size(parseFilePaths(available.volumes, input$corrChooseSrcFile)$datapath) > 104857600) {
    showNotification(ui = HTML('The size of the selected<br/>file is rather large. Please<br/>wait until the file is loaded.'), type = "message")
  }
  if(length(parseFilePaths(available.volumes, input$corrChooseSrcFile)$datapath) > 0) {
    file.corr$loaded <- get(load(parseFilePaths(available.volumes, input$corrChooseSrcFile)$datapath))
    if("lsa.data" %in% class(file.corr$loaded)) {
      file.corr$is.lsa.data <- TRUE
    } else {
      file.corr$is.lsa.data <- FALSE
    }
    file.corr$study <- attr(x = file.corr$loaded, which = "study")
    file.corr$cycle <- attr(x = file.corr$loaded, which = "cycle")
    file.corr$resp.type <- attr(x = file.corr$loaded, which = "file.type")
    file.corr$loaded <- data.table(Variables = names(file.corr$loaded), Variable_Labels = sapply(X = file.corr$loaded, FUN = function(j) {
      if(is.null(attr(x = j, which = "variable.label"))) {
        return(NA_character_)
      } else {
        attr(x = j, which = "variable.label")
      }
    }),
    order_col = 1:ncol(file.corr$loaded))
    file.corr$PV.sets <- NULL
    tmp.PV.names <- grep(pattern = paste(all.available.PVs, collapse = "|"), x = file.corr$loaded[ , Variables], value = TRUE)
    if(length(tmp.PV.names) > 0) {
      collapsed.PVs <- collapse.loaded.file.PV.names(PV.vector = tmp.PV.names, vars.object = file.corr$loaded)
      file.corr$loaded <- file.corr$loaded[!Variables %in% tmp.PV.names]
      file.corr$loaded <- rbindlist(l = list(file.corr$loaded, collapsed.PVs))
      setkeyv(x = file.corr$loaded, cols = "order_col")
      file.corr$PV.sets <- collapsed.PVs[ , Variables]
    }
    if(!is.null(file.corr$study)) {
      file.corr$default.weight <- define.default.weight(study = file.corr$study, loaded.names.and.labels = file.corr$loaded, respondent.type = file.corr$resp.type)
    }
    file.corr$country.ID <- NULL
    if("IDCNTRY" %in% file.corr$loaded[ , Variables]) {
      file.corr$country.ID <- "IDCNTRY"
    } else {
      file.corr$country.ID <- "CNT"
    }
  }
  output$corrSrcPathDisplay <- renderText({parseFilePaths(available.volumes, input$corrChooseSrcFile)$datapath})
}, ignoreInit = TRUE)
observe({
  if(!is.null(file.corr$loaded) && file.corr$is.lsa.data == FALSE) {
    showNotification(ui = HTML('The data is not of class "lsa.data".<br/>Please check the file content.'), type = "error")
  } else if (!is.null(file.corr$loaded) && file.corr$is.lsa.data == TRUE) {
    output$corrStudyName <- renderText({
      if(is.null(file.corr$resp.type)) {
        return(NULL)
      } else {
        HTML(paste0('Study: ', file.corr$study))
      }
    })
    output$corrStudyCycle <- renderText({
      if(is.null(file.corr$resp.type)) {
        return(NULL)
      } else {
        HTML(paste0('Cycle: ', file.corr$cycle))
      }
    })
    output$corrRespHead <- renderText({
      if(is.null(file.corr$resp.type)) {
        return(NULL)
      } else {
        HTML('<u>The file contains data from the following respondents:</u>')
      }
    })
    output$corrRespAvailable <- renderText({
      if(is.null(file.corr$resp.type)) {
        return(NULL)
      } else {
        HTML(file.merged.respondents[[file.corr$resp.type]])
      }
    })
    output$corrNoWeights <- renderText({
      if(!is.null(file.corr$loaded) && is.null(file.corr$default.weight) || !is.null(file.corr$loaded) && length(file.corr$default.weight) == 0) {
        HTML('Error: The loaded file does not contain any recognizable default weight variable. Such files cannot be analyzed on their own and must be merged with other respondents in advance.')
      } else {
        return(NULL)
      }
    })
    output$corrType <- renderUI({
      if(is.null(file.corr$resp.type)) {
        return(NULL)
      } else {
        radioButtons(inputId = "corrType", label = "Select correlation type", choices = c("Pearson", "Spearman"), width = "200px", selected = "Pearson")
      }
    })
    output$corrTypeExpl <- renderText({
      if(is.null(file.corr$PV.sets) && is.null(file.corr$resp.type)) {
        return(NULL)
      } else if(!is.null(file.corr$PV.sets) && !is.null(file.corr$resp.type) && !is.null(input$corrType) && input$corrType == "Pearson") {
        HTML('<br/><br/>Computes a Pearson product-moment linear correlation coefficient between two continuous variables.')
      } else if(!is.null(file.corr$PV.sets) && !is.null(file.corr$resp.type) && !is.null(input$corrType) && input$corrType == "Spearman") {
        HTML('<br/><br/>Computes a Spearman rank-order monotonic correlation between continuous or ordinal variables.')
      }
    })
    output$corrVariablesExplText <- renderText({
      if(is.null(file.corr$resp.type)) {
        return(NULL)
      } else {
        HTML('Use the panels below to select the variables to compute correlations within groups specified by splitting variables.')
      }
    })
    corr.initial.available.vars <- file.corr$loaded[!Variables %in% c(file.corr$default.weight, file.corr$country.ID), ]
    corr.initial.selected.split.vars <- file.corr$loaded[Variables == file.corr$country.ID, ]
    corr.initial.selected.bckg.vars <- data.table(Variables = as.character(), Variable_Labels = as.character(), order_col = as.numeric())
    corr.initial.selected.PV.vars <- data.table(Variables = as.character(), Variable_Labels = as.character(), order_col = as.numeric())
    corr.initial.selected.weight.var <- file.corr$loaded[Variables %in% file.corr$default.weight, ]
    corrAllVars <- reactiveValues(corrAvailVars = corr.initial.available.vars, corrSelectedSplitVars = corr.initial.selected.split.vars, corrSelectedBckgVars = corr.initial.selected.bckg.vars, corrSelectedPVVars = corr.initial.selected.PV.vars, corrSelectedWeightVar = corr.initial.selected.weight.var)
    output$corrArrowSelSplitVarsRight <- renderUI({
      if(is.null(file.corr$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "corrArrowSelSplitVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$corrArrowSelSplitVarsLeft <- renderUI({
      if(is.null(file.corr$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "corrArrowSelSplitVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$corrArrowSelBckgVarsRight <- renderUI({
      if(is.null(file.corr$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "corrArrowSelBckgVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$corrArrowSelBckgVarsLeft <- renderUI({
      if(is.null(file.corr$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "corrArrowSelBckgVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$corrArrowSelPVsRight <- renderUI({
      if(is.null(file.corr$resp.type) || is.null(file.corr$PV.sets)) {
        return(NULL)
      } else {
        actionButton(inputId = "corrArrowSelPVsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$corrArrowSelPVsLeft <- renderUI({
      if(is.null(file.corr$resp.type) || is.null(file.corr$PV.sets)) {
        return(NULL)
      } else {
        actionButton(inputId = "corrArrowSelPVsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$corrArrowSelPVsRightDisbld <- renderUI({
      if(is.null(file.corr$resp.type) || is.null(file.corr$PV.sets)) {
        actionButton(inputId = "corrArrowSelPVsRightDisbld", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #c6c6c6; border-radius: 10px")
      } else {
        return(NULL)
      }
    })
    output$corrArrowSelPVsLeftDisbld <- renderUI({
      if(is.null(file.corr$resp.type) || is.null(file.corr$PV.sets)) {
        actionButton(inputId = "corrArrowSelPVsLeftDisbld", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #c6c6c6; border-radius: 10px")
      } else {
        return(NULL)
      }
    })
    output$corrArrowSelWeightVarsRight <- renderUI({
      if(is.null(file.corr$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "corrArrowSelWeightVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$corrArrowSelWeightVarsLeft <- renderUI({
      if(is.null(file.corr$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "corrArrowSelWeightVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    observeEvent(input$corrArrowSelSplitVarsRight, {
      req(input$corrAllAvailableVars_rows_selected)
      corrAllVars$corrSelectedSplitVars <- rbind(isolate(corrAllVars$corrSelectedSplitVars), corrAllVars$corrAvailVars[input$corrAllAvailableVars_rows_selected, , drop = FALSE])
      corrAllVars$corrSelectedSplitVars <- corrAllVars$corrSelectedSplitVars[complete.cases(corrAllVars$corrSelectedSplitVars[ , "Variables"]), , drop = FALSE]
      corrAllVars$corrAvailVars <- isolate(corrAllVars$corrAvailVars[-input$corrAllAvailableVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$corrArrowSelSplitVarsLeft, {
      req(input$corrSplitVars_rows_selected)
      corrAllVars$corrAvailVars <- rbind(isolate(corrAllVars$corrAvailVars),        corrAllVars$corrSelectedSplitVars[input$corrSplitVars_rows_selected, , drop = FALSE])
      corrAllVars$corrAvailVars <- corrAllVars$corrAvailVars[complete.cases(corrAllVars$corrAvailVars[ , "Variables"]), , drop = FALSE]
      if(nrow(corrAllVars$corrSelectedSplitVars) > 0) {
        corrAllVars$corrSelectedSplitVars <- isolate(corrAllVars$corrSelectedSplitVars[-input$corrSplitVars_rows_selected, , drop = FALSE])
      }
      if(!file.corr$country.ID %in% corrAllVars$corrSelectedSplitVars[ , Variables]) {
        showNotification(ui = HTML("Country ID <b>must always be</b> the first splitting variable!"), type = "error")
      }
      corrAllVars$corrSelectedSplitVars <- rbindlist(l = list(corrAllVars$corrSelectedSplitVars, corrAllVars$corrAvailVars[Variables == file.corr$country.ID, ]))
      corrAllVars$corrAvailVars <- corrAllVars$corrAvailVars[Variables != file.corr$country.ID, ]
    })
    observeEvent(input$corrArrowSelBckgVarsRight, {
      req(input$corrAllAvailableVars_rows_selected)
      corrAllVars$corrSelectedBckgVars <- rbind(isolate(corrAllVars$corrSelectedBckgVars), corrAllVars$corrAvailVars[input$corrAllAvailableVars_rows_selected, , drop = FALSE])
      corrAllVars$corrSelectedBckgVars <- corrAllVars$corrSelectedBckgVars[complete.cases(corrAllVars$corrSelectedBckgVars[ , "Variables"]), , drop = FALSE]
      corrAllVars$corrAvailVars <- isolate(corrAllVars$corrAvailVars[-input$corrAllAvailableVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$corrArrowSelBckgVarsLeft, {
      req(input$corrBckgVars_rows_selected)
      corrAllVars$corrAvailVars <- rbind(isolate(corrAllVars$corrAvailVars),        corrAllVars$corrSelectedBckgVars[input$corrBckgVars_rows_selected, , drop = FALSE])
      corrAllVars$corrAvailVars <- corrAllVars$corrAvailVars[complete.cases(corrAllVars$corrAvailVars[ , "Variables"]), , drop = FALSE]
      corrAllVars$corrSelectedBckgVars <- isolate(corrAllVars$corrSelectedBckgVars[-input$corrBckgVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$corrArrowSelPVsRight, {
      req(input$corrAllAvailableVars_rows_selected)
      corrAllVars$corrSelectedPVVars <- rbind(isolate(corrAllVars$corrSelectedPVVars), corrAllVars$corrAvailVars[input$corrAllAvailableVars_rows_selected, , drop = FALSE])
      corrAllVars$corrSelectedPVVars <- corrAllVars$corrSelectedPVVars[complete.cases(corrAllVars$corrSelectedPVVars[ , "Variables"]), , drop = FALSE]
      corrAllVars$corrAvailVars <- isolate(corrAllVars$corrAvailVars[-input$corrAllAvailableVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$corrArrowSelPVsLeft, {
      req(input$corrPVVars_rows_selected)
      corrAllVars$corrAvailVars <- rbind(isolate(corrAllVars$corrAvailVars),        corrAllVars$corrSelectedPVVars[input$corrPVVars_rows_selected, , drop = FALSE])
      corrAllVars$corrAvailVars <- corrAllVars$corrAvailVars[complete.cases(corrAllVars$corrAvailVars[ , "Variables"]), , drop = FALSE]
      corrAllVars$corrSelectedPVVars <- isolate(corrAllVars$corrSelectedPVVars[-input$corrPVVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$corrArrowSelWeightVarsRight, {
      req(input$corrAllAvailableVars_rows_selected)
      corrAllVars$corrSelectedWeightVar <- rbind(isolate(corrAllVars$corrSelectedWeightVar), corrAllVars$corrAvailVars[input$corrAllAvailableVars_rows_selected, , drop = FALSE])
      corrAllVars$corrSelectedWeightVar <- corrAllVars$corrSelectedWeightVar[complete.cases(corrAllVars$corrSelectedWeightVar[ , "Variables"]), , drop = FALSE]
      corrAllVars$corrAvailVars <- isolate(corrAllVars$corrAvailVars[-input$corrAllAvailableVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$corrArrowSelWeightVarsLeft, {
      req(input$corrWeightVar_rows_selected)
      corrAllVars$corrAvailVars <- rbind(isolate(corrAllVars$corrAvailVars),        corrAllVars$corrSelectedWeightVar[input$corrWeightVar_rows_selected, , drop = FALSE])
      corrAllVars$corrAvailVars <- corrAllVars$corrAvailVars[complete.cases(corrAllVars$corrAvailVars[ , "Variables"]), , drop = FALSE]
      if(nrow(corrAllVars$corrSelectedWeightVar) > 0) {
        corrAllVars$corrSelectedWeightVar <- isolate(corrAllVars$corrSelectedWeightVar[-input$corrWeightVar_rows_selected, , drop = FALSE])
      }
    })
    output$corrAllAvailableVars <- renderDT({
      setkeyv(x = corrAllVars$corrAvailVars, cols = "order_col")
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Available variables"),
    rownames = FALSE,
    filter = "top",
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables available"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 766, scroller = TRUE
    ))
    output$corrSplitVars <- renderDT({
      corrAllVars$corrSelectedSplitVars
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Split variables"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$corrInclMiss <- renderUI({
      if(nrow(corrAllVars$corrSelectedSplitVars) == 0) {
        return(NULL)
      } else {
        checkboxInput(inputId = "corrInclMiss", label = "Compute statistics for the missing values of the split variables", value = FALSE, width = "400px")
      }
    })
    output$corrBckgVars <- renderDT({
      corrAllVars$corrSelectedBckgVars
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Background variables"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$corrPVVars <- renderDT({
      if(is.null(file.corr$PV.sets)) {
        return(NULL)
      } else {
        corrAllVars$corrSelectedPVVars
      }
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Plausible values"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$corrPVVarsDisbld <- renderDT({
      if(is.null(file.corr$PV.sets)) {
        data.table(V1 = as.character(), V2 = as.character())
      } else {
        return(NULL)
      }
    },
    select = "none",
    caption = htmltools::tags$caption(style = "color: #c6c6c6; font-weight: bold;", "Plausible values"),
    rownames = FALSE,
    colnames = c("Names", "Labels"),
    options = list(
      language = list(zeroRecords = "No variables can be selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#c6c6c6', 'color': '#ffffff'});", "}"),
      dom = "ti",
      ordering = FALSE,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0)),
      headerCallback = JS("function(thead, data, start, end, display){$('th', thead).css('border-bottom', 'none');}"),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$corrWeightVar <- renderDT({
      corrAllVars$corrSelectedWeightVar
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Weight variable"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = paste0("No weight selected, default (", file.corr$default.weight, ") will be used")),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$corrPVsNotPVs <- renderText({
      if(!is.null(corrAllVars$corrSelectedPVVars) && any(corrAllVars$corrSelectedPVVars[ , Variables] %in% file.corr$PV.sets == FALSE)) {
        HTML('Warning: One or more of the selected variables in "Plausible values" is not a set of PVs. Please check the added variables.')
      } else {
        return(NULL)
      }
    })
    output$corrSplitArePVs <- renderText({
      if(any(corrAllVars$corrSelectedSplitVars[ , Variables] %in% file.corr$PV.sets == TRUE)) {
        HTML('Warning: One or more of the selected variables in "Split variables" are sets of PVs. Please check the added variables.')
      } else {
        return(NULL)
      }
    })
    output$corrBckgArePVs <- renderText({
      if(!is.null(corrAllVars$corrSelectedBckgVars) && any(corrAllVars$corrSelectedBckgVars[ , Variables] %in% file.corr$PV.sets == TRUE)) {
        HTML('Warning: One or more of the selected variables in "Background continuous variables" are sets of PVs. Please check the added variables.')
      } else {
        return(NULL)
      }
    })
    output$corrWgtsNotWgts <- renderText({
      if(any(corrAllVars$corrSelectedWeightVar[ , Variables] %in% all.studies.available.weights == FALSE)) {
        HTML('Warning: The variable in "Weight variable" is not a weight. Please check the added variable.')
      } else {
        return(NULL)
      }
    })
    output$corrWarnMoreVars <- renderText({
      if(!is.null(corrAllVars$corrSelectedBckgVars) && nrow(corrAllVars$corrSelectedBckgVars) > 2 && all(corrAllVars$corrSelectedBckgVars[ , Variables] %in% file.corr$PV.sets == FALSE)) {
        HTML('<b>Note:</b> Correlations for more than a pair of background variables can be computed at the same time. However, the estimates will slightly differ compared to computing correlations for just a pair of background variables because only listwise deletion is used.')
      } else if(!is.null(corrAllVars$corrSelectedBckgVars) && nrow(corrAllVars$corrSelectedBckgVars) > 0 && nrow(corrAllVars$corrSelectedPVVars) > 1 && all(corrAllVars$corrSelectedPVVars[ , Variables] %in% file.corr$PV.sets) == TRUE) {
        HTML('<b>Note:</b> Correlations between one or more background variables and sets of PVs can be computed at the same time. However, the estimates will slightly differ compared to computing correlations just beween sets of PVs because only listwise deletion method is used.')
      } else if(!is.null(corrAllVars$corrSelectedBckgVars) && nrow(corrAllVars$corrSelectedBckgVars) > 1 && nrow(corrAllVars$corrSelectedPVVars) > 0 && all(corrAllVars$corrSelectedPVVars[ , Variables] %in% file.corr$PV.sets) == TRUE) {
        HTML('<b>Note:</b> Correlations between a set of PVs and more than one background variable can be computed at the same time. However, the estimates will slightly differ compared to computing correlations just beween a set of PVs and a background variable because only listwise deletion method is used.')
      }
    })
    observe({
      if(nrow(corrAllVars$corrSelectedWeightVar) > 1) {
        showNotification(ui = HTML("Only one weight variable can be selected!"), type = "error")
        corrAllVars$corrAvailVars <- rbind(isolate(corrAllVars$corrAvailVars),        corrAllVars$corrSelectedWeightVar[nrow(corrAllVars$corrSelectedWeightVar), , drop = FALSE])
        corrAllVars$corrAvailVars <- corrAllVars$corrAvailVars[complete.cases(corrAllVars$corrAvailVars[ , "Variables"]), , drop = FALSE]
        corrAllVars$corrSelectedWeightVar <- isolate(corrAllVars$corrSelectedWeightVar[-2, , drop = FALSE])
      }
    })
    observeEvent(eventExpr = input$corrChooseSrcFile, {
      corrAllVars$corrSelectedPVVars <- NULL
      corrAllVars$corrSelectedBckgVars <- NULL
    }, ignoreInit = TRUE)
    
    output$corrEffectiveDF <- renderUI({
      radioButtons(inputId = "corrEffectiveDF", label = "Effective DF estimation method", choices = c("Welch-Satterthwaite approximation", "Johnson-Rust correction (recommended)"), selected = "Johnson-Rust correction (recommended)")
    })
    output$corrComputations <- renderText({
      if(!is.null(file.corr$study) && file.corr$study %in% c("PIRLS", "prePIRLS", "ePIRLS", "RLII", "TIMSS", "eTIMSS PSI", "preTIMSS", "TIMSS Advanced", "TiPi")) {
        HTML("<b>Computational options</b>")
      } else {
        NULL
      }
    })
    output$corrShortcut <- renderUI({
      if(!is.null(file.corr$study) && file.corr$study %in% c("PIRLS", "prePIRLS", "ePIRLS", "RLII", "TIMSS", "eTIMSS PSI", "preTIMSS", "TIMSS Advanced", "TiPi")) {
        checkboxInput(inputId = "corrShortcut", label = "Use shortcut method for computing SE", value = FALSE, width = "350px")
      } else {
        NULL
      }
    })
    shinyFileSave(input, "corrChooseOutFile", filetype = list(xlsx = "xlsx"), roots = available.volumes, updateFreq = 100000)
    output$corrOpenOutput <- renderUI({
      if(length(parseSavePath(available.volumes, input$corrChooseOutFile)$datapath) > 0) {
        checkboxInput(inputId = "corrOpenOutput", label = "Open the output when done", value = TRUE, width = "250px")
      }
    })
    syntaxCorr <- reactive({
      file.corr$corr.syntax <- paste0(
        'lsa.corr(data.file = "', parseFilePaths(available.volumes, input$corrChooseSrcFile)$datapath, '", ',
        if(length(corrAllVars$corrSelectedSplitVars[ , Variables]) == 1) {
          paste0('split.vars = "', corrAllVars$corrSelectedSplitVars[ , Variables], '"')
        } else if(length(corrAllVars$corrSelectedSplitVars[ , Variables]) > 1) {
          paste0('split.vars = c("', paste(corrAllVars$corrSelectedSplitVars[ , Variables], collapse = '", "'), '")')
        },
        if(!is.null(corrAllVars$corrSelectedBckgVars) && nrow(corrAllVars$corrSelectedBckgVars) == 1) {
          paste0(', bckg.corr.vars = "', corrAllVars$corrSelectedBckgVars[ , Variables], '"')
        } else if(!is.null(corrAllVars$corrSelectedBckgVars) && nrow(corrAllVars$corrSelectedBckgVars) > 1) {
          paste0(', bckg.corr.vars = c("', paste(corrAllVars$corrSelectedBckgVars[ , Variables], collapse = '", "'), '")')
        },
        if(!is.null(corrAllVars$corrSelectedPVVars) && nrow(corrAllVars$corrSelectedPVVars) == 1) {
          paste0(', PV.root.corr = "', corrAllVars$corrSelectedPVVars[ , Variables], '"')
        } else if(!is.null(corrAllVars$corrSelectedPVVars) && nrow(corrAllVars$corrSelectedPVVars) > 1) {
          paste0(', PV.root.corr = c("', paste(corrAllVars$corrSelectedPVVars[ , Variables], collapse = '", "'), '")')
        },
        if(!is.null(input$corrType) && input$corrType == "Pearson") {
          NULL
        } else if(!is.null(input$corrType) && input$corrType == "Spearman") {
          ', corr.type = "Spearman"'
        },
        if(!is.null(corrAllVars$corrSelectedWeightVar) && nrow(corrAllVars$corrSelectedWeightVar) == 1 && !is.null(file.corr$default.weight) && corrAllVars$corrSelectedWeightVar[ , Variables] == file.corr$default.weight) {
          NULL
        } else if(!is.null(corrAllVars$corrSelectedWeightVar) && nrow(corrAllVars$corrSelectedWeightVar) == 1 && corrAllVars$corrSelectedWeightVar[ , Variables] %in% all.studies.available.weights && !is.null(file.corr$default.weight) && corrAllVars$corrSelectedWeightVar[ , Variables] != file.corr$default.weight) {
          paste0(', weight.var = "', corrAllVars$corrSelectedWeightVar[ , Variables], '"')
        } else if(!is.null(corrAllVars$corrSelectedWeightVar) && nrow(corrAllVars$corrSelectedWeightVar) == 0) {
          NULL
        },
        if(!is.null(input$corrEffectiveDF) && input$corrEffectiveDF != "Johnson-Rust correction (recommended)") {
          ', DF.type = "WS"'
        } else {
          NULL
        },
        if(!is.null(input$corrInclMiss) && input$corrInclMiss == TRUE) {
          ", include.missing = TRUE"
        },
        if(!is.null(input$corrShortcut) && input$corrShortcut == TRUE) {
          ", shortcut = TRUE"
        },
        paste0(', output.file = "', parseSavePath(available.volumes, input$corrChooseOutFile)$datapath, '"'),
        if(!is.null(input$corrOpenOutput) && input$corrOpenOutput == FALSE) {
          ', open.output = FALSE'
        } else if(!is.null(input$corrOpenOutput) && input$corrOpenOutput == TRUE) {
          NULL
        },
        ')'
      )
    })
    output$corrSyntaxHead <- renderText({
      if(length(parseSavePath(available.volumes, input$corrChooseOutFile)$datapath) == 1) {
        HTML("Syntax")
      } else {
        return(NULL)
      }
    })
    observe.syntax.save.button <- eval(parse(text = string.observe.syntax.save.button))
    observe.syntax.save.button(input = input, session = session, syntax.ID = "saveCorrSyntax", syntax.object = "syntaxCorr()", volumes = available.volumes)
    output$copyCorrSyntax <- renderUI({
      rclipButton(inputId = "copyCrrtSyntax", label = "Copy syntax", clipText = syntaxCorr(), icon = icon("copy"), style = "color: #ffffff; background-color: #000000; border-radius: 5px; font-size: 80%; margin-bottom: 1px; padding: 1px; width: 85px; margin-top: 1px")
    })
    output$corrSyntax <- renderText({
      if(length(parseSavePath(available.volumes, input$corrChooseOutFile)$datapath) == 1 && nrow(rbindlist(l = list(corrAllVars$corrSelectedPVVars, corrAllVars$corrSelectedBckgVars))) >= 2) {
        syntaxCorr()
      } else {
        return(NULL)
      }
    })
    output$corrExecBtnHead <- renderText({
      if(length(parseSavePath(available.volumes, input$corrChooseOutFile)$datapath) == 1) {
        HTML("Press the button below to execute the syntax")
      } else {
        return(NULL)
      }
    })
    output$execCorr <- renderUI({
      if(length(parseSavePath(available.volumes, input$corrChooseOutFile)$datapath) == 1) {
        actionButton(inputId = "execCorr", label = "Execute syntax", icon = icon("cogs"), style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      } else {
        return(NULL)
      }
    })
    observe({
      if(nrow(rbindlist(l = list(corrAllVars$corrSelectedPVVars, corrAllVars$corrSelectedBckgVars))) < 2 || is.null(file.corr$loaded) || is.null(corrAllVars$corrSelectedPVVars) || any(corrAllVars$corrSelectedPVVars[ , Variables] %in% file.corr$PV.sets == FALSE) || any(corrAllVars$corrSelectedSplitVars[ , Variables] %in% file.corr$PV.sets == TRUE) || any(corrAllVars$corrSelectedBckgVars[ , Variables] %in% file.corr$PV.sets == TRUE) || any(corrAllVars$corrSelectedWeightVar[ , Variables] %in% all.studies.available.weights == FALSE) || is.null(file.corr$default.weight) || length(file.corr$default.weight) == 0) {
        hide("corrComputations")
        hide("corrEffectiveDF")
        hide("corrShortcut")
        hide("corrChooseOutFile")
        hide("corrOpenOutput")
        hide("corrSyntaxHead")
        hide("corrSyntax")
        hide("corrExecBtnHead")
        hide("execCorr")
        hide("consoleCorr")
      } else if (nrow(rbindlist(l = list(corrAllVars$corrSelectedPVVars, corrAllVars$corrSelectedBckgVars))) >= 2 || !is.null(file.corr$loaded) || !is.null(corrAllVars$corrSelectedPVVars) || any(corrAllVars$corrSelectedPVVars[ , Variables] %in% file.corr$PV.sets == TRUE) || any(corrAllVars$corrSelectedSplitVars[ , Variables] %in% file.corr$PV.sets == FALSE) || any(corrAllVars$corrSelectedBckgVars[ , Variables] %in% file.corr$PV.sets == FALSE) || any(corrAllVars$corrSelectedWeightVar[ , Variables] %in% all.studies.available.weights == TRUE) || !is.null(file.corr$default.weight) || length(file.corr$default.weight) != 0) {
        show("corrComputations")
        show("corrEffectiveDF")
        show("corrShortcut")
        show("corrChooseOutFile")
        show("corrOpenOutput")
        show("corrSyntaxHead")
        show("corrSyntax")
        show("corrExecBtnHead")
        show("execCorr")
        show("consoleCorr")
      }
      if(is.null(file.corr$default.weight) || length(file.corr$default.weight) == 0) {
        hide("corrVariablesExplText")
        hide("corrAllAvailableVars")
        hide("corrArrowSelSplitVarsRight")
        hide("corrArrowSelSplitVarsLeft")
        hide("corrSplitVars")
        hide("corrInclMiss")
        hide("corrArrowSelBckgVarsRight")
        hide("corrArrowSelBckgVarsLeft")
        hide("corrBckgVars")
        hide("corrArrowSelPVsRight")
        hide("corrArrowSelPVsLeft")
        hide("corrArrowSelPVsRightDisbld")
        hide("corrArrowSelPVsLeftDisbld")
        hide("corrPVVarsDisbld")
        hide("corrPVVars")
        hide("corrArrowSelWeightVarsRight")
        hide("corrArrowSelWeightVarsLeft")
        hide("corrWeightVar")
      } else if(!is.null(file.corr$default.weight) || length(file.corr$default.weight) != 0) {
        show("corrVariablesExplText")
        show("corrAllAvailableVars")
        show("corrArrowSelSplitVarsRight")
        show("corrArrowSelSplitVarsLeft")
        show("corrSplitVars")
        show("corrInclMiss")
        show("corrArrowSelBckgVarsRight")
        show("corrArrowSelBckgVarsLeft")
        show("corrBckgVars")
        show("corrArrowSelPVsRight")
        show("corrArrowSelPVsLeft")
        show("corrArrowSelPVsRightDisbld")
        show("corrArrowSelPVsLeftDisbld")
        show("corrPVVarsDisbld")
        show("corrPVVars")
        show("corrArrowSelWeightVarsRight")
        show("corrArrowSelWeightVarsLeft")
        show("corrWeightVar")
      }
      if(
        nrow(rbindlist(l = list(corrAllVars$corrSelectedBckgVars, corrAllVars$corrSelectedPVVars))) < 2 ||
        !is.null(corrAllVars$corrSelectedPVVars) & any(corrAllVars$corrSelectedPVVars[ , Variables] %in% file.corr$PV.sets == FALSE) ||
        !is.null(corrAllVars$corrSelectedBckgVars) & any(corrAllVars$corrSelectedBckgVars[ , Variables] %in% file.corr$PV.sets == TRUE) ||
        length(parseSavePath(available.volumes, input$corrChooseOutFile)$datapath) == 0
      ) {
        hide("saveCorrSyntax")
        hide("copyCorrSyntax")
      } else {
        show("saveCorrSyntax")
        show("copyCorrSyntax")
      }
    })
  }
})
observeEvent(input$execCorr, {
  showNotification(ui = HTML("<br/>   Execution started.   <br/><br/>"), type = "message")
  withCallingHandlers({html("consoleCorr", "")
    tryCatch({
      expr = eval(parse(text = file.corr$corr.syntax))
      showNotification(ui = HTML("<br/>   All operations complete!   <br/><br/>"), type = "message", duration = NULL)
    }, error = function(e) {
      message("", e)
      showNotification(ui = HTML(paste0("Something went wrong. Possible reasons: <br/>", paste(gsub(pattern = "\\n|Error: ", replacement = "<br/>", x = e)))), type = "error", duration = NULL)
    })
  },
  message = function(i) {
    shinyjs::html(id = "consoleCorr", html = i$message, add = TRUE)
  },
  warning = function(w) {
    shinyjs::html(id = "consoleCorr", html = paste0("Warning: ", w$message, "\n"), add = TRUE)
  })
  session$sendCustomMessage(type = "scrollCallback", 1)
}, ignoreInit = TRUE)
hide("linRegChooseOutFile")
hide("saveLinRegSyntax")
hide("copyLinRegSyntax")
output$h1LinReg <- renderText("Linear regression")
output$linRegIntro <- renderText({HTML("Select large-scale assessment .RData file to load.")})
file.lin.reg <- reactiveValues(loaded = NULL, is.lsa.data = NULL, resp.type = NULL, study = NULL, cycle = NULL, country.ID = NULL, PV.sets = NULL, var.levels = NULL, var.num.values = NULL, var.char.values = NULL, var.missings = NULL, var.unique.values = NULL, default.weight = NULL, lin.reg.syntax = NULL)
shinyFileChoose(input, "linRegChooseSrcFile", roots = available.volumes, filetype = list(RData = "RData"))
observeEvent(eventExpr = input$linRegChooseSrcFile, {
  file.lin.reg$loaded <- NULL
  file.lin.reg$is.lsa.data <- FALSE
  file.lin.reg$resp.type <- NULL
  file.lin.reg$study <- NULL
  file.lin.reg$cycle <- NULL
  file.lin.reg$var.classes <- NULL
  file.lin.reg$default.weight <- NULL
  if(length(parseFilePaths(available.volumes, input$linRegChooseSrcFile)$datapath) > 0 && file.size(parseFilePaths(available.volumes, input$linRegChooseSrcFile)$datapath) > 104857600) {
    showNotification(ui = HTML('The size of the selected<br/>file is rather large. Please<br/>wait until the file is loaded.'), type = "message")
  }
  if(length(parseFilePaths(available.volumes, input$linRegChooseSrcFile)$datapath) > 0) {
    file.lin.reg$loaded <- get(load(parseFilePaths(available.volumes, input$linRegChooseSrcFile)$datapath))
    file.lin.reg$var.levels <- Filter(Negate(is.null), lapply(X = file.lin.reg$loaded, FUN = function(i) {
      if(is.null(attr(x = i, which = "levels"))) {
        NULL
      } else {
        attr(x = i, which = "levels")
      }
    }))
    file.lin.reg$var.num.values <- Filter(Negate(is.null), lapply(X = file.lin.reg$loaded, FUN = function(i) {
      if(!is.numeric(i)) {
        NULL
      } else {
        sort(unique(i[!is.na(i)]))
      }
    }))
    file.lin.reg$var.char.values <- Filter(Negate(is.null), lapply(X = file.lin.reg$loaded, FUN = function(i) {
      if(!is.character(i)) {
        NULL
      } else {
        unique(i[!is.na(i)])
      }
    }))
    file.lin.reg$missings <- Filter(Negate(is.null), lapply(X = file.lin.reg$loaded, FUN = function(i) {
      if(is.null(attr(x = i, which = "missings"))) {
        NULL
      } else {
        if(is.null(names(i))) {
          attr(x = i, which = "missings")
        } else {
          tmp.names.miss <- names(attr(x = i, which = "missings"))
          tmp.miss <- attr(x = i, which = "missings")
          names(tmp.miss) <- tmp.names.miss
        }
      }
    }))
    file.lin.reg$var.unique.values <- c(file.lin.reg$var.levels, file.lin.reg$var.num.values, file.lin.reg$var.char.values)
    tmp.names <- names(file.lin.reg$var.unique.values)
    file.lin.reg$var.unique.values <- lapply(names(file.lin.reg$var.unique.values), function(i) {
      setdiff(file.lin.reg$var.unique.values[[i]], file.lin.reg$missings[[i]])
    })
    names(file.lin.reg$var.unique.values) <- tmp.names
    if("lsa.data" %in% class(file.lin.reg$loaded)) {
      file.lin.reg$is.lsa.data <- TRUE
    } else {
      file.lin.reg$is.lsa.data <- FALSE
    }
    file.lin.reg$study <- attr(x = file.lin.reg$loaded, which = "study")
    file.lin.reg$cycle <- attr(x = file.lin.reg$loaded, which = "cycle")
    file.lin.reg$resp.type <- attr(x = file.lin.reg$loaded, which = "file.type")
    file.lin.reg$loaded <- data.table(Variables = names(file.lin.reg$loaded), Variable_Labels = sapply(X = file.lin.reg$loaded, FUN = function(j) {
      if(is.null(attr(x = j, which = "variable.label"))) {
        return(NA_character_)
      } else {
        attr(x = j, which = "variable.label")
      }
    }),
    order_col = 1:ncol(file.lin.reg$loaded))
    file.lin.reg$PV.sets <- NULL
    tmp.PV.names <- grep(pattern = paste(all.available.PVs, collapse = "|"), x = file.lin.reg$loaded[ , Variables], value = TRUE)
    if(length(tmp.PV.names) > 0) {
      collapsed.PVs <- collapse.loaded.file.PV.names(PV.vector = tmp.PV.names, vars.object = file.lin.reg$loaded)
      file.lin.reg$loaded <- file.lin.reg$loaded[!Variables %in% tmp.PV.names]
      file.lin.reg$loaded <- rbindlist(l = list(file.lin.reg$loaded, collapsed.PVs))
      setkeyv(x = file.lin.reg$loaded, cols = "order_col")
      file.lin.reg$PV.sets <- collapsed.PVs[ , Variables]
    }
    if(!is.null(file.lin.reg$study)) {
      file.lin.reg$default.weight <- define.default.weight(study = file.lin.reg$study, loaded.names.and.labels = file.lin.reg$loaded, respondent.type = file.lin.reg$resp.type)
    }
    file.lin.reg$country.ID <- NULL
    if("IDCNTRY" %in% file.lin.reg$loaded[ , Variables]) {
      file.lin.reg$country.ID <- "IDCNTRY"
    } else {
      file.lin.reg$country.ID <- "CNT"
    }
  }
  output$linRegSrcPathDisplay <- renderText({parseFilePaths(available.volumes, input$linRegChooseSrcFile)$datapath})
}, ignoreInit = TRUE)
observe({
  if(!is.null(file.lin.reg$loaded) && file.lin.reg$is.lsa.data == FALSE) {
    showNotification(ui = HTML('The data is not of class "lsa.data".<br/>Please check the file content.'), type = "error")
  } else if (!is.null(file.lin.reg$loaded) && file.lin.reg$is.lsa.data == TRUE) {
    output$linRegStudyName <- renderText({
      if(is.null(file.lin.reg$resp.type)) {
        return(NULL)
      } else {
        HTML(paste0('Study: ', file.lin.reg$study))
      }
    })
    output$linRegStudyCycle <- renderText({
      if(is.null(file.lin.reg$resp.type)) {
        return(NULL)
      } else {
        HTML(paste0('Cycle: ', file.lin.reg$cycle))
      }
    })
    output$linRegRespHead <- renderText({
      if(is.null(file.lin.reg$resp.type)) {
        return(NULL)
      } else {
        HTML('<u>The file contains data from the following respondents:</u>')
      }
    })
    output$linRegRespAvailable <- renderText({
      if(is.null(file.lin.reg$resp.type)) {
        return(NULL)
      } else {
        HTML(file.merged.respondents[[file.lin.reg$resp.type]])
      }
    })
    output$linRegNoWeights <- renderText({
      if(!is.null(file.lin.reg$loaded) && is.null(file.lin.reg$default.weight) || !is.null(file.lin.reg$loaded) && length(file.lin.reg$default.weight) == 0) {
        HTML('Error: The loaded file does not contain any recognizable default weight variable. Such files cannot be analyzed on their own and must be merged with other respondents in advance.')
      } else {
        return(NULL)
      }
    })
    output$linRegVariablesExplText <- renderText({
      if(is.null(file.lin.reg$resp.type)) {
        return(NULL)
      } else {
        HTML('Use the panels below to select variables to compute linear regression coefficients within groups specified by splitting variables.')
      }
    })
    lin.reg.initial.available.vars <- file.lin.reg$loaded[!Variables %in% c(file.lin.reg$default.weight, file.lin.reg$country.ID), ]
    lin.reg.initial.selected.split.vars <- file.lin.reg$loaded[Variables == file.lin.reg$country.ID, ]
    lin.reg.initial.selected.indep.cat.bckg.vars <- data.table(Variables = as.character(), Variable_Labels = as.character(), order_col = as.numeric())
    lin.reg.initial.selected.indep.cnt.bckg.vars <- data.table(Variables = as.character(), Variable_Labels = as.character(), order_col = as.numeric())
    lin.reg.initial.selected.indep.PV.vars <- data.table(Variables = as.character(), Variable_Labels = as.character(), order_col = as.numeric())
    lin.reg.initial.selected.dep.bckg.vars <- data.table(Variables = as.character(), Variable_Labels = as.character(), order_col = as.numeric())
    lin.reg.initial.selected.dep.PV.vars <- data.table(Variables = as.character(), Variable_Labels = as.character(), order_col = as.numeric())
    lin.reg.initial.selected.weight.var <- file.lin.reg$loaded[Variables %in% file.lin.reg$default.weight, ]
    lin.reg.initial.interactions <- data.table(Variable1 = as.character(), Check = as.character(), Variable2 = as.character())
    linRegAllVars <- reactiveValues(linRegAvailVars = lin.reg.initial.available.vars, linRegSelectedSplitVars = lin.reg.initial.selected.split.vars, linRegSelectedIndepCatBckgVars = lin.reg.initial.selected.indep.cat.bckg.vars, linRegSelectedIndepCntBckgVars = lin.reg.initial.selected.indep.cnt.bckg.vars, linRegSelectedIndepPVVars = lin.reg.initial.selected.indep.PV.vars, linRegSelectedDepBckgVars = lin.reg.initial.selected.dep.bckg.vars, linRegSelectedDepPVVars = lin.reg.initial.selected.dep.PV.vars, linRegSelectedWeightVar = lin.reg.initial.selected.weight.var)
    output$linRegArrowSelSplitVarsRight <- renderUI({
      if(is.null(file.lin.reg$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "linRegArrowSelSplitVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$linRegArrowSelSplitVarsLeft <- renderUI({
      if(is.null(file.lin.reg$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "linRegArrowSelSplitVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$linRegArrowSelIndepCatBckgVarsRight <- renderUI({
      if(is.null(file.lin.reg$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "linRegArrowSelIndepCatBckgVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px; margin-top: 9px")
      }
    })
    output$linRegArrowSelIndepCatBckgVarsLeft <- renderUI({
      if(is.null(file.lin.reg$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "linRegArrowSelIndepCatBckgVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$linRegArrowSelIndepCntBckgVarsRight <- renderUI({
      if(is.null(file.lin.reg$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "linRegArrowSelIndepCntBckgVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$linRegArrowSelIndepCntBckgVarsLeft <- renderUI({
      if(is.null(file.lin.reg$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "linRegArrowSelIndepCntBckgVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$linRegArrowSelIndepPVsRight <- renderUI({
      if(is.null(file.lin.reg$resp.type) || is.null(file.lin.reg$PV.sets)) {
        return(NULL)
      } else {
        actionButton(inputId = "linRegArrowSelIndepPVsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$linRegArrowSelIndepPVsLeft <- renderUI({
      if(is.null(file.lin.reg$resp.type) || is.null(file.lin.reg$PV.sets)) {
        return(NULL)
      } else {
        actionButton(inputId = "linRegArrowSelIndepPVsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$linRegArrowSelIndepPVsRightDisbld <- renderUI({
      if(is.null(file.lin.reg$resp.type) || is.null(file.lin.reg$PV.sets)) {
        actionButton(inputId = "linRegArrowSelIndepPVsRightDisbld", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #c6c6c6; border-radius: 10px")
      } else {
        return(NULL)
      }
    })
    output$linRegArrowSelIndepPVsLeftDisbld <- renderUI({
      if(is.null(file.lin.reg$resp.type) || is.null(file.lin.reg$PV.sets)) {
        actionButton(inputId = "linRegArrowSelIndepPVsLeftDisbld", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #c6c6c6; border-radius: 10px")
      } else {
        return(NULL)
      }
    })
    output$linRegArrowSelDepBckgVarsRight <- renderUI({
      if(is.null(file.lin.reg$resp.type)) {
        return(NULL)
      } else if(!is.null(file.lin.reg$resp.type) && !is.null(input$linRegChooseDepType) && input$linRegChooseDepType == "Background variable") {
        actionButton(inputId = "linRegArrowSelDepBckgVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$linRegArrowSelDepBckgVarsLeft <- renderUI({
      if(is.null(file.lin.reg$resp.type)) {
        return(NULL)
      } else if(!is.null(file.lin.reg$resp.type) && !is.null(input$linRegChooseDepType) && input$linRegChooseDepType == "Background variable") {
        actionButton(inputId = "linRegArrowSelDepBckgVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$linRegArrowSelDepPVsRight <- renderUI({
      if(is.null(file.lin.reg$resp.type)) {
        return(NULL)
      } else if(!is.null(file.lin.reg$resp.type) && !is.null(input$linRegChooseDepType) && input$linRegChooseDepType == "Plausible values" && !is.null(file.lin.reg$PV.sets)) {
        actionButton(inputId = "linRegArrowSelDepPVsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$linRegArrowSelDepPVsLeft <- renderUI({
      if(is.null(file.lin.reg$resp.type)) {
        return(NULL)
      } else if(!is.null(file.lin.reg$resp.type) && !is.null(input$linRegChooseDepType) && input$linRegChooseDepType == "Plausible values" && !is.null(file.lin.reg$PV.sets)) {
        actionButton(inputId = "linRegArrowSelDepPVsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$linRegArrowSelDepPVsRightDisbld <- renderUI({
      if(is.null(file.lin.reg$resp.type)) {
        return(NULL)
      } else if(!is.null(file.lin.reg$resp.type) && !is.null(input$linRegChooseDepType) && input$linRegChooseDepType == "Plausible values" && is.null(file.lin.reg$PV.sets)) {
        actionButton(inputId = "linRegArrowSelDepPVsRightDisbld", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #c6c6c6; border-radius: 10px")
      }
    })
    output$linRegArrowSelDepPVsLeftDisbld <- renderUI({
      if(is.null(file.lin.reg$resp.type)) {
        return(NULL)
      } else if(!is.null(file.lin.reg$resp.type) && !is.null(input$linRegChooseDepType) && input$linRegChooseDepType == "Plausible values" && is.null(file.lin.reg$PV.sets)) {
        actionButton(inputId = "linRegArrowSelDepPVsLeftDisbld", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #c6c6c6; border-radius: 10px")
      }
    })
    output$linRegArrowSelWeightVarsRight <- renderUI({
      if(is.null(file.lin.reg$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "linRegArrowSelWeightVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$linRegArrowSelWeightVarsLeft <- renderUI({
      if(is.null(file.lin.reg$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "linRegArrowSelWeightVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    observeEvent(input$linRegArrowSelSplitVarsRight, {
      req(input$linRegAllAvailableVars_rows_selected)
      linRegAllVars$linRegSelectedSplitVars <- rbind(isolate(linRegAllVars$linRegSelectedSplitVars), linRegAllVars$linRegAvailVars[input$linRegAllAvailableVars_rows_selected, , drop = FALSE])
      linRegAllVars$linRegSelectedSplitVars <- linRegAllVars$linRegSelectedSplitVars[complete.cases(linRegAllVars$linRegSelectedSplitVars[ , "Variables"]), , drop = FALSE]
      linRegAllVars$linRegAvailVars <- isolate(linRegAllVars$linRegAvailVars[-input$linRegAllAvailableVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$linRegArrowSelSplitVarsLeft, {
      req(input$linRegSplitVars_rows_selected)
      linRegAllVars$linRegAvailVars <- rbind(isolate(linRegAllVars$linRegAvailVars),        linRegAllVars$linRegSelectedSplitVars[input$linRegSplitVars_rows_selected, , drop = FALSE])
      linRegAllVars$linRegAvailVars <- linRegAllVars$linRegAvailVars[complete.cases(linRegAllVars$linRegAvailVars[ , "Variables"]), , drop = FALSE]
      if(nrow(linRegAllVars$linRegSelectedSplitVars) > 0) {
        linRegAllVars$linRegSelectedSplitVars <- isolate(linRegAllVars$linRegSelectedSplitVars[-input$linRegSplitVars_rows_selected, , drop = FALSE])
      }
      if(!file.lin.reg$country.ID %in% linRegAllVars$linRegSelectedSplitVars[ , Variables]) {
        showNotification(ui = HTML("Country ID <b>must always be</b> the first splitting variable!"), type = "error")
      }
      linRegAllVars$linRegSelectedSplitVars <- rbindlist(l = list(linRegAllVars$linRegSelectedSplitVars, linRegAllVars$linRegAvailVars[Variables == file.lin.reg$country.ID, ]))
      linRegAllVars$linRegAvailVars <- linRegAllVars$linRegAvailVars[Variables != file.lin.reg$country.ID, ]
    })
    observeEvent(input$linRegArrowSelIndepCatBckgVarsRight, {
      req(input$linRegAllAvailableVars_rows_selected)
      linRegAllVars$linRegSelectedIndepCatBckgVars <- rbind(isolate(linRegAllVars$linRegSelectedIndepCatBckgVars), linRegAllVars$linRegAvailVars[input$linRegAllAvailableVars_rows_selected, , drop = FALSE])
      linRegAllVars$linRegSelectedIndepCatBckgVars <- linRegAllVars$linRegSelectedIndepCatBckgVars[complete.cases(linRegAllVars$linRegSelectedIndepCatBckgVars[ , "Variables"]), , drop = FALSE]
      linRegAllVars$linRegAvailVars <- isolate(linRegAllVars$linRegAvailVars[-input$linRegAllAvailableVars_rows_selected, , drop = FALSE])
      session$sendCustomMessage("unbindDT", "linRegIndepCatBckgVars")
    })
    observeEvent(input$linRegArrowSelIndepCatBckgVarsLeft, {
      req(input$linRegIndepCatBckgVars_rows_selected)
      linRegAllVars$linRegAvailVars <- rbind(isolate(linRegAllVars$linRegAvailVars),        linRegAllVars$linRegSelectedIndepCatBckgVars[input$linRegIndepCatBckgVars_rows_selected, , drop = FALSE])
      linRegAllVars$linRegAvailVars <- linRegAllVars$linRegAvailVars[complete.cases(linRegAllVars$linRegAvailVars[ , "Variables"]), , drop = FALSE]
      linRegAllVars$linRegSelectedIndepCatBckgVars <- isolate(linRegAllVars$linRegSelectedIndepCatBckgVars[-input$linRegIndepCatBckgVars_rows_selected, , drop = FALSE])
      session$sendCustomMessage("unbindDT", "linRegIndepCatBckgVars")
    })
    observeEvent(input$linRegArrowSelIndepCntBckgVarsRight, {
      req(input$linRegAllAvailableVars_rows_selected)
      linRegAllVars$linRegSelectedIndepCntBckgVars <- rbind(isolate(linRegAllVars$linRegSelectedIndepCntBckgVars), linRegAllVars$linRegAvailVars[input$linRegAllAvailableVars_rows_selected, , drop = FALSE])
      linRegAllVars$linRegSelectedIndepCntBckgVars <- linRegAllVars$linRegSelectedIndepCntBckgVars[complete.cases(linRegAllVars$linRegSelectedIndepCntBckgVars[ , "Variables"]), , drop = FALSE]
      linRegAllVars$linRegAvailVars <- isolate(linRegAllVars$linRegAvailVars[-input$linRegAllAvailableVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$linRegArrowSelIndepCntBckgVarsLeft, {
      req(input$linRegIndepCntBckgVars_rows_selected)
      linRegAllVars$linRegAvailVars <- rbind(isolate(linRegAllVars$linRegAvailVars),        linRegAllVars$linRegSelectedIndepCntBckgVars[input$linRegIndepCntBckgVars_rows_selected, , drop = FALSE])
      linRegAllVars$linRegAvailVars <- linRegAllVars$linRegAvailVars[complete.cases(linRegAllVars$linRegAvailVars[ , "Variables"]), , drop = FALSE]
      linRegAllVars$linRegSelectedIndepCntBckgVars <- isolate(linRegAllVars$linRegSelectedIndepCntBckgVars[-input$linRegIndepCntBckgVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$linRegArrowSelIndepPVsRight, {
      req(input$linRegAllAvailableVars_rows_selected)
      linRegAllVars$linRegSelectedIndepPVVars <- rbind(isolate(linRegAllVars$linRegSelectedIndepPVVars), linRegAllVars$linRegAvailVars[input$linRegAllAvailableVars_rows_selected, , drop = FALSE])
      linRegAllVars$linRegSelectedIndepPVVars <- linRegAllVars$linRegSelectedIndepPVVars[complete.cases(linRegAllVars$linRegSelectedIndepPVVars[ , "Variables"]), , drop = FALSE]
      if(nrow(linRegAllVars$linRegSelectedIndepPVVars) > 0) {
        linRegAllVars$linRegAvailVars <- isolate(linRegAllVars$linRegAvailVars[-input$linRegAllAvailableVars_rows_selected, , drop = FALSE])
      }
    })
    observeEvent(input$linRegArrowSelIndepPVsLeft, {
      req(input$linRegIndepPVVars_rows_selected)
      linRegAllVars$linRegAvailVars <- rbind(isolate(linRegAllVars$linRegAvailVars),        linRegAllVars$linRegSelectedIndepPVVars[input$linRegIndepPVVars_rows_selected, , drop = FALSE])
      linRegAllVars$linRegAvailVars <- linRegAllVars$linRegAvailVars[complete.cases(linRegAllVars$linRegAvailVars[ , "Variables"]), , drop = FALSE]
      linRegAllVars$linRegSelectedIndepPVVars <- isolate(linRegAllVars$linRegSelectedIndepPVVars[-input$linRegIndepPVVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$linRegArrowSelDepBckgVarsRight, {
      req(input$linRegAllAvailableVars_rows_selected)
      linRegAllVars$linRegSelectedDepBckgVars <- rbind(isolate(linRegAllVars$linRegSelectedDepBckgVars), linRegAllVars$linRegAvailVars[input$linRegAllAvailableVars_rows_selected, , drop = FALSE])
      linRegAllVars$linRegSelectedDepBckgVars <- linRegAllVars$linRegSelectedDepBckgVars[complete.cases(linRegAllVars$linRegSelectedDepBckgVars[ , "Variables"]), , drop = FALSE]
      linRegAllVars$linRegAvailVars <- isolate(linRegAllVars$linRegAvailVars[-input$linRegAllAvailableVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$linRegArrowSelDepBckgVarsLeft, {
      req(input$linRegDepBckgVars_rows_selected)
      linRegAllVars$linRegAvailVars <- rbind(isolate(linRegAllVars$linRegAvailVars),        linRegAllVars$linRegSelectedDepBckgVars[input$linRegDepBckgVars_rows_selected, , drop = FALSE])
      linRegAllVars$linRegAvailVars <- linRegAllVars$linRegAvailVars[complete.cases(linRegAllVars$linRegAvailVars[ , "Variables"]), , drop = FALSE]
      linRegAllVars$linRegSelectedDepBckgVars <- isolate(linRegAllVars$linRegSelectedDepBckgVars[-input$linRegDepBckgVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$linRegArrowSelDepPVsRight, {
      req(input$linRegAllAvailableVars_rows_selected)
      linRegAllVars$linRegSelectedDepPVVars <- rbind(isolate(linRegAllVars$linRegSelectedDepPVVars), linRegAllVars$linRegAvailVars[input$linRegAllAvailableVars_rows_selected, , drop = FALSE])
      linRegAllVars$linRegSelectedDepPVVars <- linRegAllVars$linRegSelectedDepPVVars[complete.cases(linRegAllVars$linRegSelectedDepPVVars[ , "Variables"]), , drop = FALSE]
      if(nrow(linRegAllVars$linRegSelectedDepPVVars) > 0) {
        linRegAllVars$linRegAvailVars <- isolate(linRegAllVars$linRegAvailVars[-input$linRegAllAvailableVars_rows_selected, , drop = FALSE])
      }
    })
    observeEvent(input$linRegArrowSelDepPVsLeft, {
      req(input$linRegDepPVVars_rows_selected)
      linRegAllVars$linRegAvailVars <- rbind(isolate(linRegAllVars$linRegAvailVars),        linRegAllVars$linRegSelectedDepPVVars[input$linRegDepPVVars_rows_selected, , drop = FALSE])
      linRegAllVars$linRegAvailVars <- linRegAllVars$linRegAvailVars[complete.cases(linRegAllVars$linRegAvailVars[ , "Variables"]), , drop = FALSE]
      linRegAllVars$linRegSelectedDepPVVars <- isolate(linRegAllVars$linRegSelectedDepPVVars[-input$linRegDepPVVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$linRegArrowSelWeightVarsRight, {
      req(input$linRegAllAvailableVars_rows_selected)
      linRegAllVars$linRegSelectedWeightVar <- rbind(isolate(linRegAllVars$linRegSelectedWeightVar), linRegAllVars$linRegAvailVars[input$linRegAllAvailableVars_rows_selected, , drop = FALSE])
      linRegAllVars$linRegSelectedWeightVar <- linRegAllVars$linRegSelectedWeightVar[complete.cases(linRegAllVars$linRegSelectedWeightVar[ , "Variables"]), , drop = FALSE]
      if(nrow(linRegAllVars$linRegSelectedWeightVar) > 0) {
        linRegAllVars$linRegAvailVars <- isolate(linRegAllVars$linRegAvailVars[-input$linRegAllAvailableVars_rows_selected, , drop = FALSE])
      }
    })
    observeEvent(input$linRegArrowSelWeightVarsLeft, {
      req(input$linRegWeightVar_rows_selected)
      linRegAllVars$linRegAvailVars <- rbind(isolate(linRegAllVars$linRegAvailVars),        linRegAllVars$linRegSelectedWeightVar[input$linRegWeightVar_rows_selected, , drop = FALSE])
      linRegAllVars$linRegAvailVars <- linRegAllVars$linRegAvailVars[complete.cases(linRegAllVars$linRegAvailVars[ , "Variables"]), , drop = FALSE]
      if(nrow(linRegAllVars$linRegSelectedWeightVar) > 0) {
        linRegAllVars$linRegSelectedWeightVar <- isolate(linRegAllVars$linRegSelectedWeightVar[-input$linRegWeightVar_rows_selected, , drop = FALSE])
      }
    })
    observeEvent(input$linRegChooseDepType, {
      linRegAllVars$linRegAvailVars <- rbind(isolate(linRegAllVars$linRegAvailVars),        linRegAllVars$linRegSelectedDepBckgVars[input$linRegDepBckgVars_rows_all, , drop = FALSE])
      linRegAllVars$linRegAvailVars <- linRegAllVars$linRegAvailVars[complete.cases(linRegAllVars$linRegAvailVars[ , "Variables"]), , drop = FALSE]
      if(!is.null(linRegAllVars$linRegSelectedDepBckgVars) && nrow(linRegAllVars$linRegSelectedDepBckgVars) > 0) {
        linRegAllVars$linRegSelectedDepBckgVars <- isolate(linRegAllVars$linRegSelectedDepBckgVars[-input$linRegDepBckgVars_rows_all, , drop = FALSE])
      }
      linRegAllVars$linRegAvailVars <- rbind(isolate(linRegAllVars$linRegAvailVars),        linRegAllVars$linRegSelectedDepPVVars[input$linRegDepPVVars_rows_all, , drop = FALSE])
      linRegAllVars$linRegAvailVars <- linRegAllVars$linRegAvailVars[complete.cases(linRegAllVars$linRegAvailVars[ , "Variables"]), , drop = FALSE]
      if(!is.null(linRegAllVars$linRegSelectedDepPVVars) && nrow(linRegAllVars$linRegSelectedDepPVVars) > 0) {
        linRegAllVars$linRegSelectedDepPVVars <- isolate(linRegAllVars$linRegSelectedDepPVVars[-input$linRegDepPVVars_rows_all, , drop = FALSE])
      }
    })
    generate.lin.reg.contr.new.inputs <- function(FUN, len, id, ...) {
      inputs <- character(len)
      lapply(seq_len(len), function(i) {
        inputs[i] <- as.character(FUN(paste0(id, i), label = NULL, ...))
      })
    }
    generate.lin.reg.refcat.new.inputs <- function(FUN, id, ...) {
      as.character(FUN(id, label = NULL, ...))
    }
    gather.lin.reg.cat.new.inputs.data <- function(id, len) {
      unlist(lapply(seq_len(len), function(i) {
        value <- input[[paste0(id, i)]]
        if (is.null(value)) NA else value
      }))
    }
    lin.reg.contrasts <- reactiveValues(values = NULL)
    new.lin.reg.contrasts <- reactiveValues(contrasts = NULL, ref.cats = NULL)
    observe({
      if(nrow(linRegAllVars$linRegSelectedIndepCatBckgVars) > 0) {
        lin.reg.contrasts$values <- cbind(
          V1 = data.table(linRegAllVars$linRegSelectedIndepCatBckgVars[ , Variables]),
          V2 = data.table(linRegAllVars$linRegSelectedIndepCatBckgVars[ , Variable_Labels]),
          V3 = data.table(sapply(X = file.lin.reg$var.unique.values, FUN = function(i) {
            length(i)
          })[linRegAllVars$linRegSelectedIndepCatBckgVars[ , Variables]]),
          V4 = if(any(sapply(X = file.lin.reg$var.unique.values[linRegAllVars$linRegSelectedIndepCatBckgVars[ , Variables]], FUN = is.null)) == FALSE) {
            generate.lin.reg.contr.new.inputs(FUN = selectInput, id = 'linregcontrast', len = nrow(linRegAllVars$linRegSelectedIndepCatBckgVars), choices = c("Dummy", "Deviation", "Simple"), width = "100%", selectize = FALSE)
          } else {
            generate.lin.reg.contr.new.inputs(FUN = selectInput, id = 'linregcontrast', len = nrow(linRegAllVars$linRegSelectedIndepCatBckgVars), choices = "PVs are added, check your input", width = "100%", selectize = FALSE)
          },
          V5 = lapply(seq_along(1:nrow(linRegAllVars$linRegSelectedIndepCatBckgVars)), function(i) {
            if(any(sapply(X = file.lin.reg$var.unique.values[linRegAllVars$linRegSelectedIndepCatBckgVars[ , Variables]], FUN = is.null)) == FALSE) {
              generate.lin.reg.refcat.new.inputs(FUN = selectInput, id = paste0("linregrefcat", i), choices = file.lin.reg$var.unique.values[linRegAllVars$linRegSelectedIndepCatBckgVars[ , Variables]][i], width = "100%", selectize = FALSE)
            } else {
              generate.lin.reg.refcat.new.inputs(FUN = selectInput, id = paste0("linregrefcat", i), choices = "PVs are added, check your input", width = "100%", selectize = FALSE)
            }
          }),
          V6 = data.table(linRegAllVars$linRegSelectedIndepCatBckgVars[ , order_col])
        )
        if(nrow(lin.reg.contrasts$values)) {
          new.lin.reg.contrasts$contrasts <- gather.lin.reg.cat.new.inputs.data(id = "linregcontrast", len = nrow(lin.reg.contrasts$values))
          new.lin.reg.contrasts$ref.cats <- gather.lin.reg.cat.new.inputs.data(id = "linregrefcat", len = nrow(lin.reg.contrasts$values))
        }
      }
    })
    output$linRegAllAvailableVars <- renderDT({
      setkeyv(x = linRegAllVars$linRegAvailVars, cols = "order_col")
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Available variables"),
    rownames = FALSE,
    filter = "top",
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables available"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 1541, scroller = TRUE
    ))
    output$linRegSplitVars <- renderDT({
      linRegAllVars$linRegSelectedSplitVars
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Split variables"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$linRegInclMiss <- renderUI({
      if(nrow(linRegAllVars$linRegSelectedSplitVars) == 0) {
        return(NULL)
      } else {
        checkboxInput(inputId = "linRegInclMiss", label = "Compute statistics for the missing values of the split variables", value = FALSE, width = "400px")
      }
    })
    output$linRegIndepCatCaption <- renderText({
      HTML("Independent background categorical variables")
    })
    output$linRegIndepCatBckgVars <- renderDT({
      if(nrow(linRegAllVars$linRegSelectedIndepCatBckgVars) == 0) {
        data.table(Variables = as.character(), Variable_Labels = as.character(), n.cat = as.character(), contrast = as.character(), ref.cat = as.numeric(), order_col = as.character())
      } else {
        lin.reg.contrasts$values
      }
    },
    rownames = FALSE,
    selection = "single",
    colnames = c("Names", "Labels", "N cat.", "Contrast", "Ref. cat.", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    escape = FALSE,
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(width = '40px', targets = 2:4), list(className = 'dt-center', targets = 2:4), list(visible = FALSE, targets = 5)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      drawCallback = JS('function() {Shiny.bindAll(this.api().table().node());} '),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$linRegIndepCntBckgVars <- renderDT({
      linRegAllVars$linRegSelectedIndepCntBckgVars
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Independent background continuous variables"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      preDrawCallback = JS('function() { Shiny.unbindAll(this.api().table().node()); }'),
      drawCallback = JS('function() { Shiny.bindAll(this.api().table().node()); } '),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$linRegIndepPVVars <- renderDT({
      if(is.null(file.lin.reg$PV.sets)) {
        return(NULL)
      } else {
        linRegAllVars$linRegSelectedIndepPVVars
      }
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Independent plausible values"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$linRegIndepPVVarsDisbld <- renderDT({
      if(is.null(file.lin.reg$PV.sets)) {
        data.table(V1 = as.character(), V2 = as.character())
      } else {
        return(NULL)
      }
    },
    select = "none",
    caption = htmltools::tags$caption(style = "color: #c6c6c6; font-weight: bold;", "Independent plausible values"),
    rownames = FALSE,
    colnames = c("Names", "Labels"),
    options = list(
      language = list(zeroRecords = "No variables can be selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#c6c6c6', 'color': '#ffffff'});", "}"),
      dom = "ti",
      ordering = FALSE,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0)),
      headerCallback = JS("function(thead, data, start, end, display){$('th', thead).css('border-bottom', 'none');}"),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$linRegChooseDepType <- renderUI({
      if(!is.null(file.lin.reg$loaded)) {
        radioButtons(inputId = "linRegChooseDepType", label = "Choose the type of dependent variable", choices = c("Background variable", "Plausible values"), selected = "Background variable", inline = TRUE, width = "500px")
      } else {
        return(NULL)
      }
    })
    output$linRegDepBckgVars <- renderDT({
      if(!is.null(input$linRegChooseDepType) && input$linRegChooseDepType == "Background variable") {
        linRegAllVars$linRegSelectedDepBckgVars
      } else {
        return(NULL)
      }
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Dependent background variable"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$linRegDepPVVars <- renderDT({
      if(!is.null(input$linRegChooseDepType) && input$linRegChooseDepType == "Plausible values" && !is.null(file.lin.reg$PV.sets)) {
        linRegAllVars$linRegSelectedDepPVVars
      } else {
        return(NULL)
      }
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Dependent plausible values"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$linRegDepPVVarsDisbld <- renderDT({
      if(is.null(file.lin.reg$PV.sets) && !is.null(input$linRegChooseDepType) && input$linRegChooseDepType == "Plausible values") {
        data.table(V1 = as.character(), V2 = as.character())
      } else {
        return(NULL)
      }
    },
    select = "none",
    caption = htmltools::tags$caption(style = "color: #c6c6c6; font-weight: bold;", "Independent plausible values"),
    rownames = FALSE,
    colnames = c("Names", "Labels"),
    options = list(
      language = list(zeroRecords = "No variables can be selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#c6c6c6', 'color': '#ffffff'});", "}"),
      dom = "ti",
      ordering = FALSE,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0)),
      headerCallback = JS("function(thead, data, start, end, display){$('th', thead).css('border-bottom', 'none');}"),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    generate.interaction.checkboxes.lin.reg = function(FUN, len, id, ...) {
      inputs <- character(len)
      lapply(seq_len(len), function(i) {
        inputs[i] <- as.character(FUN(paste0(id, len, i), label = NULL, ...))
      })
    }
    gather.lin.reg.inter.inputs <- function(id, len) {
      sapply(seq_len(len), function(i) {
        value <- input[[paste0(id, len, i)]]
        if(is.null(value)) {
          NA
        } else {
          value
        }
      })
    }
    linRegPossibleInteractions <- reactive({
      if(
        !is.null(file.lin.reg$resp.type) &&
        !is.null(linRegAllVars$linRegSelectedIndepCatBckgVars) &&
        !is.null(linRegAllVars$linRegSelectedIndepCntBckgVars) &&
        !is.null(linRegAllVars$linRegSelectedIndepPVVars) &&
        nrow(rbindlist(l = list(linRegAllVars$linRegSelectedIndepCatBckgVars, linRegAllVars$linRegSelectedIndepCntBckgVars, linRegAllVars$linRegSelectedIndepPVVars))) > 1
      ) {
        selected.vars <- c(linRegAllVars$linRegSelectedIndepCatBckgVars[ , Variables], linRegAllVars$linRegSelectedIndepCntBckgVars[ , Variables], linRegAllVars$linRegSelectedIndepPVVars[ , Variables])
        tmp.interactions <- transpose(as.data.table(combn(x = selected.vars, m = 2)))
        data.table(Variable1 = tmp.interactions[ , V1], Check = generate.interaction.checkboxes.lin.reg(FUN = checkboxInput, len = nrow(tmp.interactions), id = "cbox_", width = "5px"), Variable2 = tmp.interactions[ , V2])
      } else {
        lin.reg.initial.interactions
      }
    })
    output$linRegInteractions <- renderDT({
      linRegPossibleInteractions()
    },
    server = FALSE,
    escape = FALSE,
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Define interactions"),
    rownames = FALSE,
    colnames = c("Variable 1", "", "Variable 2"),
    extensions = list("Scroller"),
    selection="none",
    class = "row-border stripe;compact cell-border;",
    options = list(
      language = list(zeroRecords = "No variables available for interactions"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '20px', targets = 1), list(targets = 1, className = "small" ), list(className = 'dt-center', targets = c(0, 1, 2))),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      preDrawCallback = JS('function() { Shiny.unbindAll(this.api().table().node()); }'),
      drawCallback = JS('function() { Shiny.bindAll(this.api().table().node()); } '),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    linRegSelectedInteractions <- reactive({
      if(nrow(linRegPossibleInteractions()) > 0) {
        linRegPossibleInteractions()[gather.lin.reg.inter.inputs(id = "cbox_", len = nrow(linRegPossibleInteractions())) == TRUE]
      } else {
        lin.reg.initial.interactions
      }
    })
    output$linRegWeightVar <- renderDT({
      linRegAllVars$linRegSelectedWeightVar
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Weight variable"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = paste0("No weight selected, default (", file.lin.reg$default.weight, ") will be used")),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$linRegSplitArePVs <- renderText({
      if(!is.null(linRegAllVars$linRegSelectedSplitVars) && any(linRegAllVars$linRegSelectedSplitVars[ , Variables] %in% file.lin.reg$PV.sets == TRUE)) {
        HTML('Warning: One or more of the selected variables in "Split variables" are sets of PVs. Please check the added variables.')
      } else {
        return(NULL)
      }
    })
    output$linRegBckgCatArePVs <- renderText({
      if(!is.null(linRegAllVars$linRegSelectedIndepCatBckgVars) && any(linRegAllVars$linRegSelectedIndepCatBckgVars[ , Variables] %in% file.lin.reg$PV.sets == TRUE)) {
        HTML('Warning: One or more of the selected variables in "Independent background <u>categorical</u> variables" are sets of PVs. Please check the added variables.')
      } else {
        return(NULL)
      }
    })
    output$linRegBckgCntArePVs <- renderText({
      if(!is.null(linRegAllVars$linRegSelectedIndepCntBckgVars) && any(linRegAllVars$linRegSelectedIndepCntBckgVars[ , Variables] %in% file.lin.reg$PV.sets == TRUE)) {
        HTML('Warning: One or more of the selected variables in "Independent background <u>continuous</u> variables" are sets of PVs. Please check the added variables.')
      } else {
        return(NULL)
      }
    })
    output$linRegIndepPVsAreBckg <- renderText({
      if(!is.null(linRegAllVars$linRegSelectedIndepPVVars) && any(linRegAllVars$linRegSelectedIndepPVVars[ , Variables] %in% file.lin.reg$PV.sets == FALSE)) {
        HTML('Warning: One or more of the selected variables in "Independent <u>plausible</u> values" are background variables. Please check the added variables.')
      } else {
        return(NULL)
      }
    })
    output$linRegDepBckgArePVs <- renderText({
      if(!is.null(linRegAllVars$linRegSelectedDepBckgVars) && any(linRegAllVars$linRegSelectedDepBckgVars[ , Variables] %in% file.lin.reg$PV.sets == TRUE)) {
        HTML('Warning: One or more of the selected variables in "Dependent background variables" are sets of PVs. Please check the added variables.')
      } else {
        return(NULL)
      }
    })
    output$linRegDepPVsAreBckg <- renderText({
      if(!is.null(linRegAllVars$linRegSelectedDepPVVars) && any(linRegAllVars$linRegSelectedDepPVVars[ , Variables] %in% file.lin.reg$PV.sets == FALSE)) {
        HTML('Warning: One or more of the selected variables in "Dependent plausible values" are background variables. Please check the added variables.')
      } else {
        return(NULL)
      }
    })
    output$linRegWgtsNotWgts <- renderText({
      if(!is.null(linRegAllVars$linRegSelectedWeightVar) && any(linRegAllVars$linRegSelectedWeightVar[ , Variables] %in% all.studies.available.weights == FALSE)) {
        HTML('Warning: The variable in "Weight variable" is not a weight. Please check the added variable.')
      } else {
        return(NULL)
      }
    })
    observe({
      if(nrow(linRegAllVars$linRegSelectedWeightVar) > 1) {
        showNotification(ui = HTML("Only one weight variable can be selected!"), type = "error")
        linRegAllVars$linRegAvailVars <- rbind(isolate(linRegAllVars$linRegAvailVars),        linRegAllVars$linRegSelectedWeightVar[nrow(linRegAllVars$linRegSelectedWeightVar), , drop = FALSE])
        linRegAllVars$linRegAvailVars <- linRegAllVars$linRegAvailVars[complete.cases(linRegAllVars$linRegAvailVars[ , "Variables"]), , drop = FALSE]
        linRegAllVars$linRegSelectedWeightVar <- isolate(linRegAllVars$linRegSelectedWeightVar[-2, , drop = FALSE])
      }
    })
    observe({
      if(!is.null(linRegAllVars$linRegSelectedDepBckgVars) && nrow(linRegAllVars$linRegSelectedDepBckgVars) > 1) {
        showNotification(ui = HTML("Only one background<br/>variable can be selected<br/>as dependent!"), type = "error")
        linRegAllVars$linRegAvailVars <- rbind(isolate(linRegAllVars$linRegAvailVars),        linRegAllVars$linRegSelectedDepBckgVars[nrow(linRegAllVars$linRegSelectedDepBckgVars), , drop = FALSE])
        linRegAllVars$linRegAvailVars <- linRegAllVars$linRegAvailVars[complete.cases(linRegAllVars$linRegAvailVars[ , "Variables"]), , drop = FALSE]
        linRegAllVars$linRegSelectedDepBckgVars <- isolate(linRegAllVars$linRegSelectedDepBckgVars[-2, , drop = FALSE])
      }
    })
    observe({
      if(!is.null(linRegAllVars$linRegSelectedDepPVVars) && nrow(linRegAllVars$linRegSelectedDepPVVars) > 1) {
        showNotification(ui = HTML("Only one set of PVs<br/>can be selected<br/> as dependent!"), type = "error")
        linRegAllVars$linRegAvailVars <- rbind(isolate(linRegAllVars$linRegAvailVars),        linRegAllVars$linRegSelectedDepPVVars[nrow(linRegAllVars$linRegSelectedDepPVVars), , drop = FALSE])
        linRegAllVars$linRegAvailVars <- linRegAllVars$linRegAvailVars[complete.cases(linRegAllVars$linRegAvailVars[ , "Variables"]), , drop = FALSE]
        linRegAllVars$linRegSelectedDepPVVars <- isolate(linRegAllVars$linRegSelectedDepPVVars[-2, , drop = FALSE])
      }
    })
    observeEvent(eventExpr = input$linRegChooseSrcFile, {
      linRegAllVars$linRegSelectedIndepPVVars <- NULL
      linRegAllVars$linRegSelectedDepBckgVars <- NULL
      linRegAllVars$linRegSelectedDepPVVars <- NULL
    }, ignoreInit = TRUE)
    
    output$linRegEffectiveDF <- renderUI({
      radioButtons(inputId = "linRegEffectiveDF", label = "Effective DF estimation method", choices = c("Welch-Satterthwaite approximation", "Johnson-Rust correction (recommended)"), selected = "Johnson-Rust correction (recommended)")
    })
    
    output$linRegComputations <- renderText({
      HTML("<b>Computational options</b>")
    })
    output$linRegStandardize <- renderUI({
      checkboxInput(inputId = "linRegStandardize", label = "Standardized coefficients", value = FALSE, width = "350px")
    })
    
    output$linRegShortcut <- renderUI({
      if(file.lin.reg$study %in% c("PIRLS", "prePIRLS", "ePIRLS", "RLII", "TIMSS", "eTIMSS PSI", "preTIMSS", "TIMSS Advanced", "TiPi")) {
        checkboxInput(inputId = "linRegShortcut", label = "Use shortcut method for computing SE", value = FALSE, width = "350px")
      }
    })
    shinyFileSave(input, "linRegChooseOutFile", filetype = list(xlsx = "xlsx"), roots = available.volumes, updateFreq = 100000)
    output$linRegOpenOutput <- renderUI({
      if(length(parseSavePath(available.volumes, input$linRegChooseOutFile)$datapath) > 0) {
        checkboxInput(inputId = "linRegOpenOutput", label = "Open the output when done", value = TRUE, width = "250px")
      }
    })
    output$linRegShortcut <- renderUI({
      if(!is.null(file.lin.reg$study) && file.lin.reg$study %in% c("PIRLS", "prePIRLS", "ePIRLS", "RLII", "TIMSS", "eTIMSS PSI", "preTIMSS", "TIMSS Advanced", "TiPi")) {
        checkboxInput(inputId = "linRegShortcut", label = "Use shortcut method for computing SE", value = FALSE, width = "350px")
      }
    })
    syntaxLinReg <- reactive({
      file.lin.reg$lin.reg.syntax <- paste0(
        'lsa.lin.reg(data.file = "', parseFilePaths(available.volumes, input$linRegChooseSrcFile)$datapath, '", ',
        if(length(linRegAllVars$linRegSelectedSplitVars[ , Variables]) == 1) {
          paste0('split.vars = "', linRegAllVars$linRegSelectedSplitVars[ , Variables], '"')
        } else if(length(linRegAllVars$linRegSelectedSplitVars[ , Variables]) > 1) {
          paste0('split.vars = c("', paste(linRegAllVars$linRegSelectedSplitVars[ , Variables], collapse = '", "'), '")')
        },
        if(!is.null(linRegAllVars$linRegSelectedDepBckgVars) && nrow(linRegAllVars$linRegSelectedDepBckgVars) == 1) {
          paste0(', bckg.dep.var = "', linRegAllVars$linRegSelectedDepBckgVars[ , Variables], '"')
        } else if(!is.null(linRegAllVars$linRegSelectedDepBckgVars) && nrow(linRegAllVars$linRegSelectedDepBckgVars) == 0) {
          NULL
        },
        if(!is.null(linRegAllVars$linRegSelectedDepPVVars) && nrow(linRegAllVars$linRegSelectedDepPVVars) == 1) {
          paste0(', PV.root.dep = "', linRegAllVars$linRegSelectedDepPVVars[ , Variables], '"')
        } else if(!is.null(linRegAllVars$linRegSelectedDepPVVars) && nrow(linRegAllVars$linRegSelectedDepPVVars) == 0) {
          NULL
        },
        if(length(linRegAllVars$linRegSelectedIndepCntBckgVars[ , Variables]) == 1) {
          paste0(', bckg.indep.cont.vars = "', linRegAllVars$linRegSelectedIndepCntBckgVars[ , Variables], '"')
        } else if(length(linRegAllVars$linRegSelectedIndepCntBckgVars[ , Variables]) > 1) {
          paste0(', bckg.indep.cont.vars = c("', paste(linRegAllVars$linRegSelectedIndepCntBckgVars[ , Variables], collapse = '", "'), '")')
        },
        if(length(linRegAllVars$linRegSelectedIndepCatBckgVars[ , Variables]) == 1) {
          paste0(', bckg.indep.cat.vars = "', linRegAllVars$linRegSelectedIndepCatBckgVars[ , Variables], '"')
        } else if(length(linRegAllVars$linRegSelectedIndepCatBckgVars[ , Variables]) > 1) {
          paste0(', bckg.indep.cat.vars = c("', paste(linRegAllVars$linRegSelectedIndepCatBckgVars[ , Variables], collapse = '", "'), '")')
        },
        if(length(linRegAllVars$linRegSelectedIndepCatBckgVars[ , Variables]) == 1 && !is.null(new.lin.reg.contrasts$contrasts)) {
          paste0(', bckg.cat.contrasts = "', tolower(new.lin.reg.contrasts$contrasts), '"')
        } else if(length(linRegAllVars$linRegSelectedIndepCatBckgVars[ , Variables]) > 1 && !is.null(new.lin.reg.contrasts$contrasts)) {
          paste0(', bckg.cat.contrasts = c("', paste(tolower(new.lin.reg.contrasts$contrasts), collapse = '", "'), '")')
        },
        if(length(linRegAllVars$linRegSelectedIndepCatBckgVars[ , Variables]) == 1) {
          paste0(', bckg.ref.cats = ', unlist(lapply(X = file.lin.reg$var.unique.values[linRegAllVars$linRegSelectedIndepCatBckgVars[ , Variables]], FUN = function(i) {
            which(i %in% new.lin.reg.contrasts$ref.cats)
          })))
        } else if(length(linRegAllVars$linRegSelectedIndepCatBckgVars[ , Variables]) > 1) {
          paste0(', bckg.ref.cats = c(', paste(unlist(lapply(X = file.lin.reg$var.unique.values[linRegAllVars$linRegSelectedIndepCatBckgVars[ , Variables]], FUN = function(i) {
            which(i %in% new.lin.reg.contrasts$ref.cats)
          })), collapse = ", "), ')')
        },
        if(!is.null(linRegAllVars$linRegSelectedIndepPVVars) && length(linRegAllVars$linRegSelectedIndepPVVars[ , Variables]) == 1) {
          paste0(', PV.root.indep = "', linRegAllVars$linRegSelectedIndepPVVars[ , Variables], '"')
        } else if(!is.null(linRegAllVars$linRegSelectedIndepPVVars) && length(linRegAllVars$linRegSelectedIndepPVVars[ , Variables]) > 1) {
          paste0(', PV.root.indep = c("', paste(linRegAllVars$linRegSelectedIndepPVVars[ , Variables], collapse = '", "'), '")')
        },
        suppressWarnings(if(nrow(linRegSelectedInteractions() > 0)) {
          paste0(', interactions = list(', paste(unlist(apply(X = linRegSelectedInteractions(), MARGIN = 1, FUN = function(i) {
            paste0('c("', i[['Variable1']], '", "', i[['Variable2']], '")')
          }, simplify = FALSE)), collapse = ', '), ')')
        }),
        if(!is.null(input$linRegStandardize) && input$linRegStandardize == TRUE) {
          ", standardize = TRUE"
        },
        if(nrow(linRegAllVars$linRegSelectedWeightVar) == 1 && !is.null(file.lin.reg$default.weight) && linRegAllVars$linRegSelectedWeightVar[ , Variables] == file.lin.reg$default.weight) {
          NULL
        } else if(nrow(linRegAllVars$linRegSelectedWeightVar) == 1 && !is.null(file.lin.reg$default.weight) && linRegAllVars$linRegSelectedWeightVar[ , Variables] %in% all.studies.available.weights && linRegAllVars$linRegSelectedWeightVar[ , Variables] != file.lin.reg$default.weight) {
          paste0(', weight.var = "', linRegAllVars$linRegSelectedWeightVar[ , Variables], '"')
        } else if(nrow(linRegAllVars$linRegSelectedWeightVar) == 0) {
          NULL
        },
        if(!is.null(input$linRegEffectiveDF) && input$linRegEffectiveDF != "Johnson-Rust correction (recommended)") {
          ', DF.type = "WS"'
        } else {
          NULL
        },
        if(!is.null(input$linRegInclMiss) && input$linRegInclMiss == TRUE) {
          ", include.missing = TRUE"
        },
        if(!is.null(input$linRegShortcut) && input$linRegShortcut == TRUE) {
          ", shortcut = TRUE"
        },
        paste0(', output.file = "', parseSavePath(available.volumes, input$linRegChooseOutFile)$datapath, '"'),
        if(!is.null(input$linRegOpenOutput) && input$linRegOpenOutput == FALSE) {
          ', open.output = FALSE'
        } else if(!is.null(input$linRegOpenOutput) && input$linRegOpenOutput == TRUE) {
          NULL
        },
        ')'
      )
    })
    output$linRegSyntaxHead <- renderText({
      if(length(parseSavePath(available.volumes, input$linRegChooseOutFile)$datapath) == 1) {
        HTML("Syntax")
      } else {
        return(NULL)
      }
    })
    observe.syntax.save.button <- eval(parse(text = string.observe.syntax.save.button))
    observe.syntax.save.button(input = input, session = session, syntax.ID = "saveLinRegSyntax", syntax.object = "syntaxLinReg()", volumes = available.volumes)
    output$copyLinRegSyntax <- renderUI({
      rclipButton(inputId = "copyLinRegSyntax", label = "Copy syntax", clipText = syntaxLinReg(), icon = icon("copy"), style = "color: #ffffff; background-color: #000000; border-radius: 5px; font-size: 80%; margin-bottom: 1px; padding: 1px; width: 85px; margin-top: 1px")
    })
    output$linRegSyntax <- renderText({
      if(length(parseSavePath(available.volumes, input$linRegChooseOutFile)$datapath) == 1) {
        syntaxLinReg()
      } else {
        return(NULL)
      }
    })
    output$linRegExecBtnHead <- renderText({
      if(length(parseSavePath(available.volumes, input$linRegChooseOutFile)$datapath) == 1) {
        HTML("Press the button below to execute the syntax")
      } else {
        return(NULL)
      }
    })
    output$execLinReg <- renderUI({
      if(length(parseSavePath(available.volumes, input$linRegChooseOutFile)$datapath) == 1) {
        actionButton(inputId = "execLinReg", label = "Execute syntax", icon = icon("cogs"), style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      } else {
        return(NULL)
      }
    })
    observe({
      if(
        nrow(rbindlist(l = list(linRegAllVars$linRegSelectedIndepCatBckgVars, linRegAllVars$linRegSelectedIndepCntBckgVars, linRegAllVars$linRegSelectedIndepPVVars))) > 0 && nrow(rbindlist(l = list(linRegAllVars$linRegSelectedDepBckgVars, linRegAllVars$linRegSelectedDepPVVars))) == 0 ||
        nrow(rbindlist(l = list(linRegAllVars$linRegSelectedIndepCatBckgVars, linRegAllVars$linRegSelectedIndepCntBckgVars, linRegAllVars$linRegSelectedIndepPVVars))) == 0 && nrow(rbindlist(l = list(linRegAllVars$linRegSelectedDepBckgVars, linRegAllVars$linRegSelectedDepPVVars))) > 0 ||
        nrow(rbindlist(l = list(linRegAllVars$linRegSelectedIndepCatBckgVars, linRegAllVars$linRegSelectedIndepCntBckgVars, linRegAllVars$linRegSelectedIndepPVVars))) == 0 && nrow(rbindlist(l = list(linRegAllVars$linRegSelectedDepBckgVars, linRegAllVars$linRegSelectedDepPVVars))) == 0 ||
        is.null(file.lin.reg$loaded) ||
        !is.null(linRegAllVars$linRegSelectedIndepPVVars) && any(linRegAllVars$linRegSelectedIndepPVVars[ , Variables] %in% file.lin.reg$PV.sets == FALSE) ||
        !is.null(linRegAllVars$linRegSelectedDepPVVars) && nrow(linRegAllVars$linRegSelectedDepPVVars) > 0 && any(linRegAllVars$linRegSelectedDepPVVars[ , Variables] %in% file.lin.reg$PV.sets == FALSE) ||
        !is.null(linRegAllVars$linRegSelectedDepBckgVars) && any(linRegAllVars$linRegSelectedDepBckgVars[ , Variables] %in% file.lin.reg$PV.sets == TRUE) ||
        !is.null(linRegAllVars$linRegSelectedSplitVars) && any(linRegAllVars$linRegSelectedSplitVars[ , Variables] %in% file.lin.reg$PV.sets == TRUE) ||
        !is.null(linRegAllVars$linRegSelectedIndepCatBckgVars) && any(linRegAllVars$linRegSelectedIndepCatBckgVars[ , Variables] %in% file.lin.reg$PV.sets == TRUE) ||
        !is.null(linRegAllVars$linRegSelectedIndepCntBckgVars) && any(linRegAllVars$linRegSelectedIndepCntBckgVars[ , Variables] %in% file.lin.reg$PV.sets == TRUE) ||
        !is.null(linRegAllVars$linRegSelectedWeightVar) && any(linRegAllVars$linRegSelectedWeightVar[ , Variables] %in% all.studies.available.weights == FALSE) ||
        is.null(file.lin.reg$default.weight) ||
        length(file.lin.reg$default.weight) == 0) {
        hide("linRegEffectiveDF")
        hide("linRegComputations")
        hide("linRegShortcut")
        hide("linRegStandardize")
        hide("linRegChooseOutFile")
        hide("linRegOpenOutput")
        hide("linRegSyntaxHead")
        hide("linRegSyntax")
        hide("linRegExecBtnHead")
        hide("execLinReg")
        hide("consoleLinReg")
      } else if (
        nrow(rbindlist(l = list(linRegAllVars$linRegSelectedIndepCatBckgVars, linRegAllVars$linRegSelectedIndepCntBckgVars))) > 0 && nrow(rbindlist(l = list(linRegAllVars$linRegSelectedIndepPVVars, linRegAllVars$linRegSelectedDepPVVars))) > 0 ||
        !is.null(file.lin.reg$loaded) ||
        !is.null(inRegAllVars$linRegSelectedIndepPVVars) && any(linRegAllVars$linRegSelectedIndepPVVars[ , Variables] %in% file.lin.reg$PV.sets == TRUE) ||
        !is.null(linRegAllVars$linRegSelectedDepPVVars) && nrow(linRegAllVars$linRegSelectedDepPVVars) > 0 && any(linRegAllVars$linRegSelectedDepPVVars[ , Variables] %in% file.lin.reg$PV.sets == TRUE) ||
        !is.null(linRegAllVars$linRegSelectedDepBckgVars) && any(linRegAllVars$linRegSelectedDepBckgVars[ , Variables] %in% file.lin.reg$PV.sets == FALSE) ||
        !is.null(linRegAllVars$linRegSelectedSplitVars) && any(linRegAllVars$linRegSelectedSplitVars[ , Variables] %in% file.lin.reg$PV.sets == FALSE) ||
        !is.null(linRegAllVars$linRegSelectedCatBckgVars) && any(linRegAllVars$linRegSelectedCatBckgVars[ , Variables] %in% file.lin.reg$PV.sets == FALSE) ||
        !is.null(linRegAllVars$linRegSelectedCntBckgVars) && any(linRegAllVars$linRegSelectedCntBckgVars[ , Variables] %in% file.lin.reg$PV.sets == FALSE) ||
        !is.null(linRegAllVars$linRegSelectedWeightVar) && any(linRegAllVars$linRegSelectedWeightVar[ , Variables] %in% all.studies.available.weights == TRUE) ||
        !is.null(file.lin.reg$default.weight) ||
        length(file.lin.reg$default.weight) != 0) {
        show("linRegEffectiveDF")
        show("linRegComputations")
        show("linRegShortcut")
        show("linRegStandardize")
        show("linRegChooseOutFile")
        show("linRegOpenOutput")
        show("linRegSyntaxHead")
        show("linRegSyntax")
        show("linRegExecBtnHead")
        show("execLinReg")
        show("consoleLinReg")
      }
      if(is.null(file.lin.reg$default.weight) || length(file.lin.reg$default.weight) == 0) {
        hide("linRegVariablesExplText")
        hide("linRegAllAvailableVars")
        hide("linRegArrowSelSplitVarsRight")
        hide("linRegArrowSelSplitVarsLeft")
        hide("linRegSplitVars")
        hide("linRegInclMiss")
        hide("linRegArrowSelIndepCatBckgVarsRight")
        hide("linRegArrowSelIndepCatBckgVarsLeft")
        hide("linRegArrowSelIndepCntBckgVarsRight")
        hide("linRegArrowSelIndepCntBckgVarsLeft")
        hide("linRegIndepCatCaption")
        hide("linRegIndepCatBckgVars")
        hide("linRegIndepCntBckgVars")
        hide("linRegArrowSelIndepPVsRight")
        hide("linRegArrowSelIndepPVsLeft")
        hide("linRegIndepPVVars")
        hide("linRegArrowSelIndepPVsRightDisbld")
        hide("linRegArrowSelIndepPVsLeftDisbld")
        hide("linRegIndepPVVarsDisbld")
        hide("linRegChooseDepType")
        hide("linRegArrowSelDepBckgVarsRight")
        hide("linRegArrowSelDepBckgVarsLeft")
        hide("linRegDepBckgVars")
        hide("linRegDepPVVars")
        hide("linRegDepPVVarsDisbld")
        hide("linRegInteractions")
        hide("linRegArrowSelWeightVarsRight")
        hide("linRegArrowSelWeightVarsLeft")
        hide("linRegWeightVar")
      } else if(!is.null(file.lin.reg$default.weight) || length(file.lin.reg$default.weight) != 0) {
        show("linRegVariablesExplText")
        show("linRegAllAvailableVars")
        show("linRegArrowSelSplitVarsRight")
        show("linRegArrowSelSplitVarsLeft")
        show("linRegSplitVars")
        show("linRegInclMiss")
        show("linRegArrowSelIndepCatBckgVarsRight")
        show("linRegArrowSelIndepCatBckgVarsLeft")
        show("linRegArrowSelIndepCntBckgVarsRight")
        show("linRegArrowSelIndepCntBckgVarsLeft")
        show("linRegIndepCatCaption")
        show("linRegIndepCatBckgVars")
        show("linRegIndepCntBckgVars")
        show("linRegArrowSelIndepPVsRight")
        show("linRegArrowSelIndepPVsLeft")
        show("linRegIndepPVVars")
        show("linRegArrowSelIndepPVsRightDisbld")
        show("linRegArrowSelIndepPVsLeftDisbld")
        show("linRegIndepPVVarsDisbld")
        show("linRegChooseDepType")
        show("linRegArrowSelDepBckgVarsRight")
        show("linRegArrowSelDepBckgVarsLeft")
        show("linRegDepBckgVars")
        show("linRegDepPVVars")
        show("linRegDepPVVarsDisbld")
        show("linRegInteractions")
        show("linRegArrowSelWeightVarsRight")
        show("linRegArrowSelWeightVarsLeft")
        show("linRegWeightVar")
      }
      if(
        nrow(rbindlist(l = list(linRegAllVars$linRegSelectedIndepCatBckgVars, linRegAllVars$linRegSelectedIndepCntBckgVars, linRegAllVars$linRegSelectedIndepPVVars))) == 0 || nrow(rbindlist(l = list(linRegAllVars$linRegSelectedDepBckgVars, linRegAllVars$linRegSelectedDepPVVars))) == 0 ||
        !is.null(linRegAllVars$linRegSelectedDepPVVars) && nrow(linRegAllVars$linRegSelectedDepPVVars) > 0 && any(linRegAllVars$linRegSelectedDepPVVars[ , Variables] %in% file.lin.reg$PV.sets == FALSE) ||
        !is.null(linRegAllVars$linRegSelectedIndepPVVars) && any(linRegAllVars$linRegSelectedIndepPVVars[ , Variables] %in% file.lin.reg$PV.sets == FALSE) ||
        length(parseSavePath(available.volumes, input$linRegChooseOutFile)$datapath) == 0
      ) {
        hide("saveLinRegSyntax")
        hide("copyLinRegSyntax")
      } else {
        show("saveLinRegSyntax")
        show("copyLinRegSyntax")
      }
    })
  }
})
observeEvent(input$execLinReg, {
  showNotification(ui = HTML("<br/>   Execution started.   <br/><br/>"), type = "message")
  withCallingHandlers({html("consoleLinReg", "")
    tryCatch({
      expr = eval(parse(text = file.lin.reg$lin.reg.syntax))
      showNotification(ui = HTML("<br/>   All operations complete!   <br/><br/>"), type = "message", duration = NULL)
    }, error = function(e) {
      message("", e)
      showNotification(ui = HTML(paste0("Something went wrong. Possible reasons: <br/>", paste(gsub(pattern = "\\n|Error: ", replacement = "<br/>", x = e)))), type = "error", duration = NULL)
    })
  },
  message = function(i) {
    shinyjs::html(id = "consoleLinReg", html = i$message, add = TRUE)
  },
  warning = function(w) {
    shinyjs::html(id = "consoleLinReg", html = paste0("Warning: ", w$message, "\n"), add = TRUE)
  })
  session$sendCustomMessage(type = "scrollCallback", 1)
}, ignoreInit = TRUE)
hide("binLogRegChooseOutFile")
hide("saveBinLogRegSyntax")
hide("copyBinLogRegSyntax")
output$h1binLogReg <- renderText("Binary logistic regression")
output$binLogRegIntro <- renderText({HTML("Select large-scale assessment .RData file to load.")})
file.bin.log.reg <- reactiveValues(loaded = NULL, is.lsa.data = NULL, resp.type = NULL, study = NULL, cycle = NULL, country.ID = NULL, PV.sets = NULL, var.levels = NULL, var.num.values = NULL, var.char.values = NULL, var.missings = NULL, var.unique.values = NULL, default.weight = NULL, bin.log.reg.syntax = NULL)
shinyFileChoose(input, "binLogRegChooseSrcFile", roots = available.volumes, filetype = list(RData = "RData"))
observeEvent(eventExpr = input$binLogRegChooseSrcFile, {
  file.bin.log.reg$loaded <- NULL
  file.bin.log.reg$is.lsa.data <- FALSE
  file.bin.log.reg$resp.type <- NULL
  file.bin.log.reg$study <- NULL
  file.bin.log.reg$cycle <- NULL
  file.bin.log.reg$var.classes <- NULL
  file.bin.log.reg$default.weight <- NULL
  if(length(parseFilePaths(available.volumes, input$binLogRegChooseSrcFile)$datapath) > 0 && file.size(parseFilePaths(available.volumes, input$binLogRegChooseSrcFile)$datapath) > 104857600) {
    showNotification(ui = HTML('The size of the selected<br/>file is rather large. Please<br/>wait until the file is loaded.'), type = "message")
  }
  if(length(parseFilePaths(available.volumes, input$binLogRegChooseSrcFile)$datapath) > 0) {
    file.bin.log.reg$loaded <- get(load(parseFilePaths(available.volumes, input$binLogRegChooseSrcFile)$datapath))
    file.bin.log.reg$var.levels <- Filter(Negate(is.null), lapply(X = file.bin.log.reg$loaded, FUN = function(i) {
      if(is.null(attr(x = i, which = "levels"))) {
        NULL
      } else {
        attr(x = i, which = "levels")
      }
    }))
    file.bin.log.reg$var.num.values <- Filter(Negate(is.null), lapply(X = file.bin.log.reg$loaded, FUN = function(i) {
      if(!is.numeric(i)) {
        NULL
      } else {
        sort(unique(i[!is.na(i)]))
      }
    }))
    file.bin.log.reg$var.char.values <- Filter(Negate(is.null), lapply(X = file.bin.log.reg$loaded, FUN = function(i) {
      if(!is.character(i)) {
        NULL
      } else {
        unique(i[!is.na(i)])
      }
    }))
    file.bin.log.reg$missings <- Filter(Negate(is.null), lapply(X = file.bin.log.reg$loaded, FUN = function(i) {
      if(is.null(attr(x = i, which = "missings"))) {
        NULL
      } else {
        if(is.null(names(i))) {
          attr(x = i, which = "missings")
        } else {
          tmp.names.miss <- names(attr(x = i, which = "missings"))
          tmp.miss <- attr(x = i, which = "missings")
          names(tmp.miss) <- tmp.names.miss
        }
      }
    }))
    file.bin.log.reg$var.unique.values <- c(file.bin.log.reg$var.levels, file.bin.log.reg$var.num.values, file.bin.log.reg$var.char.values)
    tmp.names <- names(file.bin.log.reg$var.unique.values)
    file.bin.log.reg$var.unique.values <- lapply(names(file.bin.log.reg$var.unique.values), function(i) {
      setdiff(file.bin.log.reg$var.unique.values[[i]], file.bin.log.reg$missings[[i]])
    })
    names(file.bin.log.reg$var.unique.values) <- tmp.names
    if("lsa.data" %in% class(file.bin.log.reg$loaded)) {
      file.bin.log.reg$is.lsa.data <- TRUE
    } else {
      file.bin.log.reg$is.lsa.data <- FALSE
    }
    file.bin.log.reg$study <- attr(x = file.bin.log.reg$loaded, which = "study")
    file.bin.log.reg$cycle <- attr(x = file.bin.log.reg$loaded, which = "cycle")
    file.bin.log.reg$resp.type <- attr(x = file.bin.log.reg$loaded, which = "file.type")
    file.bin.log.reg$loaded <- data.table(Variables = names(file.bin.log.reg$loaded), Variable_Labels = sapply(X = file.bin.log.reg$loaded, FUN = function(j) {
      if(is.null(attr(x = j, which = "variable.label"))) {
        return(NA_character_)
      } else {
        attr(x = j, which = "variable.label")
      }
    }),
    order_col = 1:ncol(file.bin.log.reg$loaded))
    file.bin.log.reg$PV.sets <- NULL
    tmp.PV.names <- grep(pattern = paste(all.available.PVs, collapse = "|"), x = file.bin.log.reg$loaded[ , Variables], value = TRUE)
    if(length(tmp.PV.names) > 0) {
      collapsed.PVs <- collapse.loaded.file.PV.names(PV.vector = tmp.PV.names, vars.object = file.bin.log.reg$loaded)
      file.bin.log.reg$loaded <- file.bin.log.reg$loaded[!Variables %in% tmp.PV.names]
      file.bin.log.reg$loaded <- rbindlist(l = list(file.bin.log.reg$loaded, collapsed.PVs))
      setkeyv(x = file.bin.log.reg$loaded, cols = "order_col")
      file.bin.log.reg$PV.sets <- collapsed.PVs[ , Variables]
    }
    if(!is.null(file.bin.log.reg$study)) {
      file.bin.log.reg$default.weight <- define.default.weight(study = file.bin.log.reg$study, loaded.names.and.labels = file.bin.log.reg$loaded, respondent.type = file.bin.log.reg$resp.type)
    }
    file.bin.log.reg$country.ID <- NULL
    if("IDCNTRY" %in% file.bin.log.reg$loaded[ , Variables]) {
      file.bin.log.reg$country.ID <- "IDCNTRY"
    } else {
      file.bin.log.reg$country.ID <- "CNT"
    }
  }
  output$binLogRegSrcPathDisplay <- renderText({parseFilePaths(available.volumes, input$binLogRegChooseSrcFile)$datapath})
}, ignoreInit = TRUE)
observe({
  if(!is.null(file.bin.log.reg$loaded) && file.bin.log.reg$is.lsa.data == FALSE) {
    showNotification(ui = HTML('The data is not of class "lsa.data".<br/>Please check the file content.'), type = "error")
  } else if (!is.null(file.bin.log.reg$loaded) && file.bin.log.reg$is.lsa.data == TRUE) {
    output$binLogRegStudyName <- renderText({
      if(is.null(file.bin.log.reg$resp.type)) {
        return(NULL)
      } else {
        HTML(paste0('Study: ', file.bin.log.reg$study))
      }
    })
    output$binLogRegStudyCycle <- renderText({
      if(is.null(file.bin.log.reg$resp.type)) {
        return(NULL)
      } else {
        HTML(paste0('Cycle: ', file.bin.log.reg$cycle))
      }
    })
    output$binLogRegRespHead <- renderText({
      if(is.null(file.bin.log.reg$resp.type)) {
        return(NULL)
      } else {
        HTML('<u>The file contains data from the following respondents:</u>')
      }
    })
    output$binLogRegRespAvailable <- renderText({
      if(is.null(file.bin.log.reg$resp.type)) {
        return(NULL)
      } else {
        HTML(file.merged.respondents[[file.bin.log.reg$resp.type]])
      }
    })
    output$binLogRegNoWeights <- renderText({
      if(!is.null(file.bin.log.reg$loaded) && is.null(file.bin.log.reg$default.weight) || !is.null(file.bin.log.reg$loaded) && length(file.bin.log.reg$default.weight) == 0) {
        HTML('Error: The loaded file does not contain any recognizable default weight variable. Such files cannot be analyzed on their own and must be merged with other respondents in advance.')
      } else {
        return(NULL)
      }
    })
    output$binLogRegVariablesExplText <- renderText({
      if(is.null(file.bin.log.reg$resp.type)) {
        return(NULL)
      } else {
        HTML('Use the panels below to select variables to compute binary logistic regression coefficients within groups specified by splitting variables.')
      }
    })
    bin.log.reg.initial.available.vars <- file.bin.log.reg$loaded[!Variables %in% c(file.bin.log.reg$default.weight, file.bin.log.reg$country.ID), ]
    bin.log.reg.initial.selected.split.vars <- file.bin.log.reg$loaded[Variables == file.bin.log.reg$country.ID, ]
    bin.log.reg.initial.selected.indep.cat.bckg.vars <- data.table(Variables = as.character(), Variable_Labels = as.character(), order_col = as.numeric())
    bin.log.reg.initial.selected.indep.cnt.bckg.vars <- data.table(Variables = as.character(), Variable_Labels = as.character(), order_col = as.numeric())
    bin.log.reg.initial.selected.indep.PV.vars <- data.table(Variables = as.character(), Variable_Labels = as.character(), order_col = as.numeric())
    bin.log.reg.initial.selected.dep.bin.vars <- data.table(Variables = as.character(), Variable_Labels = as.character(), order_col = as.numeric())
    bin.log.reg.initial.selected.weight.var <- file.bin.log.reg$loaded[Variables %in% file.bin.log.reg$default.weight, ]
    bin.log.reg.initial.interactions <- data.table(Variable1 = as.character(), Check = as.character(), Variable2 = as.character())
    binLogRegAllVars <- reactiveValues(binLogRegAvailVars = bin.log.reg.initial.available.vars, binLogRegSelectedSplitVars = bin.log.reg.initial.selected.split.vars, binLogRegSelectedIndepCatBckgVars = bin.log.reg.initial.selected.indep.cat.bckg.vars, binLogRegSelectedIndepCntBckgVars = bin.log.reg.initial.selected.indep.cnt.bckg.vars, binLogRegSelectedIndepPVVars = bin.log.reg.initial.selected.indep.PV.vars, binLogRegSelectedDepBinVars = bin.log.reg.initial.selected.dep.bin.vars, binLogRegSelectedWeightVar = bin.log.reg.initial.selected.weight.var)
    output$binLogRegArrowSelSplitVarsRight <- renderUI({
      if(is.null(file.bin.log.reg$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "binLogRegArrowSelSplitVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$binLogRegArrowSelSplitVarsLeft <- renderUI({
      if(is.null(file.bin.log.reg$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "binLogRegArrowSelSplitVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$binLogRegArrowSelIndepCatBckgVarsRight <- renderUI({
      if(is.null(file.bin.log.reg$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "binLogRegArrowSelIndepCatBckgVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px; margin-top: 9px")
      }
    })
    output$binLogRegArrowSelIndepCatBckgVarsLeft <- renderUI({
      if(is.null(file.bin.log.reg$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "binLogRegArrowSelIndepCatBckgVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$binLogRegArrowSelIndepCntBckgVarsRight <- renderUI({
      if(is.null(file.bin.log.reg$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "binLogRegArrowSelIndepCntBckgVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$binLogRegArrowSelIndepCntBckgVarsLeft <- renderUI({
      if(is.null(file.bin.log.reg$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "binLogRegArrowSelIndepCntBckgVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$binLogRegArrowSelIndepPVsRight <- renderUI({
      if(is.null(file.bin.log.reg$resp.type) || is.null(file.bin.log.reg$PV.sets)) {
        return(NULL)
      } else {
        actionButton(inputId = "binLogRegArrowSelIndepPVsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$binLogRegArrowSelIndepPVsLeft <- renderUI({
      if(is.null(file.bin.log.reg$resp.type) || is.null(file.bin.log.reg$PV.sets)) {
        return(NULL)
      } else {
        actionButton(inputId = "binLogRegArrowSelIndepPVsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$binLogRegArrowSelIndepPVsRightDisbld <- renderUI({
      if(is.null(file.bin.log.reg$resp.type) || is.null(file.bin.log.reg$PV.sets)) {
        actionButton(inputId = "binLogRegArrowSelIndepPVsRightDisbld", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #c6c6c6; border-radius: 10px")
      } else {
        return(NULL)
      }
    })
    output$binLogRegArrowSelIndepPVsLeftDisbld <- renderUI({
      if(is.null(file.bin.log.reg$resp.type) || is.null(file.bin.log.reg$PV.sets)) {
        actionButton(inputId = "binLogRegArrowSelIndepPVsLeftDisbld", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #c6c6c6; border-radius: 10px")
      } else {
        return(NULL)
      }
    })
    output$binLogRegArrowSelDepBinVarsRight <- renderUI({
      if(is.null(file.bin.log.reg$resp.type)) {
        return(NULL)
      } else if(!is.null(file.bin.log.reg$resp.type)) {
        actionButton(inputId = "binLogRegArrowSelDepBinVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$binLogRegArrowSelDepBinVarsLeft <- renderUI({
      if(is.null(file.bin.log.reg$resp.type)) {
        return(NULL)
      } else if(!is.null(file.bin.log.reg$resp.type)) {
        actionButton(inputId = "binLogRegArrowSelDepBinVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$binLogRegArrowSelWeightVarsRight <- renderUI({
      if(is.null(file.bin.log.reg$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "binLogRegArrowSelWeightVarsRight", label = NULL, icon("angle-right"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    output$binLogRegArrowSelWeightVarsLeft <- renderUI({
      if(is.null(file.bin.log.reg$resp.type)) {
        return(NULL)
      } else {
        actionButton(inputId = "binLogRegArrowSelWeightVarsLeft", label = NULL, icon("angle-left"), width = "50px", style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      }
    })
    observeEvent(input$binLogRegArrowSelSplitVarsRight, {
      req(input$binLogRegAllAvailableVars_rows_selected)
      binLogRegAllVars$binLogRegSelectedSplitVars <- rbind(isolate(binLogRegAllVars$binLogRegSelectedSplitVars), binLogRegAllVars$binLogRegAvailVars[input$binLogRegAllAvailableVars_rows_selected, , drop = FALSE])
      binLogRegAllVars$binLogRegSelectedSplitVars <- binLogRegAllVars$binLogRegSelectedSplitVars[complete.cases(binLogRegAllVars$binLogRegSelectedSplitVars[ , "Variables"]), , drop = FALSE]
      binLogRegAllVars$binLogRegAvailVars <- isolate(binLogRegAllVars$binLogRegAvailVars[-input$binLogRegAllAvailableVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$binLogRegArrowSelSplitVarsLeft, {
      req(input$binLogRegSplitVars_rows_selected)
      binLogRegAllVars$binLogRegAvailVars <- rbind(isolate(binLogRegAllVars$binLogRegAvailVars),        binLogRegAllVars$binLogRegSelectedSplitVars[input$binLogRegSplitVars_rows_selected, , drop = FALSE])
      binLogRegAllVars$binLogRegAvailVars <- binLogRegAllVars$binLogRegAvailVars[complete.cases(binLogRegAllVars$binLogRegAvailVars[ , "Variables"]), , drop = FALSE]
      if(nrow(binLogRegAllVars$binLogRegSelectedSplitVars) > 0) {
        binLogRegAllVars$binLogRegSelectedSplitVars <- isolate(binLogRegAllVars$binLogRegSelectedSplitVars[-input$binLogRegSplitVars_rows_selected, , drop = FALSE])
      }
      if(!file.bin.log.reg$country.ID %in% binLogRegAllVars$binLogRegSelectedSplitVars[ , Variables]) {
        showNotification(ui = HTML("Country ID <b>must always be</b> the first splitting variable!"), type = "error")
      }
      binLogRegAllVars$binLogRegSelectedSplitVars <- rbindlist(l = list(binLogRegAllVars$binLogRegSelectedSplitVars, binLogRegAllVars$binLogRegAvailVars[Variables == file.bin.log.reg$country.ID, ]))
      binLogRegAllVars$binLogRegAvailVars <- binLogRegAllVars$binLogRegAvailVars[Variables != file.bin.log.reg$country.ID, ]
    })
    observeEvent(input$binLogRegArrowSelIndepCatBckgVarsRight, {
      req(input$binLogRegAllAvailableVars_rows_selected)
      binLogRegAllVars$binLogRegSelectedIndepCatBckgVars <- rbind(isolate(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars), binLogRegAllVars$binLogRegAvailVars[input$binLogRegAllAvailableVars_rows_selected, , drop = FALSE])
      binLogRegAllVars$binLogRegSelectedIndepCatBckgVars <- binLogRegAllVars$binLogRegSelectedIndepCatBckgVars[complete.cases(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars[ , "Variables"]), , drop = FALSE]
      binLogRegAllVars$binLogRegAvailVars <- isolate(binLogRegAllVars$binLogRegAvailVars[-input$binLogRegAllAvailableVars_rows_selected, , drop = FALSE])
      session$sendCustomMessage("unbindDT", "binLogRegIndepCatBckgVars")
    })
    observeEvent(input$binLogRegArrowSelIndepCatBckgVarsLeft, {
      req(input$binLogRegIndepCatBckgVars_rows_selected)
      binLogRegAllVars$binLogRegAvailVars <- rbind(isolate(binLogRegAllVars$binLogRegAvailVars),        binLogRegAllVars$binLogRegSelectedIndepCatBckgVars[input$binLogRegIndepCatBckgVars_rows_selected, , drop = FALSE])
      binLogRegAllVars$binLogRegAvailVars <- binLogRegAllVars$binLogRegAvailVars[complete.cases(binLogRegAllVars$binLogRegAvailVars[ , "Variables"]), , drop = FALSE]
      binLogRegAllVars$binLogRegSelectedIndepCatBckgVars <- isolate(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars[-input$binLogRegIndepCatBckgVars_rows_selected, , drop = FALSE])
      session$sendCustomMessage("unbindDT", "binLogRegIndepCatBckgVars")
    })
    observeEvent(input$binLogRegArrowSelIndepCntBckgVarsRight, {
      req(input$binLogRegAllAvailableVars_rows_selected)
      binLogRegAllVars$binLogRegSelectedIndepCntBckgVars <- rbind(isolate(binLogRegAllVars$binLogRegSelectedIndepCntBckgVars), binLogRegAllVars$binLogRegAvailVars[input$binLogRegAllAvailableVars_rows_selected, , drop = FALSE])
      binLogRegAllVars$binLogRegSelectedIndepCntBckgVars <- binLogRegAllVars$binLogRegSelectedIndepCntBckgVars[complete.cases(binLogRegAllVars$binLogRegSelectedIndepCntBckgVars[ , "Variables"]), , drop = FALSE]
      if(nrow(binLogRegAllVars$binLogRegSelectedIndepCntBckgVars) > 0) {
        binLogRegAllVars$binLogRegAvailVars <- isolate(binLogRegAllVars$binLogRegAvailVars[-input$binLogRegAllAvailableVars_rows_selected, , drop = FALSE])
      }
    })
    observeEvent(input$binLogRegArrowSelIndepCntBckgVarsLeft, {
      req(input$binLogRegIndepCntBckgVars_rows_selected)
      binLogRegAllVars$binLogRegAvailVars <- rbind(isolate(binLogRegAllVars$binLogRegAvailVars),        binLogRegAllVars$binLogRegSelectedIndepCntBckgVars[input$binLogRegIndepCntBckgVars_rows_selected, , drop = FALSE])
      binLogRegAllVars$binLogRegAvailVars <- binLogRegAllVars$binLogRegAvailVars[complete.cases(binLogRegAllVars$binLogRegAvailVars[ , "Variables"]), , drop = FALSE]
      binLogRegAllVars$binLogRegSelectedIndepCntBckgVars <- isolate(binLogRegAllVars$binLogRegSelectedIndepCntBckgVars[-input$binLogRegIndepCntBckgVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$binLogRegArrowSelIndepPVsRight, {
      req(input$binLogRegAllAvailableVars_rows_selected)
      binLogRegAllVars$binLogRegSelectedIndepPVVars <- rbind(isolate(binLogRegAllVars$binLogRegSelectedIndepPVVars), binLogRegAllVars$binLogRegAvailVars[input$binLogRegAllAvailableVars_rows_selected, , drop = FALSE])
      binLogRegAllVars$binLogRegSelectedIndepPVVars <- binLogRegAllVars$binLogRegSelectedIndepPVVars[complete.cases(binLogRegAllVars$binLogRegSelectedIndepPVVars[ , "Variables"]), , drop = FALSE]
      if(nrow(binLogRegAllVars$binLogRegSelectedIndepPVVars) > 0) {
        binLogRegAllVars$binLogRegAvailVars <- isolate(binLogRegAllVars$binLogRegAvailVars[-input$binLogRegAllAvailableVars_rows_selected, , drop = FALSE])
      }
    })
    observeEvent(input$binLogRegArrowSelIndepPVsLeft, {
      req(input$binLogRegIndepPVVars_rows_selected)
      binLogRegAllVars$binLogRegAvailVars <- rbind(isolate(binLogRegAllVars$binLogRegAvailVars),        binLogRegAllVars$binLogRegSelectedIndepPVVars[input$binLogRegIndepPVVars_rows_selected, , drop = FALSE])
      binLogRegAllVars$binLogRegAvailVars <- binLogRegAllVars$binLogRegAvailVars[complete.cases(binLogRegAllVars$binLogRegAvailVars[ , "Variables"]), , drop = FALSE]
      binLogRegAllVars$binLogRegSelectedIndepPVVars <- isolate(binLogRegAllVars$binLogRegSelectedIndepPVVars[-input$binLogRegIndepPVVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$binLogRegArrowSelDepBinVarsRight, {
      req(input$binLogRegAllAvailableVars_rows_selected)
      binLogRegAllVars$binLogRegSelectedDepBinVars <- rbind(isolate(binLogRegAllVars$binLogRegSelectedDepBinVars), binLogRegAllVars$binLogRegAvailVars[input$binLogRegAllAvailableVars_rows_selected, , drop = FALSE])
      binLogRegAllVars$binLogRegSelectedDepBinVars <- binLogRegAllVars$binLogRegSelectedDepBinVars[complete.cases(binLogRegAllVars$binLogRegSelectedDepBinVars[ , "Variables"]), , drop = FALSE]
      binLogRegAllVars$binLogRegAvailVars <- isolate(binLogRegAllVars$binLogRegAvailVars[-input$binLogRegAllAvailableVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$binLogRegArrowSelDepBinVarsLeft, {
      req(input$binLogRegDepBinVars_rows_selected)
      binLogRegAllVars$binLogRegAvailVars <- rbind(isolate(binLogRegAllVars$binLogRegAvailVars),        binLogRegAllVars$binLogRegSelectedDepBinVars[input$binLogRegDepBinVars_rows_selected, , drop = FALSE])
      binLogRegAllVars$binLogRegAvailVars <- binLogRegAllVars$binLogRegAvailVars[complete.cases(binLogRegAllVars$binLogRegAvailVars[ , "Variables"]), , drop = FALSE]
      binLogRegAllVars$binLogRegSelectedDepBinVars <- isolate(binLogRegAllVars$binLogRegSelectedDepBinVars[-input$binLogRegDepBinVars_rows_selected, , drop = FALSE])
    })
    observeEvent(input$binLogRegArrowSelWeightVarsRight, {
      req(input$binLogRegAllAvailableVars_rows_selected)
      binLogRegAllVars$binLogRegSelectedWeightVar <- rbind(isolate(binLogRegAllVars$binLogRegSelectedWeightVar), binLogRegAllVars$binLogRegAvailVars[input$binLogRegAllAvailableVars_rows_selected, , drop = FALSE])
      binLogRegAllVars$binLogRegSelectedWeightVar <- binLogRegAllVars$binLogRegSelectedWeightVar[complete.cases(binLogRegAllVars$binLogRegSelectedWeightVar[ , "Variables"]), , drop = FALSE]
      if(nrow(binLogRegAllVars$binLogRegSelectedWeightVar) > 0) {
        binLogRegAllVars$binLogRegAvailVars <- isolate(binLogRegAllVars$binLogRegAvailVars[-input$binLogRegAllAvailableVars_rows_selected, , drop = FALSE])
      }
    })
    observeEvent(input$binLogRegArrowSelWeightVarsLeft, {
      req(input$binLogRegWeightVar_rows_selected)
      binLogRegAllVars$binLogRegAvailVars <- rbind(isolate(binLogRegAllVars$binLogRegAvailVars),        binLogRegAllVars$binLogRegSelectedWeightVar[input$binLogRegWeightVar_rows_selected, , drop = FALSE])
      binLogRegAllVars$binLogRegAvailVars <- binLogRegAllVars$binLogRegAvailVars[complete.cases(binLogRegAllVars$binLogRegAvailVars[ , "Variables"]), , drop = FALSE]
      if(nrow(binLogRegAllVars$binLogRegSelectedWeightVar) > 0) {
        binLogRegAllVars$binLogRegSelectedWeightVar <- isolate(binLogRegAllVars$binLogRegSelectedWeightVar[-input$binLogRegWeightVar_rows_selected, , drop = FALSE])
      }
    })
    generate.bin.log.reg.contr.new.inputs <- function(FUN, len, id, ...) {
      inputs <- character(len)
      lapply(seq_len(len), function(i) {
        inputs[i] <- as.character(FUN(paste0(id, i), label = NULL, ...))
      })
    }
    generate.bin.log.reg.refcat.new.inputs <- function(FUN, id, ...) {
      as.character(FUN(id, label = NULL, ...))
    }
    gather.bin.log.reg.cat.new.inputs.data <- function(id, len) {
      unlist(lapply(seq_len(len), function(i) {
        value = input[[paste0(id, i)]]
        if (is.null(value)) NA else value
      }))
    }
    bin.log.reg.contrasts <- reactiveValues(values = NULL)
    new.bin.log.reg.contrasts <- reactiveValues(contrasts = NULL, ref.cats = NULL)
    observe({
      if(nrow(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars) > 0) {
        bin.log.reg.contrasts$values <- cbind(
          V1 = data.table(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars[ , Variables]),
          V2 = data.table(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars[ , Variable_Labels]),
          V3 = data.table(sapply(X = file.bin.log.reg$var.unique.values, FUN = function(i) {
            length(i)
          })[binLogRegAllVars$binLogRegSelectedIndepCatBckgVars[ , Variables]]),
          V4 = if(any(sapply(X = file.bin.log.reg$var.unique.values[binLogRegAllVars$binLogRegSelectedIndepCatBckgVars[ , Variables]], FUN = is.null)) == FALSE) {
            generate.bin.log.reg.contr.new.inputs(FUN = selectInput, id = 'binlogregcontrast', len = nrow(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars), choices = c("Dummy", "Deviation", "Simple"), width = "100%", selectize = FALSE)
          } else {
            generate.bin.log.reg.contr.new.inputs(FUN = selectInput, id = 'binlogregcontrast', len = nrow(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars), choices = "PVs are added, check your input", width = "100%", selectize = FALSE)
          },
          V5 = lapply(seq_along(1:nrow(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars)), function(i) {
            if(any(sapply(X = file.bin.log.reg$var.unique.values[binLogRegAllVars$binLogRegSelectedIndepCatBckgVars[ , Variables]], FUN = is.null)) == FALSE) {
              generate.bin.log.reg.refcat.new.inputs(FUN = selectInput, id = paste0("binlogregrefcat", i), choices = file.bin.log.reg$var.unique.values[binLogRegAllVars$binLogRegSelectedIndepCatBckgVars[ , Variables]][i], width = "100%", selectize = FALSE)
            } else {
              generate.bin.log.reg.refcat.new.inputs(FUN = selectInput, id = paste0("binlogregrefcat", i), choices = "PVs are added, check your input", width = "100%", selectize = FALSE)
            }
          }),
          V6 = data.table(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars[ , order_col])
        )
        if(nrow(bin.log.reg.contrasts$values)) {
          new.bin.log.reg.contrasts$contrasts <- gather.bin.log.reg.cat.new.inputs.data(id = "binlogregcontrast", len = nrow(bin.log.reg.contrasts$values))
          new.bin.log.reg.contrasts$ref.cats <- gather.bin.log.reg.cat.new.inputs.data(id = "binlogregrefcat", len = nrow(bin.log.reg.contrasts$values))
        }
      }
    })
    output$binLogRegAllAvailableVars <- renderDT({
      setkeyv(x = binLogRegAllVars$binLogRegAvailVars, cols = "order_col")
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Available variables"),
    rownames = FALSE,
    filter = "top",
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables available"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 1461, scroller = TRUE
    ))
    output$binLogRegSplitVars <- renderDT({
      binLogRegAllVars$binLogRegSelectedSplitVars
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Split variables"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$binLogRegInclMiss <- renderUI({
      if(nrow(binLogRegAllVars$binLogRegSelectedSplitVars) == 0) {
        return(NULL)
      } else {
        checkboxInput(inputId = "binLogRegInclMiss", label = "Compute statistics for the missing values of the split variables", value = FALSE, width = "400px")
      }
    })
    output$binLogRegIndepCatCaption <- renderText({
      HTML("Independent background categorical variables")
    })
    output$binLogRegIndepCatBckgVars <- renderDT({
      if(nrow(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars) == 0) {
        data.table(Variables = as.character(), Variable_Labels = as.character(), n.cat = as.character(), contrast = as.character(), ref.cat = as.numeric(), order_col = as.character())
      } else {
        bin.log.reg.contrasts$values
      }
    },
    rownames = FALSE,
    selection = "single",
    colnames = c("Names", "Labels", "N cat.", "Contrast", "Ref. cat.", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    escape = FALSE,
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(width = '40px', targets = 2:4), list(className = 'dt-center', targets = 2:4), list(visible = FALSE, targets = 5)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      drawCallback = JS('function() {Shiny.bindAll(this.api().table().node());}'),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$binLogRegIndepCntBckgVars <- renderDT({
      binLogRegAllVars$binLogRegSelectedIndepCntBckgVars
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Independent background continuous variables"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      preDrawCallback = JS('function() { Shiny.unbindAll(this.api().table().node()); }'),
      drawCallback = JS('function() { Shiny.bindAll(this.api().table().node()); } '),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$binLogRegIndepPVVars <- renderDT({
      if(is.null(file.bin.log.reg$PV.sets)) {
        return(NULL)
      } else {
        binLogRegAllVars$binLogRegSelectedIndepPVVars
      }
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Independent plausible values"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$binLogRegIndepPVVarsDisbld <- renderDT({
      if(is.null(file.bin.log.reg$PV.sets)) {
        data.table(V1 = as.character(), V2 = as.character())
      } else {
        return(NULL)
      }
    },
    select = "none",
    caption = htmltools::tags$caption(style = "color: #c6c6c6; font-weight: bold;", "Independent plausible values"),
    rownames = FALSE,
    colnames = c("Names", "Labels"),
    options = list(
      language = list(zeroRecords = "No variables can be selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#c6c6c6', 'color': '#ffffff'});", "}"),
      dom = "ti",
      ordering = FALSE,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0)),
      headerCallback = JS("function(thead, data, start, end, display){$('th', thead).css('border-bottom', 'none');}"),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$binLogRegDepBinVars <- renderDT({
      binLogRegAllVars$binLogRegSelectedDepBinVars
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Dependent binary variable"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = "No variables have been selected"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    generate.interaction.checkboxes.bin.log.reg = function(FUN, len, id, ...) {
      inputs <- character(len)
      lapply(seq_len(len), function(i) {
        inputs[i] <- as.character(FUN(paste0(id, len, i), label = NULL, ...))
      })
    }
    gather.bin.log.reg.inter.inputs <- function(id, len) {
      sapply(seq_len(len), function(i) {
        value <- input[[paste0(id, len, i)]]
        if(is.null(value)) {
          NA
        } else {
          value
        }
      })
    }
    binLogRegPossibleInteractions <- reactive({
      if(
        !is.null(file.bin.log.reg$resp.type) &&
        !is.null(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars) &&
        !is.null(binLogRegAllVars$binLogRegSelectedIndepCntBckgVars) &&
        !is.null(binLogRegAllVars$binLogRegSelectedIndepPVVars) &&
        nrow(rbindlist(l = list(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars, binLogRegAllVars$binLogRegSelectedIndepCntBckgVars, binLogRegAllVars$binLogRegSelectedIndepPVVars))
        ) > 1) {
        selected.vars <- c(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars[ , Variables], binLogRegAllVars$binLogRegSelectedIndepCntBckgVars[ , Variables], binLogRegAllVars$binLogRegSelectedIndepPVVars[ , Variables])
        tmp.interactions <- transpose(as.data.table(combn(x = selected.vars, m = 2)))
        data.table(Variable1 = tmp.interactions[ , V1], Check = generate.interaction.checkboxes.bin.log.reg(FUN = checkboxInput, len = nrow(tmp.interactions), id = "cbox_", width = "5px"), Variable2 = tmp.interactions[ , V2])
      } else {
        bin.log.reg.initial.interactions
      }
    })
    output$binLogRegInteractions <- renderDT({
      binLogRegPossibleInteractions()
    },
    server = FALSE,
    escape = FALSE,
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Define interactions"),
    rownames = FALSE,
    colnames = c("Variable 1", "", "Variable 2"),
    extensions = list("Scroller"),
    selection="none",
    class = "row-border stripe;compact cell-border;",
    options = list(
      language = list(zeroRecords = "No variables available for interactions"),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '20px', targets = 1), list(targets = 1, className = "small" ), list(className = 'dt-center', targets = c(0, 1, 2))),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      preDrawCallback = JS('function() { Shiny.unbindAll(this.api().table().node()); }'),
      drawCallback = JS('function() { Shiny.bindAll(this.api().table().node()); } '),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    binLogRegSelectedInteractions <- reactive({
      if(nrow(binLogRegPossibleInteractions()) > 0) {
        binLogRegPossibleInteractions()[gather.bin.log.reg.inter.inputs(id = "cbox_", len = nrow(binLogRegPossibleInteractions())) == TRUE]
      } else {
        bin.log.reg.initial.interactions
      }
    })
    output$binLogRegWeightVar <- renderDT({
      binLogRegAllVars$binLogRegSelectedWeightVar
    },
    caption = htmltools::tags$caption(style = "color: black; font-weight: bold;", "Weight variable"),
    rownames = FALSE,
    colnames = c("Names", "Labels", "sortingcol"),
    class = "cell-border stripe;compact cell-border;",
    extensions = list("Scroller"),
    options = list(
      language = list(zeroRecords = paste0("No weight selected, default (", file.bin.log.reg$default.weight, ") will be used")),
      initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
      dom = "ti",
      searchHighlight = FALSE,
      searchDelay = 100,
      ordering = FALSE,
      pageLength = 5000,
      autoWidth = TRUE,
      columnDefs = list(list(width = '75px', targets = 0), list(visible = FALSE, targets = 2)),
      rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
      deferRender = TRUE, scrollY = 100, scroller = TRUE
    ))
    output$binLogRegSplitArePVs <- renderText({
      if(!is.null(binLogRegAllVars$binLogRegSelectedSplitVars) && any(binLogRegAllVars$binLogRegSelectedSplitVars[ , Variables] %in% file.bin.log.reg$PV.sets == TRUE)) {
        HTML('Warning: One or more of the selected variables in "Split variables" are sets of PVs. Please check the added variables.')
      } else {
        return(NULL)
      }
    })
    output$binLogRegBckgCatArePVs <- renderText({
      if(!is.null(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars) && any(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars[ , Variables] %in% file.bin.log.reg$PV.sets == TRUE)) {
        HTML('Warning: One or more of the selected variables in "Independent background <u>categorical</u> variables" are sets of PVs. Please check the added variables.')
      } else {
        return(NULL)
      }
    })
    output$binLogRegBckgCntArePVs <- renderText({
      if(!is.null(binLogRegAllVars$binLogRegSelectedIndepCntBckgVars) && any(binLogRegAllVars$binLogRegSelectedIndepCntBckgVars[ , Variables] %in% file.bin.log.reg$PV.sets == TRUE)) {
        HTML('Warning: One or more of the selected variables in "Independent background <u>continuous</u> variables" are sets of PVs. Please check the added variables.')
      } else {
        return(NULL)
      }
    })
    output$binLogRegIndepPVsAreBckg <- renderText({
      if(!is.null(binLogRegAllVars$binLogRegSelectedIndepPVVars) && any(binLogRegAllVars$binLogRegSelectedIndepPVVars[ , Variables] %in% file.bin.log.reg$PV.sets == FALSE)) {
        HTML('Warning: One or more of the selected variables in "Independent <u>plausible</u> values" are background variables. Please check the added variables.')
      } else {
        return(NULL)
      }
    })
    output$binLogRegDepBinArePVs <- renderText({
      if(!is.null(binLogRegAllVars$binLogRegSelectedDepBinVars) && any(binLogRegAllVars$binLogRegSelectedDepBinVars[ , Variables] %in% file.bin.log.reg$PV.sets == TRUE)) {
        HTML('Warning: One or more of the selected variables in "Dependent background variables" are sets of PVs. Please check the added variables.')
      } else {
        return(NULL)
      }
    })
    output$binLogRegDepNotBin <- renderText({
      if(!is.null(binLogRegAllVars$binLogRegSelectedDepBinVars) && nrow(binLogRegAllVars$binLogRegSelectedDepBinVars) > 0 && length(unlist(file.bin.log.reg$var.unique.values[binLogRegAllVars$binLogRegSelectedDepBinVars[ , Variables]])) != 2) {
        HTML('Warning: The variable in "Dependent binary variable" is not a binary. Please check the added variable.')
      } else {
        return(NULL)
      }
    })
    output$binLogRegWgtsNotWgts <- renderText({
      if(!is.null(binLogRegAllVars$binLogRegSelectedWeightVar) && any(binLogRegAllVars$binLogRegSelectedWeightVar[ , Variables] %in% all.studies.available.weights == FALSE)) {
        HTML('Warning: The variable in "Weight variable" is not a weight. Please check the added variable.')
      } else {
        return(NULL)
      }
    })
    observe({
      if(nrow(binLogRegAllVars$binLogRegSelectedWeightVar) > 1) {
        showNotification(ui = HTML("Only one weight variable can be selected!"), type = "error")
        binLogRegAllVars$binLogRegAvailVars <- rbind(isolate(binLogRegAllVars$binLogRegAvailVars),        binLogRegAllVars$binLogRegSelectedWeightVar[nrow(binLogRegAllVars$binLogRegSelectedWeightVar), , drop = FALSE])
        binLogRegAllVars$binLogRegAvailVars <- binLogRegAllVars$binLogRegAvailVars[complete.cases(binLogRegAllVars$binLogRegAvailVars[ , "Variables"]), , drop = FALSE]
        binLogRegAllVars$binLogRegSelectedWeightVar <- isolate(binLogRegAllVars$binLogRegSelectedWeightVar[-2, , drop = FALSE])
      }
    })
    observe({
      if(!is.null(binLogRegAllVars$binLogRegSelectedDepBinVars) && nrow(binLogRegAllVars$binLogRegSelectedDepBinVars) > 1) {
        showNotification(ui = HTML("Only one background<br/>variable can be selected<br/>as dependent!"), type = "error")
        binLogRegAllVars$binLogRegAvailVars <- rbind(isolate(binLogRegAllVars$binLogRegAvailVars),        binLogRegAllVars$binLogRegSelectedDepBinVars[nrow(binLogRegAllVars$binLogRegSelectedDepBinVars), , drop = FALSE])
        binLogRegAllVars$binLogRegAvailVars <- binLogRegAllVars$binLogRegAvailVars[complete.cases(binLogRegAllVars$binLogRegAvailVars[ , "Variables"]), , drop = FALSE]
        binLogRegAllVars$binLogRegSelectedDepBinVars <- isolate(binLogRegAllVars$binLogRegSelectedDepBinVars[-2, , drop = FALSE])
      }
    })
    observeEvent(eventExpr = input$binLogRegChooseSrcFile, {
      binLogRegAllVars$binLogRegSelectedIndepPVVars <- NULL
      binLogRegAllVars$binLogRegSelectedDepBinVars <- NULL
    }, ignoreInit = TRUE)
    output$binLogRegWgtNorm <- renderUI({
      checkboxInput(inputId = "binLogRegWgtNorm", label = "Normalize the weights", value = FALSE, width = "350px")
    })
    output$binLogRegStandardize <- renderUI({
      checkboxInput(inputId = "binLogRegStandardize", label = "Standardized coefficients", value = FALSE, width = "350px")
    })
    output$binLogRegShortcut <- renderUI({
      if(!is.null(file.bin.log.reg$study) && file.bin.log.reg$study %in% c("PIRLS", "prePIRLS", "ePIRLS", "RLII", "TIMSS", "eTIMSS PSI", "preTIMSS", "TIMSS Advanced", "TiPi")) {
        checkboxInput(inputId = "binLogRegShortcut", label = "Use shortcut method for computing SE", value = FALSE, width = "350px")
      }
    })
    shinyFileSave(input, "binLogRegChooseOutFile", filetype = list(xlsx = "xlsx"), roots = available.volumes, updateFreq = 100000)
    output$binLogRegOpenOutput <- renderUI({
      if(length(parseSavePath(available.volumes, input$binLogRegChooseOutFile)$datapath) > 0) {
        checkboxInput(inputId = "binLogRegOpenOutput", label = "Open the output when done", value = TRUE, width = "250px")
      }
    })
    syntaxBinLogReg <- reactive({
      file.bin.log.reg$bin.log.reg.syntax <- paste0(
        'lsa.bin.log.reg(data.file = "', parseFilePaths(available.volumes, input$binLogRegChooseSrcFile)$datapath, '", ',
        if(length(binLogRegAllVars$binLogRegSelectedSplitVars[ , Variables]) == 1) {
          paste0('split.vars = "', binLogRegAllVars$binLogRegSelectedSplitVars[ , Variables], '"')
        } else if(length(binLogRegAllVars$binLogRegSelectedSplitVars[ , Variables]) > 1) {
          paste0('split.vars = c("', paste(binLogRegAllVars$binLogRegSelectedSplitVars[ , Variables], collapse = '", "'), '")')
        },
        if(!is.null(binLogRegAllVars$binLogRegSelectedDepBinVars) && nrow(binLogRegAllVars$binLogRegSelectedDepBinVars) == 1) {
          paste0(', bin.dep.var = "', binLogRegAllVars$binLogRegSelectedDepBinVars[ , Variables], '"')
        } else if(!is.null(binLogRegAllVars$binLogRegSelectedDepBinVars) && nrow(binLogRegAllVars$binLogRegSelectedDepBinVars) == 0) {
          NULL
        },
        if(length(binLogRegAllVars$binLogRegSelectedIndepCntBckgVars[ , Variables]) == 1) {
          paste0(', bckg.indep.cont.vars = "', binLogRegAllVars$binLogRegSelectedIndepCntBckgVars[ , Variables], '"')
        } else if(length(binLogRegAllVars$binLogRegSelectedIndepCntBckgVars[ , Variables]) > 1) {
          paste0(', bckg.indep.cont.vars = c("', paste(binLogRegAllVars$binLogRegSelectedIndepCntBckgVars[ , Variables], collapse = '", "'), '")')
        },
        if(length(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars[ , Variables]) == 1) {
          paste0(', bckg.indep.cat.vars = "', binLogRegAllVars$binLogRegSelectedIndepCatBckgVars[ , Variables], '"')
        } else if(length(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars[ , Variables]) > 1) {
          paste0(', bckg.indep.cat.vars = c("', paste(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars[ , Variables], collapse = '", "'), '")')
        },
        if(length(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars[ , Variables]) == 1 && !is.null(new.bin.log.reg.contrasts$contrasts)) {
          paste0(', bckg.cat.contrasts = "', tolower(new.bin.log.reg.contrasts$contrasts), '"')
        } else if(length(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars[ , Variables]) > 1 && !is.null(new.bin.log.reg.contrasts$contrasts)) {
          paste0(', bckg.cat.contrasts = c("', paste(tolower(new.bin.log.reg.contrasts$contrasts), collapse = '", "'), '")')
        },
        if(length(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars[ , Variables]) == 1) {
          paste0(', bckg.ref.cats = ', unlist(lapply(X = file.bin.log.reg$var.unique.values[binLogRegAllVars$binLogRegSelectedIndepCatBckgVars[ , Variables]], FUN = function(i) {
            which(i %in% new.bin.log.reg.contrasts$ref.cats)
          })))
        } else if(length(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars[ , Variables]) > 1) {
          paste0(', bckg.ref.cats = c(', paste(unlist(lapply(X = file.bin.log.reg$var.unique.values[binLogRegAllVars$binLogRegSelectedIndepCatBckgVars[ , Variables]], FUN = function(i) {
            which(i %in% new.bin.log.reg.contrasts$ref.cats)
          })), collapse = ", "), ')')
        },
        if(!is.null(binLogRegAllVars$binLogRegSelectedIndepPVVars) && length(binLogRegAllVars$binLogRegSelectedIndepPVVars[ , Variables]) == 1) {
          paste0(', PV.root.indep = "', binLogRegAllVars$binLogRegSelectedIndepPVVars[ , Variables], '"')
        } else if(!is.null(binLogRegAllVars$binLogRegSelectedIndepPVVars) && length(binLogRegAllVars$binLogRegSelectedIndepPVVars[ , Variables]) > 1) {
          paste0(', PV.root.indep = c("', paste(binLogRegAllVars$binLogRegSelectedIndepPVVars[ , Variables], collapse = '", "'), '")')
        },
        suppressWarnings(if(nrow(binLogRegSelectedInteractions() > 0)) {
          paste0(', interactions = list(', paste(unlist(apply(X = binLogRegSelectedInteractions(), MARGIN = 1, FUN = function(i) {
            paste0('c("', i[['Variable1']], '", "', i[['Variable2']], '")')
          }, simplify = FALSE)), collapse = ', '), ')')
        }),
        if(!is.null(input$binLogRegWgtNorm) && input$binLogRegWgtNorm == TRUE) {
          ", norm.weight = TRUE"
        },
        if(!is.null(input$binLogRegStandardize) && input$binLogRegStandardize == TRUE) {
          ", standardize = TRUE"
        },
        if(nrow(binLogRegAllVars$binLogRegSelectedWeightVar) == 1 && !is.null(file.bin.log.reg$default.weight) && binLogRegAllVars$binLogRegSelectedWeightVar[ , Variables] == file.bin.log.reg$default.weight) {
          NULL
        } else if(nrow(binLogRegAllVars$binLogRegSelectedWeightVar) == 1 && !is.null(file.bin.log.reg$default.weight) && binLogRegAllVars$binLogRegSelectedWeightVar[ , Variables] %in% all.studies.available.weights && binLogRegAllVars$binLogRegSelectedWeightVar[ , Variables] != file.bin.log.reg$default.weight) {
          paste0(', weight.var = "', binLogRegAllVars$binLogRegSelectedWeightVar[ , Variables], '"')
        } else if(nrow(binLogRegAllVars$binLogRegSelectedWeightVar) == 0) {
          NULL
        },
        if(!is.null(input$binLogRegInclMiss) && input$binLogRegInclMiss == TRUE) {
          ", include.missing = TRUE"
        },
        if(!is.null(input$binLogRegShortcut) && input$binLogRegShortcut == TRUE) {
          ", shortcut = TRUE"
        },
        paste0(', output.file = "', parseSavePath(available.volumes, input$binLogRegChooseOutFile)$datapath, '"'),
        if(!is.null(input$binLogRegOpenOutput) && input$binLogRegOpenOutput == FALSE) {
          ', open.output = FALSE'
        } else if(!is.null(input$binLogRegOpenOutput) && input$binLogRegOpenOutput == TRUE) {
          NULL
        },
        ')'
      )
    })
    output$binLogRegSyntaxHead <- renderText({
      if(length(parseSavePath(available.volumes, input$binLogRegChooseOutFile)$datapath) == 1) {
        HTML("Syntax")
      } else {
        return(NULL)
      }
    })
    observe.syntax.save.button <- eval(parse(text = string.observe.syntax.save.button))
    observe.syntax.save.button(input = input, session = session, syntax.ID = "saveBinLogRegSyntax", syntax.object = "syntaxBinLogReg()", volumes = available.volumes)
    output$copyBinLogRegSyntax <- renderUI({
      rclipButton(inputId = "copyBinLogRegSyntax", label = "Copy syntax", clipText = syntaxBinLogReg(), icon = icon("copy"), style = "color: #ffffff; background-color: #000000; border-radius: 5px; font-size: 80%; margin-bottom: 1px; padding: 1px; width: 85px; margin-top: 1px")
    })
    output$binLogRegSyntax <- renderText({
      if(length(parseSavePath(available.volumes, input$binLogRegChooseOutFile)$datapath) == 1) {
        syntaxBinLogReg()
      } else {
        return(NULL)
      }
    })
    output$binLogRegExecBtnHead <- renderText({
      if(length(parseSavePath(available.volumes, input$binLogRegChooseOutFile)$datapath) == 1) {
        HTML("Press the button below to execute the syntax")
      } else {
        return(NULL)
      }
    })
    output$execBinLogReg <- renderUI({
      if(length(parseSavePath(available.volumes, input$binLogRegChooseOutFile)$datapath) == 1) {
        actionButton(inputId = "execBinLogReg", label = "Execute syntax", icon = icon("cogs"), style = "color: #ffffff; background-color: #000000; border-radius: 10px")
      } else {
        return(NULL)
      }
    })
    observe({
      if(
        nrow(rbindlist(l = list(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars, binLogRegAllVars$binLogRegSelectedIndepCntBckgVars, binLogRegAllVars$binLogRegSelectedIndepPVVars))) > 0 && !is.null(binLogRegAllVars$binLogRegSelectedDepBinVars) && nrow(binLogRegAllVars$binLogRegSelectedDepBinVars) == 0 ||
        nrow(rbindlist(l = list(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars, binLogRegAllVars$binLogRegSelectedIndepCntBckgVars, binLogRegAllVars$binLogRegSelectedIndepPVVars))) == 0 && !is.null(binLogRegAllVars$binLogRegSelectedDepBinVars) && nrow(binLogRegAllVars$binLogRegSelectedDepBinVars) > 0 ||
        nrow(rbindlist(l = list(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars, binLogRegAllVars$binLogRegSelectedIndepCntBckgVars, binLogRegAllVars$binLogRegSelectedIndepPVVars))) == 0 && !is.null(binLogRegAllVars$binLogRegSelectedDepBinVars) && nrow(binLogRegAllVars$binLogRegSelectedDepBinVars) == 0 ||
        is.null(file.bin.log.reg$loaded) ||
        !is.null(binLogRegAllVars$binLogRegSelectedIndepPVVars) && nrow(binLogRegAllVars$binLogRegSelectedIndepPVVars) > 0 && any(binLogRegAllVars$binLogRegSelectedIndepPVVars[ , Variables] %in% file.bin.log.reg$PV.sets == FALSE) ||
        !is.null(binLogRegAllVars$binLogRegSelectedDepBinVars) && nrow(binLogRegAllVars$binLogRegSelectedDepBinVars) > 0 && any(binLogRegAllVars$binLogRegSelectedDepBinVars[ , Variables] %in% file.bin.log.reg$PV.sets == TRUE) ||
        any(binLogRegAllVars$binLogRegSelectedSplitVars[ , Variables] %in% file.bin.log.reg$PV.sets == TRUE) ||
        any(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars[ , Variables] %in% file.bin.log.reg$PV.sets == TRUE) ||
        any(binLogRegAllVars$binLogRegSelectedIndepCntBckgVars[ , Variables] %in% file.bin.log.reg$PV.sets == TRUE) ||
        any(binLogRegAllVars$binLogRegSelectedWeightVar[ , Variables] %in% all.studies.available.weights == FALSE) ||
        is.null(file.bin.log.reg$default.weight) ||
        length(file.bin.log.reg$default.weight) == 0 ||
        !is.null(binLogRegAllVars$binLogRegSelectedDepBinVars) && nrow(binLogRegAllVars$binLogRegSelectedDepBinVars) > 0 && length(unlist(file.bin.log.reg$var.unique.values[binLogRegAllVars$binLogRegSelectedDepBinVars[ , Variables]])) != 2
      ) {
        hide("binLogRegWgtNorm")
        hide("binLogRegShortcut")
        hide("binLogRegStandardize")
        hide("binLogRegChooseOutFile")
        hide("binLogRegOpenOutput")
        hide("binLogRegSyntaxHead")
        hide("binLogRegSyntax")
        hide("binLogRegExecBtnHead")
        hide("execBinLogReg")
        hide("consoleBinLogReg")
      } else if (
        nrow(rbindlist(l = list(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars, binLogRegAllVars$binLogRegSelectedIndepCntBckgVars))) > 0 && nrow(binLogRegAllVars$binLogRegSelectedIndepPVVars) > 0 ||
        !is.null(file.bin.log.reg$loaded) ||
        any(binLogRegAllVars$binLogRegSelectedIndepPVVars[ , Variables] %in% file.bin.log.reg$PV.sets == TRUE) ||
        any(binLogRegAllVars$binLogRegSelectedDepBinVars[ , Variables] %in% file.bin.log.reg$PV.sets == FALSE) ||
        any(binLogRegAllVars$binLogRegSelectedSplitVars[ , Variables] %in% file.bin.log.reg$PV.sets == FALSE) ||
        any(binLogRegAllVars$binLogRegSelectedCatBckgVars[ , Variables] %in% file.bin.log.reg$PV.sets == FALSE) ||
        any(binLogRegAllVars$binLogRegSelectedCntBckgVars[ , Variables] %in% file.bin.log.reg$PV.sets == FALSE) ||
        any(binLogRegAllVars$binLogRegSelectedWeightVar[ , Variables] %in% all.studies.available.weights == TRUE) ||
        !is.null(file.bin.log.reg$default.weight) ||
        length(file.bin.log.reg$default.weight) != 0 ||
        !is.null(binLogRegAllVars$binLogRegSelectedDepBinVars) && nrow(binLogRegAllVars$binLogRegSelectedDepBinVars) > 0 && length(unlist(file.bin.log.reg$var.unique.values[binLogRegAllVars$binLogRegSelectedDepBinVars[ , Variables]])) == 2
      ) {
        show("binLogRegWgtNorm")
        show("binLogRegShortcut")
        show("binLogRegStandardize")
        show("binLogRegChooseOutFile")
        show("binLogRegOpenOutput")
        show("binLogRegSyntaxHead")
        show("binLogRegSyntax")
        show("binLogRegExecBtnHead")
        show("execBinLogReg")
        show("consoleBinLogReg")
      }
      if(is.null(file.bin.log.reg$default.weight) || length(file.bin.log.reg$default.weight) == 0) {
        hide("binLogRegVariablesExplText")
        hide("binLogRegAllAvailableVars")
        hide("binLogRegArrowSelSplitVarsRight")
        hide("binLogRegArrowSelSplitVarsLeft")
        hide("binLogRegSplitVars")
        hide("binLogRegInclMiss")
        hide("binLogRegArrowSelIndepCatBckgVarsRight")
        hide("binLogRegArrowSelIndepCatBckgVarsLeft")
        hide("binLogRegArrowSelIndepCntBckgVarsRight")
        hide("binLogRegArrowSelIndepCntBckgVarsLeft")
        hide("binLogRegIndepCatCaption")
        hide("binLogRegIndepCatBckgVars")
        hide("binLogRegIndepCntBckgVars")
        hide("binLogRegArrowSelIndepPVsRight")
        hide("binLogRegArrowSelIndepPVsLeft")
        hide("binLogRegIndepPVVars")
        hide("binLogRegArrowSelIndepPVsRightDisbld")
        hide("binLogRegArrowSelIndepPVsLeftDisbld")
        hide("binLogRegIndepPVVarsDisbld")
        hide("binLogRegChooseDepType")
        hide("binLogRegArrowSelDepBckgVarsRight")
        hide("binLogRegArrowSelDepBckgVarsLeft")
        hide("binLogRegDepBinVars")
        hide("binLogRegDepPVVars")
        hide("binLogRegDepPVVarsDisbld")
        hide("binLogRegInteractions")
        hide("binLogRegArrowSelWeightVarsRight")
        hide("binLogRegArrowSelWeightVarsLeft")
        hide("binLogRegWeightVar")
      } else if(!is.null(file.bin.log.reg$default.weight) || length(file.bin.log.reg$default.weight) != 0) {
        show("binLogRegVariablesExplText")
        show("binLogRegAllAvailableVars")
        show("binLogRegArrowSelSplitVarsRight")
        show("binLogRegArrowSelSplitVarsLeft")
        show("binLogRegSplitVars")
        show("binLogRegInclMiss")
        show("binLogRegArrowSelIndepCatBckgVarsRight")
        show("binLogRegArrowSelIndepCatBckgVarsLeft")
        show("binLogRegArrowSelIndepCntBckgVarsRight")
        show("binLogRegArrowSelIndepCntBckgVarsLeft")
        show("binLogRegIndepCatCaption")
        show("binLogRegIndepCatBckgVars")
        show("binLogRegIndepCntBckgVars")
        show("binLogRegArrowSelIndepPVsRight")
        show("binLogRegArrowSelIndepPVsLeft")
        show("binLogRegIndepPVVars")
        show("binLogRegArrowSelIndepPVsRightDisbld")
        show("binLogRegArrowSelIndepPVsLeftDisbld")
        show("binLogRegIndepPVVarsDisbld")
        show("binLogRegChooseDepType")
        show("binLogRegArrowSelDepBckgVarsRight")
        show("binLogRegArrowSelDepBckgVarsLeft")
        show("binLogRegDepBinVars")
        show("binLogRegDepPVVars")
        show("binLogRegDepPVVarsDisbld")
        show("binLogRegInteractions")
        show("binLogRegArrowSelWeightVarsRight")
        show("binLogRegArrowSelWeightVarsLeft")
        show("binLogRegWeightVar")
      }
      if(
        is.null(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars) ||
        is.null(binLogRegAllVars$binLogRegSelectedIndepCntBckgVars) ||
        is.null(binLogRegAllVars$binLogRegSelectedIndepPVVars) ||
        is.null(binLogRegAllVars$binLogRegSelectedDepBinVars) ||
        nrow(rbindlist(l = list(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars, binLogRegAllVars$binLogRegSelectedIndepCntBckgVars, binLogRegAllVars$binLogRegSelectedIndepPVVars))) == 0 || nrow(binLogRegAllVars$binLogRegSelectedDepBinVars) == 0 ||
        !is.null(binLogRegAllVars$binLogRegSelectedDepBinVars) && nrow(binLogRegAllVars$binLogRegSelectedDepBinVars) > 0 && length(unlist(file.bin.log.reg$var.unique.values[binLogRegAllVars$binLogRegSelectedDepBinVars[ , Variables]])) != 2 ||
        !is.null(binLogRegAllVars$binLogRegSelectedIndepPVVars) && any(binLogRegAllVars$binLogRegSelectedIndepPVVars[ , Variables] %in% file.bin.log.reg$PV.sets == FALSE) ||
        !is.null(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars) && any(binLogRegAllVars$binLogRegSelectedIndepCatBckgVars[ , Variables] %in% file.bin.log.reg$PV.sets == TRUE) ||
        !is.null(binLogRegAllVars$binLogRegSelectedIndepCntBckgVars) && any(binLogRegAllVars$binLogRegSelectedIndepCntBckgVars[ , Variables] %in% file.bin.log.reg$PV.sets == TRUE) ||
        length(parseSavePath(available.volumes, input$binLogRegChooseOutFile)$datapath) == 0
      ) {
        hide("saveBinLogRegSyntax")
        hide("copyBinLogRegSyntax")
      } else {
        show("saveBinLogRegSyntax")
        show("copyBinLogRegSyntax")
      }
    })
  }
})
observeEvent(input$execBinLogReg, {
  showNotification(ui = HTML("<br/>   Execution started.   <br/><br/>"), type = "message")
  withCallingHandlers({html("consoleBinLogReg", "")
    tryCatch({
      expr = eval(parse(text = file.bin.log.reg$bin.log.reg.syntax))
      showNotification(ui = HTML("<br/>   All operations complete!   <br/><br/>"), type = "message", duration = NULL)
    }, error = function(e) {
      message("", e)
      showNotification(ui = HTML(paste0("Something went wrong. Possible reasons: <br/>", paste(gsub(pattern = "\\n|Error: ", replacement = "<br/>", x = e)))), type = "error", duration = NULL)
    })
  },
  message = function(i) {
    shinyjs::html(id = "consoleBinLogReg", html = i$message, add = TRUE)
  },
  warning = function(w) {
    shinyjs::html(id = "consoleBinLogReg", html = paste0("Warning: ", w$message, "\n"), add = TRUE)
  })
  session$sendCustomMessage(type = "scrollCallback", 1)
}, ignoreInit = TRUE)
output$helpSectionsHeading <- renderText("Help")
output$helpOnRALSAWebsite <- renderText({
  HTML("Visit the user guide section at <a href = https://ralsa.ineri.org/user-guide/, target = '_blank'> RALSA's dedicated website</a> for the userguide or use the following links for help on speciffic functionality:<br/><br/>")
})
output$helpSectionRALSAWebsiteLinks <- renderText({
  HTML(
    "General:
<ul><li><a href = https://ralsa.ineri.org/installation-instructions, target = '_blank'>Installation instructions</a></li></ul>
<ul><li><a href = https://ralsa.ineri.org/getting-started-with-ralsa, target = '_blank'>Getting started with RALSA</a></li></ul>
Prepare data for analysis:<br/>
<ul><li><a href = https://ralsa.ineri.org/download-data-files, target = '_blank'>Download data files</a></li></ul>
<ul><li><a href = https://ralsa.ineri.org/convert-data, target = '_blank'>Convert data (SPSS, or text in case of PISA prior 2015), print data properties on screen, select PISA countries for analysis</a></li></ul>
<ul><li><a href = https://ralsa.ineri.org/merge-data, target = '_blank'>Merge study data files from different countries and/or respondents</a></li></ul>
<ul><li><a href = https://ralsa.ineri.org/variable-dictionaries, target = '_blank'>Variable dictionaries (name, class, variable label, response categories/unique values, user-defined missing values)</a></li></ul>
<ul><li><a href = https://ralsa.ineri.org/data-diagnostics, target = '_blank'>Data diagnostic tables</a></li></ul>
<ul><li><a href = https://ralsa.ineri.org/recode-variables, target = '_blank'>Recode variables</a></li></ul>
<ul><li><a href = https://ralsa.ineri.org/cut-continuous-variables-into-discrete-categorical/, target = '_blank'>Cut continuous variables into discrete categorical</a></li></ul>
<ul><li><a href = https://ralsa.ineri.org/aggregate-variables/, target = '_blank'>Aggregate variables</a></li></ul>
<ul><li><a href = https://ralsa.ineri.org/select-pisa-countries/, target = '_blank'>Select PISA countries</a></li></ul>
Perform analyses:<br/>
<ul><li><a href = https://ralsa.ineri.org/percentages-and-means, target = '_blank'>Percentages of respondents in certain groups and averages (means, medians or modes) on variables of interest, per group</a></li></ul>
<ul><li><a href = https://ralsa.ineri.org/percentiles, target = '_blank'>Percentiles of continuous variables within groups of respondents</a></li></ul>
<ul><li><a href = https://ralsa.ineri.org/benchmarks, target = '_blank'>Percentages of respondents reaching or surpassing benchmarks of achievement</a></li></ul>
<ul><li><a href = https://ralsa.ineri.org/crosstabulations, target = '_blank'>Crosstabulations with Rao-Scott first- and second-order chi-square adjustments</a></li></ul>
<ul><li><a href = https://ralsa.ineri.org/correlations, target = '_blank'>Correlations (Pearson or Spearman)</a></li></ul>
<ul><li><a href = https://ralsa.ineri.org/linear-regression, target = '_blank'>Linear regression</a></li></ul>
<ul><li><a href = https://ralsa.ineri.org/binary-logistic-regression, target = '_blank'>Binary logistic regression</a></li></ul>"
  )
})
output$partCountriesHeading <- renderText("Countries' study participation")
output$helpOnPartCountries <- renderText({
  HTML('Use the drop-down list below to select studies and cycles.<br/>
Use the checkbox to filter the countries which participate in all selected studies and cycles.<br/>
Note: Some countries have more than one numeric code in PISA. These appear with a slash in the "Numeric code" column.<br/><br/>')
})
output$selectStudyCycleDropdown <- renderUI({
  pickerInput(
    inputId = "selectStudyCycleDropdown", label = "Select studies and cycles",
    choices = colnames(countries.studies.cycles.table)[!colnames(countries.studies.cycles.table) %in% c("Alpha 3 ISO", "Numeric Code", "Country Name")],
    options = list('actions-box' = TRUE),
    multiple = TRUE,
    width = "300px"
  )
})
filter.studies.and.cycles <-  reactive({
  countries.studies.cycles.table[ , c("Alpha 3 ISO", "Numeric Code", "Country Name", input$selectStudyCycleDropdown), with = FALSE]
})
output$selectStudyCycleTable <- renderDT({
  if(ncol(filter.studies.and.cycles()) <= 3) {
    NULL
  } else if(ncol(filter.studies.and.cycles()) > 3) {
    if(input$partCountriesFilterParticipating == FALSE) {
      filter.studies.and.cycles()
    } else if(input$partCountriesFilterParticipating == TRUE) {
      na.omit(filter.studies.and.cycles())
    }
  }
},
server = FALSE,
rownames = FALSE,
select = "none",
filter = "top",
class = "cell-border stripe;compact cell-border;",
extensions = c("Scroller"),
options = list(
  buttons = list(list(extend = "excel", text = "Download Excel", title = "Participating_Countries")),
  language = list(zeroRecords = "No study and cycle is selected"),
  initComplete = JS("function(settings, json) {", "$(this.api().table().header()).css({'background-color': '#000000', 'color': '#ffffff'});", "}"),
  dom = "t",
  searchHighlight = FALSE,
  searchDelay = 100,
  ordering = FALSE,
  pageLength = 5000,
  columnDefs = list(list(width = '75px', targets = 0), list(width = '100px', targets = c(1, 3:(ncol(filter.studies.and.cycles())-1))), list(className = 'dt-body-center', targets = 3:(ncol(filter.studies.and.cycles())-1)), list(className = 'dt-body-right', targets = 1)),
  rowCallback = JS("function(r,d) {$(r).attr('height', '40px')}"),
  deferRender = TRUE,
  scrollY = 700, scrollX = TRUE, scroller = TRUE
))
output$downloadHelpCntList <- downloadHandler(filename = "Participating_Countries.xlsx", content = function(con) {
  if(input$partCountriesFilterParticipating == FALSE) {
    write.xlsx(x = filter.studies.and.cycles(), file = con)
  } else if(input$partCountriesFilterParticipating == TRUE) {
    write.xlsx(x = na.omit(filter.studies.and.cycles()), file = con)
  }
})
observe({
  if(is.null(input$selectStudyCycleDropdown)) {
    hide("downloadHelpCntList")
  } else {
    show("downloadHelpCntList")
  }
})
output$exitHeading <- renderText("Press the button below to exit RALSA")
observeEvent(input$closeGUI, {
  js$closeWindow()
  stopApp()
})
}
