R/utils_gallery_content.R

In mapmixture: Spatial Visualisation of Admixture on a Projected Map

#' Gallery Tab Content
#'
#' @noRd
#' @description Return HTML string containing content for the Gallery tabPanel

gallery_content <- function() {

  htmltools::HTML(
    '
    <div id="gallery" class="carousel slide carousel-dark" data-interval="false">

      <div class="carousel-inner">
        <div class="carousel-item active">
          <img class="mx-auto d-block" src="./www/img/mapmixture1.png" alt="Example1" height="100%">
        </div>
        <div class="carousel-item">
          <img class="mx-auto d-block" src="./www/img/mapmixture2.png" alt="Example2" height="100%">
        </div>
        <div class="carousel-item">
          <img class="mx-auto d-block" src="./www/img/mapmixture3.png" alt="Example3" height="100%">
        </div>
        <div class="carousel-item">
          <img class="mx-auto d-block" src="./www/img/mapmixture4.png" alt="Example4" height="100%">
        </div>
      </div>

      <button class="carousel-control-prev" type="button" data-bs-target="#gallery" data-bs-slide="prev">
        <span class="carousel-control-prev-icon"></span>
      </button>

      <button class="carousel-control-next" type="button" data-bs-target="#gallery" data-bs-slide="next">
        <span class="carousel-control-next-icon"></span>
      </button>

    </div>
  ')
}