mutate_ifとforce_tzを使用するすべてのタイムスタンプでタイムゾーンを変更

Question

RPostgreSQLを使用してPostgres DBからデータを取得していますが、これはRへのインポート時にタイムゾーンをシステムタイムゾーンにキャストします。すべてのタイムスタンプのゾーンをUTCに設定します。

df %>% 
    mutate_if(lubridate::is.POSIXct, lubridate::force_tz(., tzone='UTC')) -> df 

しかし、これは私が明らかにmutate_if()誤っ

Answer 1

mutate_ifでドット表記を使用するには、関数をfunsにラップする必要があります。

library(lubridate) 

df %>% 
    mutate_if(is.POSIXct, funs(force_tz(., tzone='UTC'))) 

現在、しかし、あなたはfuns内package::表記を使用することはできません。代わりに、上記のようにパッケージを明示的に読み込む必要があります（関連するgithubの問題here）。

Answer 2

この作品を使用してい

Error in UseMethod("as.fun_list") : 
    no applicable method for 'as.fun_list' applied to an object of class "data.frame" 

をスロー：私はそうのように、私はエレガントdplyrとlubridateを使用してこれを行うことができるだろうと思いました

df %>% 
    dplyr::mutate_if(lubridate::is.POSIXct, 
        function(x) lubridate::force_tz(x, tzone='UTC')) -> df 

同様にpurrrソリューション：

df %>% 
    purrr::map_if(lubridate::is.POSIXct, 
       ~ lubridate::force_tz(., tzone='UTC')) %>% 
    as_data_frame -> df 

これは優雅なものですか？