-# getRemainingOpDays
+#' getRemainingOpDays
# This is a function that returns the remaining operating days in a month
# It takes as arguments the country, state, date for which the request is made.
# It returns a number
# It currently only supports AU (Australia)
+#' @param country A country - use ISO format (currently only takes AU)
+#' @param state A state - use 2 or 3 letter abbreviation, in capitals
+#' @param date A date from which the remaining operating days in the month will be counted
+#' @return The number of remaining operating days in \code{state}, \code{country} as of \code{date}
+#' @examples getRemainingOpDays("AU","WA","2016-05-10")
getRemainingOpDays <- function(country,state,date) {
cutoff.time = "15:00"