R/R/selectTAL.R

Defines functions selectTAL

selectTAL <- function(iniLinks, input){
  if (input$country=="All") iniLinks <- iniLinks else iniLinks <- subset(iniLinks, iniLinks$country==input$country)
  if (input$city=="All") iniLinks <- iniLinks else iniLinks <- subset(iniLinks, iniLinks$city==input$city)
  if (input$brand=="All") iniLinks <- iniLinks else iniLinks <- subset(iniLinks, iniLinks$brand==input$brand)
  return(iniLinks)
}
NicolasJBM/tripapp documentation built on Nov. 18, 2017, 8:49 a.m.