Labels with spaces breaks functionality

[yeelauren]

How can I create labels with spaces? or > 1 word?

[davesteps]

The label is NULL by default and if none is specified it uses the id of the filter, it is really the id of the filter that can't have spaces. To change the label you need to use filterInput and arguments are passed through to the relevant UI input like so:

library(shiny)
library(shinyjs)
library(dplyr)
library(shinyFilters)


# create filterset in global section of app
filterSet <- newFilterSet('FS1') %>%
  # give each filter unique id and tell it which column to filter on
  addSelectFilter('cylinders','cyl') %>%
  addSelectFilter('gears','gear') %>%
  addSliderFilter('disp',value=c(0,500)) %>%
  addSelectFilter('carb') %>%
  addCustomSliderFilter('hp',value=seq(0,500,50))


ui <- fluidPage(
  #shinyjs is required to show/hide filters
  useShinyjs(),
  sidebarLayout(
    sidebarPanel(
      # filterInput(filterSet),
      filterInput(filterSet,'cylinders',label = 'Some Name '),
      filterInput(filterSet,'gears'),
      filterInput(filterSet,'disp'),
      filterInput(filterSet,'carb'),
      filterInput(filterSet,'hp'),
      hr(),
      filterMaster(filterSet),
      filterResetButton(filterSet)
    ),
    mainPanel(
      DT::dataTableOutput("data")
    )
  )
)

server <- function(input, output,session) {
  
  # wrap data in reactive expression in case you
  # need to do something to the data before filtering
  data <- reactive(mtcars)
  
  # initialize the filter set
  filterSet <- initializeFilterSet(filterSet, data)
  
  # the output is a reactive data.frame
  output$data <- DT::renderDataTable(filterSet$output())
  
}

shinyApp(ui, server)

[yeelauren]

@davesteps that works well, thank you!
Follow-up question: Is there a way to display the labels in filterMaster(filterSet) for the active filters instead of the filter id?

[davesteps]

You can't do this currently. When I can't chance I'll look into implementing it.