R/adhanHelsinkiUniTeh.R

In gacatag/adhan: Get Adhan (i.e. Islamic prayer) times

adhanHelsinkiUniTeh<- function(
  day,
  month,
  year){
  # Get date from system if it is missing
  if(missing(day)|missing(month)|missing(year)){
    now<- unlist(strsplit(date(), split=" "))
    now<- now[which(now!="")]
    names(now)<- c("weekday", "month", "day", "time", "year")
    
    
    month<- grep(now["month"], month.name)
    day<- now["day"]
    year<- now["year"]
  }
  # return prayer times
  return(adhan( 
    month=month,
    day=day,
    year=year, 
    method="7",
    city="Helsinki",
    country="Finland"))
}