uiAbout <- tabPanel("",
  icon = icon("house"),
  value = "About",
  id = "about",
  #------------------------------------------------------------------------------------#
  # Description ####
  #------------------------------------------------------------------------------------#
  h3("Welcome"),
  p("Welcome to ShinyItemAnalysis!"),
  p(
    "ShinyItemAnalysis is an interactive online application for the psychometric analysis of educational tests,
    psychological assessments, health-related and other types of multi-item measurements, or ratings from
    multiple raters, built
                    on ",
    a("R", href = "https://cran.r-project.org/", target = "_blank"),
    "and",
    a("shiny. ", href = "http://www.rstudio.com/shiny/", target = "_blank"),
    "You can easily start using the application with the default toy dataset. You may also select from a number of other
    toy datasets or upload your own in the ", strong("Data"), " section. Offered methods include:"
  ),
  tags$ul(
    tags$li("Exploration of total and standard scores in the ", strong("Summary"), "section"),
    tags$li("Analysis of measurement error in the ", strong("Reliability"), "section"),
    tags$li("Correlation structure and criterion validity analysis in the ", strong("Validity"), "section"),
    tags$li("Item and distractor analysis in the ", strong("Item analysis"), "section"),
    tags$li("Item analysis with regression models in the ", strong("Regression"), "section"),
    tags$li("Item analysis by item response theory models in the ", strong("IRT models"), "section"),
    tags$li("Detection of differential item functioning in the ", strong("DIF/Fairness"), "section"),
    tags$li("Additional psychometric methods implemented via add-on modules in the ", strong("Modules"), "section")
  ),
  p("All graphical outputs and selected tables can be downloaded via the download button. Moreover, you can automatically
                    generate a HTML or PDF report in the ", strong("Reports"), "section. All offered analyses
                    are complemented by selected R codes which are ready to be copied and pasted into your R console, therefore
                    a similar analysis can be run and modified in R."),
  p("Visit the ", a(strong("ShinyItemAnalysis.org"),
    href = "https://www.shinyitemanalysis.org",
    target = "_blank"
  ), "webpage to learn more about ShinyItemAnalysis!"),
  tags$hr(),

  #------------------------------------------------------------------------------------#
  # News ####
  #------------------------------------------------------------------------------------#
  h4("News"),
  fluidRow(
    column(10,

  tags$ul(
    tags$li(
      "A new book on Computational Aspects of Psychometric Methods: With R ", a("(Martinkova & Hladka, 2023)",
        href = "https://www.taylorfrancis.com/books/mono/10.1201/9781003054313",
        target = "_blank", .noWS = "outside"
      ),
      " is available. Individual chapters of the book describe sections of the ShinyItemAnalysis. "
    ),
    tags$li(
      "A new paper on relationship between the inter-rater reliability and false positive rate has been published in BJMSP ",
      a("(Bartos, & Martinkova, 2024)",
        href = "https://doi.org/10.1111/bmsp.12343",
        target = "_blank", .noWS = "outside"
      ),
      ".  To try examples interactively, go to the IRR2FPR Module of the IRR2FPR package, available from the ",
      strong("Reliability"), "section. "
    ),
    tags$li(
      "A new paper on combining item purification and multiple comparison adjustment methods in DIF detection has been published in MBR ",
      a("(Hladka, Martinkova, & Magis, 2024)",
        href = "https://doi.org/10.1080/00273171.2023.2205393",
        target = "_blank", .noWS = "outside"
      ),
      ".  Methods are incorporated in  the ",
      strong("DIF/Fairness"), "section. "
    ),
    tags$li(
      "A new flexible method for assessing inter-rater reliability with heterogeneous variance components models, accounting for contextual variables
      has been published in JEBS ",
      a("(Martinkova, Bartos, & Brabec, 2023)",
        href = "https://doi.org/10.3102/10769986221150517",
        target = "_blank", .noWS = "outside"
      ),
      ".  The paper uses the NIH data available in the ShinyItemAnalysis package. "
    ),
    tags$li(
      "A new paper on machine learning methods for prediction of item difficulty from item wording has been published in Mathematics ",
      a("(Stepanek, Dlouha, & Martinkova, 2023)",
        href = "https://doi.org/10.3390/math11194104",
        target = "_blank", .noWS = "outside"
      ),
      ".  To try examples interactively,
    go to the Item Text Analysis Module of the EduTestTextAnalysis package, available from the ",
      strong("Modules"), "section. "
    ),
    tags$li(
      "A new paper on range-restricted inter-rater reliability has been published in JRSS-A ",
      a("(Erosheva, Martinkova, & Lee, 2021)",
        href = "https://doi.org/10.1111/rssa.12681",
        target = "_blank", .noWS = "outside"
      ),
      ".  To try examples interactively with the", code("AIBS"), "dataset,
    go to the Restricted-range Reliability Module of the SIAmodules package, available from the ",
      strong("Reliability"), "section. "
    ),
    tags$li(
      "A new paper using DIF-C analysis has been published in JCAL ",
      a("(Kolek, Sisler, Martinkova, & Brom, 2021)",
        href = "https://doi.org/10.1111/jcal.12575",
        target = "_blank", .noWS = "outside"
      ),
      ".  To try examples interactively with the", code("AttitudesExpulsion"), "dataset,
    go to the ",
      a("DIF-C Module",
        href = "https://shiny.cs.cas.cz/ShinyItemAnalysis-module-DIF-C-ordinal/",
        target = "_blank", .noWS = "outside"
      ),
      " available from the ",
      strong("DIF"), "section. Also see the follow-up paper ",
      a("(Kolek, Martinkova, Varejkova, Sisler, & Brom, 2023)",
        href = "https://doi.org/10.1111/jcal.12911",
        target = "_blank", .noWS = "outside"
      ),
      ", published in the same journal. "
    ),
    tags$li(
      "New papers on differential item functioning have been published in Learning and Instruction ",
      a("(Martinkova, Hladka, & Potuznikova, 2020)",
        href = "https://doi.org/10.1016/j.learninstruc.2019.101286",
        target = "_blank", .noWS = "outside"
      ),
      " and in The R Journal ",
      a("(Hladka & Martinkova, 2020)",
        href = "https://doi.org/10.32614/RJ-2020-014",
        target = "_blank", .noWS = "outside"
      ),
      ". To try these examples interactively, set the", code("Learning to Learn 9"), "toy dataset in the ", strong("Data"), " section
    by clicking on the menu in the upper left corner and go to the ",
      strong("DIF/Fairness/Generalized logistic"), "section. Or go to the DIF-C module of the SIAmodules package, available in the ",
      strong("DIF/Fairness"), "section.",
      .noWS = "before-end"
    )
           )
  ),
  column(
    2,
    tags$img(
      src="book_cover.png",
      class="img-responsive",
      style = "max-width: 180px; margin-left: auto; margin-right: auto;"
      )
    )
  ),
  tags$hr(),

  #------------------------------------------------------------------------------------#
  # Availability ####
  #------------------------------------------------------------------------------------#
  fluidRow(
    column(
      6,
      h4("Availability"),
      p(
        "An application can be downloaded as an R package from ",
        a("CRAN.", href = "https://CRAN.R-project.org/package=ShinyItemAnalysis", target = "_blank"),
        br(),
        "It is also available online at the ",
        a("Czech Academy of Sciences ",
          href = "https://shiny.cs.cas.cz/ShinyItemAnalysis/",
          target = "_blank"
        ),
        HTML("<a href = 'https://shiny.cs.cas.cz/ShinyItemAnalysis/' target = '_blank'>
                         <img src = 'flag_CR.png' height = '16' border = '0' align = 'middle'></a>"),
        "and",
        a("shinyapps.io",
          href = "https://cemp.shinyapps.io/ShinyItemAnalysis/",
          target = "_blank"
        ),
        HTML("<a href = 'https://cemp.shinyapps.io/ShinyItemAnalysis/' target = '_blank'>
                         <img src = 'flag_USA.png' height = '16' border = '0' align = 'middle'></a>.")
      ),
    ),

    #------------------------------------------------------------------------------------#
    # Version ####
    #------------------------------------------------------------------------------------#
    column(
      6, h4("Versions"),
      p(
        "The current",
        a("CRAN", href = "https://CRAN.R-project.org/package=ShinyItemAnalysis", target = "_blank"),
        "version is 1.5.1.",
        br(),
        "The version available",
        a("online", href = "https://shiny.cs.cas.cz/ShinyItemAnalysis/", target = "_blank"), "is 1.5.1.",
        br(),
        "The newest development version available on ",
        a("GitHub", href = "https://github.com/patriciamar/ShinyItemAnalysis", target = "_blank"), "is 1.5.1.",
      )
    )
  ),
  tags$hr(),

  #------------------------------------------------------------------------------------#
  # Feedback ####
  #------------------------------------------------------------------------------------#
  h4("Feedback"),
  p(
    "If you discover a problem with this application please contact the project
                    maintainer at martinkova(at)cs.cas.cz or use ",
    a("GitHub.",
      href = "https://github.com/patriciamar/ShinyItemAnalysis/issues",
      target = "_blank"
    ),
    "We also encourage you to provide your feedback using ",
    a("Google form.",
      href = "https://goo.gl/forms/5ZVR6mTOFJFwmtT52",
      target = "_blank"
    )
  ),
  tags$hr(),
  #------------------------------------------------------------------------------------#
  # Licence ####
  #------------------------------------------------------------------------------------#
  h4("License"),
  p(
    "This program is free software and you can redistribute it and or modify it under
                    the terms of the",
    a("GNU GPL 3",
      href = "https://www.gnu.org/licenses/gpl-3.0.en.html",
      target = "_blank"
    ),
    "as published by the Free Software Foundation. This program is distributed in the
                    hope that it will be useful, but without any warranty; without even the implied
                    warranty of merchantability of fitness for a particular purpose."
  ),

  #------------------------------------------------------------------------------------#
  # References ####
  #------------------------------------------------------------------------------------#

  p("To cite ShinyItemAnalysis in publications, please use:"),
  div(
    class = "cite-box",
    "Martinkova, P., & Hladka, A. (2023).", br(),
    em("Computational Aspects of Psychometric Methods: With R. (1st ed.).", .noWS = "outside"), br(),
    "Chapman and Hall/CRC. doi:",
    a("10.1201/9781003054313",
      href = "https://doi.org/10.1201/9781003054313",
      target = "_blank"
    )
  ),
  p("and/or:"),
  div(
    class = "cite-box",
    "Martinkova, P., & Drabinova, A. (2018).", br(), "
                    ShinyItemAnalysis for teaching psychometrics and to enforce routine analysis of educational tests.", br(),
    em("The R Journal, 10", .noWS = "outside"), "(2), 503-515, doi:",
    a("10.32614/RJ-2018-074",
      href = "https://doi.org/10.32614/RJ-2018-074",
      target = "_blank"
    )
  ),
  # p("In Czech written papers you can also use:"),
  # div(class = "cite-box",
  #  "Martinkova, P., Drabinova, A., & Houdek, J. (2017).", br(), "
  #  ShinyItemAnalysis: Analyza prijimacich a jinych znalostnich ci psychologickych testu. [ShinyItemAnalysis: Analyzing admission and other educational and psychological tests. In Czech].", br(), "
  #  TESTFORUM, 6(9), 16-35. doi:",
  #  a("10.5817/TF2017-9-129",
  #    href = "https://doi.org/10.5817/TF2017-9-129",
  #    target = "_blank")),
  tags$hr(),

  #------------------------------------------------------------------------------------#
  # Funding ####
  #------------------------------------------------------------------------------------#
  h4("Funding"),
  p("European Union (CZ. 02.01.01/00/22_008/0004583), Czech Science Foundation (21-03658S, GJ15-15856Y), Charles University (PRIMUS/17/HUM/11).")
)
