R/app_ui_utils.R

In qiushiyan/nyclodging: Airbnb listings in New York City in 2019

#' utility functions for explore module
#' @importFrom styler style_text
#' @import shiny
#' @param text
#' @noRd
modal <- function(text) {
  modalDialog(
    tagList(
      tags$code(
        id = "modal-code-content",
        tags$pre(
          paste(style_text(text), collapse = "\n")
        )
      )
    ),
    footer = tagList(
      modalButton("OK")
    ),
  )
}

#' make nav menu
#' @importFrom htmltools tags
#' @importFrom glue glue
#' @noRd
nav_ <- function(name, x) {
  tags$nav(
    class = "navbar navbar-expand-lg fixed-top ",
    tags$h5(
      name,
      onClick = glue('
        $( ".row" ).hide();
        $( ".row" ).first().show();
        $( ".nav-link" ).first().addClass("active");
        var h = parseInt($("nav").outerHeight()) + 30;
        $(".row").css("padding-top", h + "px");
     '),
      style = "cursor:pointer"
    ),
    # For portait mode
    tags$button(
      class = "navbar-toggler",
      type = "button",
      `data-toggle` = "collapse",
      `data-target` = "#menu",
      `aria-controls` = "menu",
      `aria-expanded` = "false",
      `aria-label` = "Toggle navigation",
      tags$div(
        class = "navbar-toggler-icon",
        HTML('<img src="https://img.icons8.com/metro/26/000000/menu.png">')
      )
    ),
    tags$div(
      class = "collapse navbar-collapse",
      id = "menu",
      tags$ul(
        class = "navbar-nav mr-4",
        tagList(
          purrr::imap(
            x, nav_item
          )
        )
      )
    )
  ) %>% tags$header(class = "plpl")
}

#' @importFrom htmltools tags
#' @importFrom glue glue
#' @noRd
nav_item <- function(label, id) {
  tags$li(
    class = "nav-item",
    tags$a(
      class = "nav-link",
      `data-value` = label,
      onclick = glue('
        $( "a.nav-link" ).removeClass("active");
        $( this ).addClass("active");
        $( ".row" ).hide();
        $( `#{id}` ).show();
        $( `#{id}` ).trigger("show");
        $( `#{id}` ).trigger("shown");
      '),
      label
    )
  )
}