1 2# This R package is free software; you can redistribute it and/or 3# modify it under the terms of the GNU Library General Public 4# License as published by the Free Software Foundation; either 5# version 2 of the License, or (at your option) any later version. 6# 7# This R package is distributed in the hope that it will be useful, 8# but WITHOUT ANY WARRANTY; without even the implied warranty of 9# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 10# GNU Library General Public License for more details. 11# 12# You should have received a copy of the GNU Library General 13# Public License along with this R package; if not, write to the 14# Free Foundation, Inc., 59 Temple Place, Suite 330, Boston, 15# MA 02111-1307 USA 16 17 18################################################################################ 19# FUNCTION: DESCRIPTION: 20# Zone Offset Where 21# ---- ------ ------ 22# EET Eastern European +2 Finland, Eastern Europe 23# CET Central European +1 Western Europe, Sweden 24# GMT Greenwich Mean none United Kingdom, Portugal 25# AST Atlantic Standard -4 Halifax 26# EST Eastern Standard -5 NY, DC, Toronto, Montreal 27# CST Central Standard -6 Chicago, Houston, Winnipeg 28# MST Mountain Standard -7 Denver, Calgary, Edmonton 29# PST Pacific Standard -8 LA, San Fransisco, Vancouver 30# 31# source http://www.stacken.kth.se/~kvickers/timezone.html 32# 33################################################################################ 34 35# ---------------------------------------------------------------------------- # 36# Roxygen Tags 37#' @export 38# ---------------------------------------------------------------------------- # 39EET <- function() 40 data.frame(EET = "1902-01-01 00:00:00", 41 offSet = 2 * 3600, 42 isdst = 0, 43 TimeZone = "EET", 44 numeric = as.numeric(as.POSIXct("1902-01-01 00:00:00")), 45 stringsAsFactors = FALSE) 46 47# ---------------------------------------------------------------------------- # 48# Roxygen Tags 49#' @export 50# ---------------------------------------------------------------------------- # 51CET <- function() 52 data.frame(CET = "1902-01-01 00:00:00", 53 offSet = 1 * 3600, 54 isdst = 0, 55 TimeZone = "CET", 56 numeric = as.numeric(as.POSIXct("1902-01-01 00:00:00")), 57 stringsAsFactors = FALSE) 58 59# ---------------------------------------------------------------------------- # 60# Roxygen Tags 61#' @export 62# ---------------------------------------------------------------------------- # 63AST <- function() 64 data.frame(AST = "1902-01-01 00:00:00", 65 offSet = -4 * 3600, 66 isdst = 0, 67 TimeZone = "AST", 68 numeric = as.numeric(as.POSIXct("1902-01-01 00:00:00")), 69 stringsAsFactors = FALSE) 70 71# ---------------------------------------------------------------------------- # 72# Roxygen Tags 73#' @export 74# ---------------------------------------------------------------------------- # 75EST <- function() 76 data.frame(EST = "1902-01-01 00:00:00", 77 offSet = -5 * 3600, 78 isdst = 0, 79 TimeZone = "EST", 80 numeric = as.numeric(as.POSIXct("1902-01-01 00:00:00")), 81 stringsAsFactors = FALSE) 82 83# ---------------------------------------------------------------------------- # 84# Roxygen Tags 85#' @export 86# ---------------------------------------------------------------------------- # 87CST <- function() 88 data.frame(CST = "1902-01-01 00:00:00", 89 offSet = -6 * 3600, 90 isdst = 0, 91 TimeZone = "CST", 92 numeric = as.numeric(as.POSIXct("1902-01-01 00:00:00")), 93 stringsAsFactors = FALSE) 94 95# ---------------------------------------------------------------------------- # 96# Roxygen Tags 97#' @export 98# ---------------------------------------------------------------------------- # 99MST <- function() 100 data.frame(MST = "1902-01-01 00:00:00", 101 offSet = -7 * 3600, 102 isdst = 0, 103 TimeZone = "MST", 104 numeric = as.numeric(as.POSIXct("1902-01-01 00:00:00")), 105 stringsAsFactors = FALSE) 106 107# ---------------------------------------------------------------------------- # 108# Roxygen Tags 109#' @export 110# ---------------------------------------------------------------------------- # 111PST <- function() 112 data.frame(PST = "1902-01-01 00:00:00", 113 offSet = -8 * 3600, 114 isdst = 0, 115 TimeZone = "PST", 116 numeric = as.numeric(as.POSIXct("1902-01-01 00:00:00")), 117 stringsAsFactors = FALSE) 118