R/validity.R

In Spectran: Visual and Non-Visual Spectral Analysis of Light

# UI ----------------------------------------------------------------------

validityUI <- function(
    id
    ) {
  
  ns <- shiny::NS(id)
  
  htmltools::tagList(
        htmltools::h3(lang$ui(153)),
        htmltools::h4(lang$ui(154)),
        htmltools::p(
                     lang$ui(157)
                     ),
        htmltools::tags$script(
          htmltools::HTML(
            "$(document).ready(function() {
            function setIframeHeight() {
            var windowHeight = $(window).height();
            $('#validation').height(windowHeight - 250); 
            // 70px for the navbar
            }
            setIframeHeight();
            $(window).resize(setIframeHeight);
            });
            ")),
        htmltools::tags$iframe(id = "validation", 
                               src = 'https://litgde.github.io/Spectran/articles/Validation.html',
                               allowfullscreen='true',
                               frameborder='0',
                               allowtransparency='true',
                               width = "100%"),
        htmltools::h4(lang$ui(179)),
        htmltools::p(lang$ui(155), 
                     htmltools::a(.noWS = "outside", 
                                  "DIN/TS 5031-100:2021-11", 
                                  href = URL_DIN, target="_blank"),
                     lang$ui(156),
                     htmltools::a(.noWS = "outside", 
                                  "CIE S026 (2018)", 
                                  href = URL_CIE, target="_blank"),
                     "."),
        htmltools::tags$script(
          htmltools::HTML(
            "$(document).ready(function() {
            function setIframeHeight() {
            var windowHeight = $(window).height();
            $('#values').height(windowHeight - 250); 
            // 70px for the navbar
            }
            setIframeHeight();
            $(window).resize(setIframeHeight);
            });
            ")),
        htmltools::tags$iframe(id = "values", 
                               src = 'https://litgde.github.io/Spectran/articles/Values.html',
                               allowfullscreen='true',
                               frameborder='0',
                               allowtransparency='true',
                               width = "100%")
  )
  }

# Server ------------------------------------------------------------------

# App ---------------------------------------------------------------------