R/scraping.R

In T-Engel/lunch: Helps you decide what you want for lunch

#' Download menu text from link
#'
#' @return character.
#'

get_menu<-function(){

    website<- read_html(link)

    text <-html_text(website)
    return(text)
}



#' Check menu for alerts
#'
#' @param menu  character string
#' @param alerts a vector of alerts
#'
#' @return a vector of all the relevant alerts
#'

check_alert<-function(menu, alerts= alerts){
    result<-sapply(alerts, function(term) grepl(term, menu, ignore.case=T))

    return(alerts[result])
}


#' extract todays menu
#'
#' @param menu character string
#' @param day numeric weekday
#'
#' @return character string

todays_menu<-function(menu , day ){
    days <- c("Montag", "Dienstag", "Mittwoch", "Donnerstag", "Freitag", "Samstag", "Sonntag")

  out<-  unlist(strsplit(menu, split = days[day]))[2]
  out<-  unlist(strsplit(out, split = days[day+1]))[1]

  if(day==5){
    out<-  unlist(strsplit(menu, split = days[day]))[3]
  }else{
    out<-  unlist(strsplit(menu, split = days[day]))[2]
    out<-  unlist(strsplit(out, split = days[day+1]))[1]

  }

  return(out)

}