Hello, I've been trying to define an object that the function below can find, I believe I am doing it, but i still get an error message saying that "userInputs is not found"
Here is the relevant server code
final <- reactiveValues()
observeEvent(input$getUserTable, {
userInputs <- list(focus = 1, school = c(10101, 10102), data = c(101, 102, 301))
l <- length(userInputs)
final$userTable <- filterDatabase(l)
})
and here is the function filterDatabase()
filterDatabase <- function(x) {
if (x == 1) {
filter(freshDatabase2[['count']], eval(str2expression(paste(names(userInputs)[1], 'ID', sep = ''))) %in% userInputs[[1]])
} else {
filter(filterDatabase(x-1), eval(str2expression(paste(names(userInputs), 'ID', sep = ''))) %in% userInputs[])
}
}