diff --git a/R/write.px.R b/R/write.px.R index e81e344..4bd1a07 100644 --- a/R/write.px.R +++ b/R/write.px.R @@ -71,7 +71,7 @@ write.px <- function ( obj.px, filename, heading = NULL, stub = NULL, # CREATION-DATE: if ( is.null(obj.px$'CREATION-DATE') | is.null(obj.px$'CREATION.DATE') ) { - obj.px$'CREATION-DATE'$value <- format(Sys.time(),'%Y%m%d %H:%m') + obj.px$'CREATION-DATE'$value <- format(Sys.time(),'%Y%m%d %H:%M') }