czas.R

library(lubridate)

## 
## Attaching package: 'lubridate'

## The following object is masked from 'package:base':
## 
##     date

czas_lokalny <- as.POSIXct("2017-06-21 16:00:00", tz = "Europe/Warsaw")
tz(czas_lokalny) # wyswietlasz zadeklarowana strefe czasowa

## [1] "Europe/Warsaw"

# jezeli tylko chcesz zmienic strefe czasowa to:
tz(czas_lokalny) <- "UTC"
czas_lokalny

## [1] "2017-06-21 16:00:00 UTC"

# teraz jesli chcesz sie dowiedziec jaka to by byla godzina wg czasu w jakiejs strefie:
as.POSIXct(czas_lokalny) # tak masz dalej UTC

## [1] "2017-06-21 16:00:00 UTC"

# a tak konwertujesz strefe ktora sie wyswietla
attr(czas_lokalny, "tzone") <- "Europe/Warsaw" 
czas_lokalny

## [1] "2017-06-21 18:00:00 CEST"