#' A timezone function
#'
#' This function returns the current time of some of my co-authors
#' @param time a date time
#' @keywords coauthors timezone
#' @importFrom lubridate with_tz is.POSIXct
#' @export
#' @examples
#' time_coauthors()
time_coauthors <- function(time){
if(missing(time)){
time <- Sys.time()
}else{
if(!is.POSIXct(time)){
if(is.numeric(time)){
time <- as.character(time)
}
if(grepl(":",time)){
time <- as.POSIXct(time,format="%H")
}else{
time <- as.POSIXct(time,format="%H:%M")
}
}
}
cat("たって今東京で",format(with_tz(time,tzone="Asia/Tokyo"), "%H:%M"),"時間です","\n")
cat("The current time in Bristol is ",format(with_tz(time,tzone="GMT"), "%H:%M"),"\n")
#cat(" -> From March the time will be","\n")
cat("L'hora actual a Barcelona és a les ",format(with_tz(time,tzone="CET"), "%H:%M"),"\n")
#cat(" -> From March the time will be","\n")
cat("The current time in Washington, D.C. is ",format(with_tz(time,tzone="EST"), "%H:%M"),"\n")
#cat(" -> From March the time will be","\n")
cat("L'heure actuelle à Paris est ",format(with_tz(time,tzone="CET"), "%H:%M"),"\n")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.