inst/shiny-examples/ShinyItemAnalysis/ui/About.R

In kitdouble/ShinyIRT: Test and Item Analysis via Shiny

About <- tabPanel("About",
                  #------------------------------------------------------------------------------------#
                  # Description ####
                  #------------------------------------------------------------------------------------#
                  h3("Welcome"),
                  p("Welcome to ShinyItemAnalysis!"),
                  p("ShinyItemAnalysis is an interactive online application, built
                    on ",
                    a("R", href = "https://cran.r-project.org/", target = "_blank"),
                    "and",
                    a("shiny,", href = "http://www.rstudio.com/shiny/", target = "_blank"),
                    "for psychometric analysis of educational and other psychological tests and their items.
                    You can simply start using the application by choosing toy dataset (or upload your own one)
                    in section ", strong("Data"), " and run analysis including:" ),
                  tags$ul(tags$li("Exploration of total and standard scores in ", strong("Summary"), "section"),
                          tags$li("Analysis of measurement error in ", strong("Reliability"), "section"),
                          tags$li("Correlation structure and criterion validity analysis in ", strong("Validity"), "section"),
                          tags$li("Item and distractor analysis in ", strong("Item analysis"), "section"),
                          tags$li("Item analysis with regression models in ", strong("Regression"), "section"),
                          tags$li("Item analysis by item response theory models in ", strong("IRT models"), "section"),
                          tags$li("Differential item functioning (DIF) and differential distractor functioning (DDF)
                                  methods in ", strong("DIF/Fairness"), "section")),
                  p("All graphical outputs can be downloaded via download button. Moreover, you can automatically
                    generate HTML or PDF report in", strong("Reports"), "section. All offered analysis
                    are complemented by selected R code which is ready to be copy pasted into your R console, hence
                    the similar analysis can be run and modified in R."),
                  tags$hr(),
                  #------------------------------------------------------------------------------------#
                  # Availability ####
                  #------------------------------------------------------------------------------------#
                  fluidRow(
                    column(6,
                           h4("Availability"),
                           p("Application can be downloaded as R package from ",
                             a("CRAN.", href = "https://CRAN.R-project.org/package=ShinyItemAnalysis", target = "_blank"),
                             br(),
                             "It is also available online at ",
                             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>.")),
                           p("Visit our",
                             a("web page",
                               href = "http://www.shinyitemanalysis.org",
                               target = "_blank"), "about ShinyItemAnalysis to learn more!")),

                    #------------------------------------------------------------------------------------#
                    # Version ####
                    #------------------------------------------------------------------------------------#
                    column(6, h4("Versions"),
                           p("Current",
                             a("CRAN", href = "https://CRAN.R-project.org/package=ShinyItemAnalysis", target = "_blank"),
                             "version is 1.2.8.",
                             br(),
                             "Version available",
                             a("online", href = "https://shiny.cs.cas.cz/ShinyItemAnalysis/", target = "_blank"), "is 1.2.8.",
                             br(),
                             "The newest development version available on ",
                             a("GitHub", href = "https://github.com/patriciamar/ShinyItemAnalysis", target = "_blank"), "is 1.2.8-1.",
                             br(),
                             "See also older versions: ",
                             a("0.1.0, ", href = "https://shiny.cs.cas.cz/ShinyItemAnalysisV01/", target = "_blank"),
                             a("0.2.0, ", href = "https://shiny.cs.cas.cz/ShinyItemAnalysisV02/", target = "_blank"),
                             a("1.0.0, ", href = "https://shiny.cs.cas.cz/ShinyItemAnalysisV100/", target = "_blank"),
                             a("1.1.0, ", href = "https://shiny.cs.cas.cz/ShinyItemAnalysisV110/", target = "_blank"),
                             a("1.2.3, ", href = "https://shiny.cs.cas.cz/ShinyItemAnalysisV123/", target = "_blank"),
                             a("1.2.6. ", href = "https://shiny.cs.cas.cz/ShinyItemAnalysisV126/", target = "_blank")))),
                  tags$hr(),
                  #------------------------------------------------------------------------------------#
                  # Team ####
                  #------------------------------------------------------------------------------------#
                  h4("Meet the team"),
                  fluidRow(
                    column(1, align = "center",
                           img(src = "author_patricia.png", width = 75),
                           HTML("<figcaption><a href='http://www.cs.cas.cz/martinkova/' target='_blank'>Patricia<br>Martinkova</a></figcaption>")),
                    column(1, align = "center",
                           img(src = "author_adela.jpg", width = 75),
                           HTML("<figcaption><a href='http://www.cs.cas.cz/drabinova/' target='_blank'>Adela<br>Drabinova</a></figcaption>")),
                    column(1, align = "center",
                           img(src = "author_ondra.png", width = 75),
                           HTML("<figcaption><a href='https://www.linkedin.com/in/ond%C5%99ej-leder-3864b1119' target='_blank'>Ondrej<br>Leder</a></figcaption>")),
                    column(1, align = "center",
                           img(src = "author_jakub.png", width = 75),
                           HTML("<figcaption>Jakub<br>Houdek</figcaption>")),
                    column(1, align = "center",
                           img(src = "author_lubos.jpg", width = 75),
                           HTML("<figcaption>Lubomir<br>Stepanek</figcaption>"))),
                  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., Drabinova A., Leder O., & Houdek J. (2018).", br(), "
                    ShinyItemAnalysis: Test and item analysis via shiny.", br(), "
                    R package version 1.2.6. ", br(), "
                    https://CRAN.R-project.org/package=ShinyItemAnalysis"),
                  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", br(), "
                    [ShinyItemAnalysis: Analyzing admission and other educational and psychological tests].", br(), "
                    TESTFORUM, 6(9), 16-35. doi:10.5817/TF2017-9-129"),
                  tags$hr(),

                  #------------------------------------------------------------------------------------#
                  # Acknowledgments ####
                  #------------------------------------------------------------------------------------#
                  h4("Acknowledgments"),
                  p("Project was supported by Czech Science Foundation grant GJ15-15856Y 'Estimation of psychometric
                    measures as part of admission test development' and by Charles University grant PRIMUS/17/HUM/11
                    'Center for Educational Measurement and Psychometrics (CEMP)'."),
                  br(),
                  br()
                  )