Update number of iteration with proxy

Use this in 'shiny' application to update an already generated topogram().

Usage

topogram_proxy_iteration(proxy, n_iteration)

Arguments

proxy

A topogram_proxy htmlwidget object.

n_iteration

Number of iterations to run the algorithm for. Higher numbers distorts the areas closer to their associated value, at the cost of performance.

Value

A topogram_proxyhtmlwidget object.

Examples

library(topogram)
library(shiny)

ui <- fluidPage(
  tags$h2("Update number of iteration with proxy"),
  sliderInput(
    inputId = "n_iteration", 
    label = "Number of iteration (more takes longer)",
    min = 1, 
    max = 60,
    value = 10
  ),
  topogramOutput(outputId = "ID", height = "800px")
)

server <- function(input, output, session) {
  
  # Initialize the topogram (non reactive)
  output$ID <- renderTopogram({
    topogram(
      sfobj = world,
      value = "pop_est", 
      label = "{name} : {value}"
    )
  })
  
  # Update with proxy
  observeEvent(input$n_iteration, {
    topogram_proxy_iteration("ID", input$n_iteration)
  }, ignoreInit = TRUE)
  
}

if (interactive())
  shinyApp(ui, server)