Перевод last_seen_time в posix при получении подписчиков сообщества.

selesnow · Oct 16, 2021 · da10b8d · da10b8d
1 parent b4dccd8
commit da10b8d
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/vkGetGroupMembers.R b/R/vkGetGroupMembers.R
@@ -87,6 +87,12 @@ vkGetGroupMembers <-
         unnest_wider('relatives', names_sep = '_') %>% 
         unnest_wider('relation_partner', names_sep = '_') %>% 
         unnest_wider('schools', names_sep = '_')
+
+      if ( 'last_seen_time' %in% names(tempData) ) {
+
+        tempData$last_seen_time <- as.POSIXct(tempData$last_seen_time, origin = '1970-01-01')
+
+      }
 
       # add to result
       result <- append(result, list(tempData))