R/seconds_converter.R

In neugelb/neugelbtools: Various small Neugelb tools

#' seconds_converter
#'
#' An easy function for calculating the total seconds of a time object
#' @param time_frame Your time object - could be a vector or a column (or columns) from a data frame
#' @export

secondsconverter <- function(days,hours,minutes,seconds) {
  days_secs <- days * 86400
  hours_secs <- hours * 3600
  minutes_secs <- minutes * 60
  x <- days_secs + hours_secs + minutes_secs + seconds
  return(x)
}