https://github.com/yonicd/regexSelect

Enable regular expression searching of selectize object options in the R Shiny package
https://github.com/yonicd/regexSelect

Last synced: 28 days ago
JSON representation

Enable regular expression searching of selectize object options in the R Shiny package

• Host: GitHub
• URL: https://github.com/yonicd/regexSelect
• Owner: yonicd
• Created: 2017-06-24T03:34:38.000Z (over 7 years ago)
• Default Branch: master
• Last Pushed: 2017-09-26T15:59:11.000Z (about 7 years ago)
• Last Synced: 2024-11-10T18:49:12.050Z (about 1 month ago)
• Language: R
• Homepage:
• Size: 5.23 MB
• Stars: 19
• Watchers: 3
• Forks: 0
• Open Issues: 1
• Metadata Files:
  • Readme: README.md

Awesome Lists containing this project

• awesome-shiny-extensions - regexSelect - Enable regular expression searches within a Shiny selectize object. (UI Components / Special Input)
• jimsghstars - yonicd/regexSelect - Enable regular expression searching of selectize object options in the R Shiny package (R)

README

        
[![CRAN\_Status\_Badge](https://www.r-pkg.org/badges/version/regexSelect)](https://cran.r-project.org/package=regexSelect)

[![Project Status: Active - The project has reached a stable, usable state and is being actively developed.](http://www.repostatus.org/badges/0.1.0/active.svg)](http://www.repostatus.org/#active) 

![downloads](http://cranlogs.r-pkg.org/badges/regexSelect)

[![Build Status](https://travis-ci.org/yonicd/regexSelect.svg?branch=master)](https://travis-ci.org/yonicd/regexSelect)[![AppVeyor Build Status](https://ci.appveyor.com/api/projects/status/github/yonicd/regexSelect?branch=master&svg=true)](https://ci.appveyor.com/project/yonicd/regexSelect)

# regexSelect

R package to enable regular expression searches within a shiny selectize object.

## install

```r

devtools::install_github('yonicd/regexSelect')

```

## Examples

### renderTable

```r

require(shiny)

if(interactive()){

ui <- shiny::fluidPage(

regexSelectUI(id = "a", label = "Variable:",choices = names(iris)),

shiny::tableOutput("data")

)

server <- function(input, output, session) {

  curr_cols<-callModule(regexSelect, "a",shiny::reactive(names(iris)))

  

  observeEvent(curr_cols(),{

  cols_now<-curr_cols()

  if(length(cols_now)==0)  cols_now<-names(iris)

  output$data <- shiny::renderTable({iris[,cols_now , drop = FALSE]}, rownames = TRUE)

  })

}

shiny::shinyApp(ui, server)

}

```

### renderPlot

```r

library(ggplot2)

ui <- fluidPage(

  selectInput('var','Choose Variable',

              choices = names(diamonds)[sapply(diamonds,function(x) inherits(x,c('character','factor')))],

              selected = 'clarity'),

  uiOutput('regexchoose'),

  plotOutput("data")

  )

  

server <- function(input, output, session) {

  

  output$regexchoose<-shiny::renderUI({

    regexSelectUI(id = "a", label = input$var,choices = unique(diamonds[[input$var]]))

  })

  

  observeEvent(input$var,{

    curr_cols<-callModule(regexSelect, "a",shiny::reactive(unique(diamonds[[input$var]])))

    

    observeEvent(curr_cols(),{

      cols_now<-curr_cols()

      output$data <- shiny::renderPlot({

        ggplot(diamonds[diamonds[[input$var]]%in%cols_now,],aes_string(x='table',y='carat',colour=input$var))+geom_point()

      })

    })    

  })

  

}

  

shinyApp(ui, server)

```