I need help with subsetting data in shiny app

[Ibrahim]

I'm creating a simple shiny app using the {golem} package. Below is the code I've used for my first module:

@importFrom shiny NS tagList

mod_plot_module_ui <- function(id){
  ns <- NS(id)
  tagList(
    sidebarLayout(
      sidebarPanel(
        sliderInput(inputId = "life", label = "Life expectancy",
                    min = 0, max = 120,
                    value = c(30, 50)),
        selectInput("continent", "Continent",
                    choices = c("All", levels(gapminder$continent))),
        downloadButton("download_data")
        
      ),
      
      mainPanel(
        tabsetPanel(
          tabPanel("Plot", plotOutput(ns("plot"))),
          tabPanel("Table", DT::renderDataTable(ns("table")))
        )
      )
    )
 
  )
}

plot_module Server Function

@noRd

mod_plot_module_server <- function(input, output, session){
  ns <- session$ns
  
  filtered_data <- reactive({
    data <- gapminder
    data <- data[data$lifeExp >= input$life[1] & data$lifeExp <= input$life[2]]
    
    if (input$continent != "All") {
      data <- data[continent == input$continent]
    }
    data
  })
  
  output$plot <- renderPlot({
    data <- filtered_data()
    ggplot(data, aes(gdpPercap, lifeExp)) +
      geom_point() +
      scale_x_log10()
  })
 
}

However, when I run the application, I get this error message:
Listening on http://127.0.0.1:3775
Warning: Error in : Must subset columns with a valid subscript vector.
Logical subscripts must match the size of the indexed input.
x Input has size 6 but subscript data$lifeExp >= input$life[1] & data$lifeExp <= input$life[2] has size 0.
203:

I don't understand what this error message means. Can someone help with this? Many thanks in advance.

[nirgrahamuk]

input life doesn't exist to the module server as its id isnt wrapped with ns() in its ui definition

[Ibrahim]

When I wrap every inputId and outputId in ns() I still get the same warning message. The message comes up whenever I change values in the sliderInput.

[nirgrahamuk]

the logical subscripts error is not shiny related, its a pure data issue.
Here is a reprex of the problem, and the solution (using tidyverse/dplyr)

library(tidyverse)
library(gapminder)

input <- list()
input$life <- c(38,45)

data <- gapminder
data <- data[data$lifeExp >= input$life[1] & data$lifeExp <= input$life[2]]
# error: Must subset columns with a valid subscript vector.
# i Logical subscripts must match the size of the indexed input.
# x Input has size 6 but subscript `data$lifeExp >= input$life[1] & data$lifeExp <= input$life[2]` has size 1704.

dplyr::filter(data,
              lifeExp >= input$life[1] ,
              lifeExp <= input$life[2])

[Ibrahim]

Thank you very much. I appreciate the help.