Error in R shiny subsetting dataframe based on CSV file

Question

I Am creating a dynamic update in R shiny with the following code using the iris dataset

 write.csv(iris, file = "iris.csv", row.names = F)
# to create a local version of iris dataset

# next create UI


  ui <- fluidPage(


   fileInput("file", "Browse",
        accept = c("text/csv",
                   "text/comma-separated-values,text/plain",
                   ".csv")
    ),
   selectInput(inputId = "Speciesname", label = "Name",choices = 
    NULL,selected = NULL),
   tableOutput("data")
   )


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



 df = reactive({
 req(input$file)
 return(read.csv(input$file$datapath))
 })

  observe({
  choices1 = unique(df()$Species)
  updateSelectInput(session,"Speciesname", choices =  choices1)
  })
  output$data <- renderTable({
  req(input$Speciesname)
  df[as.character(input$Speciesname), ]
  }, )
   }


 #Run app
 shinyApp(ui, server)

I am able to read the file in. The subsetting however is showing the following error and the shiny app

 Warning: Error in [: object of type 'closure' is not subsettable
 [No stack trace available]

I am unable to understand or sort this error out. The code runs when I dont use a local copy of the dataset but use the built in R iris dataset. I request someone to guide me here

it should be df(), as in df()[as.character(input$Speciesname), ] — Pork Chop
– Pork Chop, Commented Oct 9, 2018 at 9:38
Thank you Sir. I have made the correction but now I am only getting NA values in all rows of the output. The colun headings appear — Raghavan vmvs
– Raghavan vmvs, Commented Oct 9, 2018 at 9:40

Pork Chop · Accepted Answer · 2018-10-09 09:44:37Z

2

This should do the job

library(shiny)
write.csv(iris, file = "iris.csv", row.names = F)
# to create a local version of iris dataset

# next create UI

ui <- fluidPage(


  fileInput("file", "Browse",
            accept = c("text/csv",
                       "text/comma-separated-values,text/plain",
                       ".csv")),
  selectInput(inputId = "Speciesname", label = "Name",choices = 
                NULL,selected = NULL),
  tableOutput("data")
)


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

  df = reactive({
    req(input$file)
    return(read.csv(input$file$datapath))
  })

  observe({
    choices1 = unique(df()$Species)
    updateSelectInput(session,"Speciesname", choices =  choices1)
  })

  output$data <- renderTable({
    req(input$Speciesname)
    df()[df()$Species %in% input$Speciesname,]
  })
}


#Run app
shinyApp(ui, server)

answered Oct 9, 2018 at 9:44

Pork Chop

29.5k5 gold badges69 silver badges82 bronze badges

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

3 Comments

Raghavan vmvs Over a year ago

Thank you Sir. Is the %in% operator essential

Pork Chop Over a year ago

Yes, its a better version of == it will take care of multiple matches, if any. For example if you have 2 species selected and want them to be displayed it easier to have this operator instead of writing == twice

Raghavan vmvs Over a year ago

Lovely. Thank You Sir

Collectives™ on Stack Overflow

Error in R shiny subsetting dataframe based on CSV file

1 Answer 1

3 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

3 Comments

Your Answer

Sign up or log in

Post as a guest

Related