R/loon_sidebarPanel-l_plot.R

In great-northern-diver/loon.shiny: Automatically Create a 'Shiny' App Based on Interactive 'Loon' Widgets

loon_sidebarPanel.l_plot <- function(loon.grob,
                                     tabPanelName,
                                     colorList,
                                     selectBy,
                                     linkingGroup,
                                     linkingGroups,
                                     loonWidgetsInfo,
                                     showWorldView, displayedPanel) {

  shiny::tabPanel(
    title = tabPanelName,
    if(showWorldView) {
      shiny::plotOutput(outputId = paste0(tabPanelName, "plot_world_view"),
                        height = "200px")
    },
    h6(""),
    # Loon inspector Plot panel
    collapse_button("Plot", tabPanelName),
    tagsDivPlot(loon.grob, tabPanelName, loonWidgetsInfo,
                linkingGroup, displayedPanel),
    # Loon inspector Select panel
    collapse_button("Select", tabPanelName),
    tagsDivSelect(loon.grob, tabPanelName, loonWidgetsInfo, displayedPanel),
    # Loon inspector Link panel
    collapse_button("Linking", tabPanelName),
    tagsDivLink(loon.grob, tabPanelName, loonWidgetsInfo,
                linkingGroup, linkingGroups, displayedPanel),
    # Loon inspector Modify panel
    collapse_button("Modify", tabPanelName),
    tagsDivModify(loon.grob, tabPanelName, colorList, loonWidgetsInfo, displayedPanel),
    # Loon inspector Layer panel
    collapse_button("Layer", tabPanelName),
    tagsDivLayer(loon.grob, tabPanelName, loonWidgetsInfo, displayedPanel),
    # Loon inspector Glyph panel
    collapse_button("Glyph", tabPanelName),
    tagsDivGlyph(loon.grob, tabPanelName, loonWidgetsInfo, displayedPanel)
  )
}