R/mod_storymap.R
In Metropolitan-Council/planting.shade: Tree planting and preservation prioritization tool
Defines functions
mod_storymap_server
mod_storymap_ui
#' storymap UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd
#'
#' @importFrom shiny NS tagList
mod_storymap_ui <- function(id) {
ns <- NS(id)
tagList(
br(class = "d-none d-lg-block"),
htmlOutput(ns("storymap"))
)
}
#' storymap Server Functions
#'
#' @noRd
mod_storymap_server <- function(id) {
moduleServer(id, function(input, output, session) {
ns <- session$ns
output$storymap <- renderUI({
my_test <- HTML("<div style='max-width:3000px;'><body><iframe title='StoryMap about the Growing Shade Project' src='https://storymaps.arcgis.com/stories/1a7fe9365a8f4bfc81305bb288fbbcfa' style='width:100%; height:calc(93vh); padding:0px; padding-top:0px; border:0; object-position: center bottom;'</iframe></body></div>")
my_test
})
})
}
## To be copied in the UI
# mod_storymap_ui("storymap_ui_1")
## To be copied in the server
# mod_storymap_server("storymap_ui_1")
Metropolitan-Council/planting.shade documentation built on Feb. 25, 2024, 3:15 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Defines functions mod_storymap_server mod_storymap_ui
#' storymap UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd
#'
#' @importFrom shiny NS tagList
mod_storymap_ui <- function(id) {
ns <- NS(id)
tagList(
br(class = "d-none d-lg-block"),
htmlOutput(ns("storymap"))
)
}
#' storymap Server Functions
#'
#' @noRd
mod_storymap_server <- function(id) {
moduleServer(id, function(input, output, session) {
ns <- session$ns
output$storymap <- renderUI({
my_test <- HTML("<div style='max-width:3000px;'><body><iframe title='StoryMap about the Growing Shade Project' src='https://storymaps.arcgis.com/stories/1a7fe9365a8f4bfc81305bb288fbbcfa' style='width:100%; height:calc(93vh); padding:0px; padding-top:0px; border:0; object-position: center bottom;'</iframe></body></div>")
my_test
})
})
}
## To be copied in the UI
# mod_storymap_ui("storymap_ui_1")
## To be copied in the server
# mod_storymap_server("storymap_ui_1")
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.