inst/examples/ui.R

library(shiny)
library(rdatamaps)
# require(magrittr)
# require(dplyr)


ui = shinyUI(fluidPage(
  fluidRow(  column(3,sliderInput("integer", "Multiplier:",
                                  min=1, max=5, value=1)),
             column(6,
                    rdatamaps::rdatamapsOutput('map'))  ),
  fluidRow(br(), verbatimTextOutput("results") )
  ))
smartinsightsfromdata/rdatamaps documentation built on May 30, 2019, 3:07 a.m.