pvictor

library(shiny)
library(shinyWidgets)
library(htmltools)

ui <- fluidPage(
  
  tags$h2("Inline pickers input"),
  tags$br(),
  
  # CSS styles

pvictor

# on CRAN now (version 0.2.3)
library(billboarder)

# data
data("prod_par_filiere")


# helper fun
make_bar <- function(year, show_y_axis = TRUE) {

pvictor

# on CRAN now (version 0.2.3)
library(billboarder)

# data
data("economics", package = "ggplot2")

# helper fun
make_line <- function(var, title, percent = TRUE) {
  billboarder() %>%
    bb_linechart(data = economics[, c("date", var)]) %>% 

pvictor

library(billboarder)

dat <- data.frame(
  lib = c("A", "B", "C"),
  value = c(34, 54, 62)
)

# Donut title
billboarder() %>% 
  bb_donutchart(dat) %>% 

pvictor

#  ------------------------------------------------------------------------
#
# Title : Module choix groupe
#    By : Vic
#  Date : 2018-04-12
#    
#  ------------------------------------------------------------------------

pvictor

library(shiny)
ui <- fluidPage(
  selectizeInput(
    inputId = "select", 
    label = "Select", 
    choices = NULL,
    multiple = TRUE,
    options = list(
      plugins = list("remove_button"),
      create = TRUE,

pvictor

# BB-8 --------------------------------------------------------------------

# Inspired by Brian Hough in http://codepen.io/bhough/pen/wawrPL



# Packages ----------------------------------------------------------------

library("dplyr")
library("ggplot2")

pvictor

# France map with ggiraph -------------------------------------------------

#### Packages ####
library("ggplot2")
library("ggiraph")
library("ggthemes")
library("rgdal")
library("readxl")

pvictor

library(shiny)

shinyServer(function(input, output) {
  sortie<-NULL
  sortie <- reactive({
    if (input$click1>0) {data.frame(rnorm(10), rexp(10))}
  })
  
  
  output$click.feeback1 <- renderText({