prepare for CRAN release

RinteRface · Feb 25, 2019 · 609c986 · 609c986
1 parent 7b20f5b
commit 609c986
Show file tree

Hide file tree

Showing 261 changed files with 6 additions and 1,320 deletions.
diff --git a/R/icons.R b/R/icons.R
@@ -3,18 +3,17 @@
 #' Build a tabler icon
 #'
 #' @param name Name of icon. See \url{https://preview.tabler.io/icons.html} for all valid icons.
-#' @param lib Icon library ("feather", "font-awesome", "flag", "payment").
+#' @param lib Icon library ("feather", "font-awesome", "payment").
 #'
 #' @author David Granjon, \email{dgranjon@@ymail.com}
 #'
 #' @export
-tablerIcon <- function(name, lib = c("feather", "font-awesome", "flag", "payment")) {
+tablerIcon <- function(name, lib = c("feather", "font-awesome", "payment")) {
  lib <- match.arg(lib)
  iconCl <- switch(
    lib,
    "feather" = "fe fe-",
    "font-awesome" = "fa fa-",
-   "flag" = "flag flag-",
    "payment" = "payment payment-"
  )
  shiny::tags$i(class = paste0(iconCl, name))

diff --git a/docs/reference/tablerIcon.html b/docs/reference/tablerIcon.html
diff --git a/inst/examples/app.R b/inst/examples/app.R
@@ -4,8 +4,6 @@ library(shinyEffects)
 library(echarts4r)
 library(shinyWidgets)
 
-options(shiny.trace = TRUE)
-
 # datas flowGl
 vectors <- expand.grid(x = -3:3, y = -3:3)
 mu <- 1
@@ -67,8 +65,6 @@ shiny::shinyApp(
     navbar = tablerDashNav(
       id = "mymenu",
       src = "https://preview.tabler.io/demo/brand/tabler.svg",
-      tablerIcon(name = "fr", lib = "flag"),
-      tablerIcon(name = "ch", lib = "flag"),
       tablerDropdown(
         tablerDropdownItem(
           title = "Item 1 title",

diff --git a/inst/examples/tabs/app.R b/inst/examples/tabs/app.R
@@ -4,7 +4,6 @@ library(shinyEffects)
 library(echarts4r)
 library(shinyWidgets)
 
-options(shiny.trace = TRUE)
 
 # datas flowGl
 vectors <- expand.grid(x = -3:3, y = -3:3)
@@ -79,8 +78,6 @@ shiny::shinyApp(
           "Test"
         )
       ),
-      tablerIcon(name = "fr", lib = "flag"),
-      tablerIcon(name = "ch", lib = "flag"),
       tablerDropdown(
         tablerDropdownItem(
           title = "Item 1 title",