date_format timezone strangeness

Question

Я определил дату с часовым поясом, но когда я распечатаю ее, используя пакет scalesdate_format, он дает мне время в UTC, что неудобно для моей цели.

> library(scales) 
> st <- as.POSIXct("2015-10-31 00:00:00",tz="US/Pacific") 
> st 
[1] "2015-10-31 PDT" 
> fmt <- date_format("%Y-%m-%d %R %Z") 
> fmt(st) 
[1] "2015-10-31 07:00 UTC" 

Интересно это работает (так POSIXct, кажется, понимает часовой пояс) - но не дает мне достаточно контроля над форматом:

> format(st,usetz=T) 
[1] "2015-10-31 PDT" 

Эта ненадежность намекают в помощь для ?date_format:

Когда% z или% Z используется для вывода с объектом с назначенным временем зоной, делается попытка использовать значения для этого часового пояса - b ut it не гарантируется.

Так что мой вопрос: как мне сделать Успешно?

Предлагаем обходные пути в порядке и может поддерживать upvotes, но, пожалуйста, поймите, что этот вопрос состоит в том, что я хочу получить представление о том, что происходит с date_format.

Answer 1

Определение date_format очень коротко:

function (format = "%Y-%m-%d", tz = "UTC") 
{ 
    function(x) format(x, format, tz = tz) 
} 

Это должно быть понятно, почему часовой пояс меняется, если вы не измените значение по умолчанию.