Use R Shiny selectInput in dynamic query

Question

I'm trying to use a selectInput in a dynamic sql query with Shiny but the reactive state seems to go awry :

Operation not allowed without an active reactive context. (You tried to do something that can only be done from inside a reactive expression or observer.)

I am actually using RODBC with a sql query but this is an attempt at a reproducible example.

Server :

data(citytemp, package = "highcharter")

function(input, output) {
  getCityData <- function(selectedCity) {
    return(citytemp[[selectedCity]])

    # hardcoded : 
    # return(citytemp$tokyo)

    # dynamic sql query
    # sql <- paste0("select * from cities where name = ", selectedCity)
  }

  cityData <- getCityData(input$cityFilter)

  #render highchart with cityData

}

UI :

library("shiny")
library("shinydashboard")

selectInput("cityFilter", label = "City", choices = list("Tokyo" = "tokyo", "London" = "london", "Berlin" = "berlin"))
box(width = 6, highchartOutput("highchart"))

Pork Chop · Accepted Answer · 2016-10-10 09:45:55Z

3

Since you are using the client inputs they have to be either in a reactive expression or in observer, try this:

  cityData <- reactive({getCityData(input$cityFilter)})
  output$highchart <- renderHighchart({cityData()})

answered Oct 10, 2016 at 9:45

Pork Chop

29.5k5 gold badges69 silver badges82 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

nilsole · Accepted Answer · 2016-10-10 09:54:05Z

1

Basic example, make sure to state reactive({getCityData(input$cityFilter)}).

library(shiny)
library(shinydashboard)
library(highcharter)
ui <- dashboardBody(
  selectInput("cityFilter", label = "City", choices = list("Tokyo" = "tokyo", "London" = "london", "Berlin" = "berlin")),
  box(width = 6, highchartOutput("highchart") )
)
server = function(input, output){
  data(citytemp, package = "highcharter")
  getCityData <- function(selectedCity) {
    return(citytemp[[selectedCity]])
    # hardcoded : 
    # return(citytemp$tokyo)
    # dynamic sql query
    # sql <- paste0("select * from cities where name = ", selectedCity)
  }
  cityData <- reactive({getCityData(input$cityFilter)})
  output$highchart <- renderHighchart({
    selectedCityData <- cityData()
    print("selected city data is")
    print(selectedCityData)
    hc <- highchart(type = "chart")  %>%
      hc_add_series( name = input$cityFilter,
                     data = selectedCityData  )
    theme <- hc_theme_null()
    hc <- hc %>% hc_add_theme(theme)
    return(hc)
  })
}
shinyApp(ui=ui, server=server)

edited Oct 10, 2016 at 9:54

answered Oct 10, 2016 at 9:46

nilsole

1,7332 gold badges12 silver badges31 bronze badges

1 Comment

dataphile Over a year ago

Thanks nilsole, that selectedCityData reference was the clincher ;-)

dataphile · Accepted Answer · 2017-02-26 12:00:18Z

0

Here's the working solution if anyone is looking for it.

github : dynamic query from reactive shiny widget

answered Feb 26, 2017 at 12:00

dataphile

3521 gold badge5 silver badges15 bronze badges

Collectives™ on Stack Overflow

Use R Shiny selectInput in dynamic query

3 Answers 3

Comments

1 Comment

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

Comments

1 Comment

Comments

Your Answer

Sign up or log in

Post as a guest

Related