转换时间不适用于列的数据框

Question

我有一些来自事件制作者的数据。在“created_at 列中，我有混合类型的日期时间值。

一些 NA，一些像 ISO8601，一些 POSIX 有和没有毫秒。

我构建了一个函数，它应该处理所有的事情，这意味着让我们按原样处理 NA 和 ISO8601 信息，并将 POSIX 日期转换为 ISO8601。

library(anytime)
convert_time <- function(x) {
  nb_char = nchar(x)
  if (is.na(x)) return(x)
  else if (nb_char == 10 | nb_char == 13) {
    num_x = as.numeric(x)
    if (nb_char == 13) {
      num_x = round(num_x / 1000, 0)
    }
    return(anytime(num_x))
  }
  return(x)
}

如果我传递一个有问题的值 convert_time("1613488656")

"2021-02-16 15:17:36 UTC"

效果不错！

现在

df_offer2$created_at = df_offer2$created_at %>% sapply(convert_time)

我的值仍然有问题。

这里有什么提示吗？

Answer 1

有两件事对我有用：

col1<-seq(from=1,to=10)
col2<-rep("1613488656",10)
df <- data.frame(cbind(col1,col2))
colnames(df)<-c("index","created_at")


df <- df%>%
  mutate(converted = convert_time(df$created_at))`

或者

col1<-seq(from=1,to=10)
col2<-rep("1613488656",10)
df <- data.frame(cbind(col1,col2))
colnames(df)<-c("index","created_at")


df$created_at <- convert_time(df$created_at)

两者都发出警告，但似乎正确地进行了更正

Answer 2

我建议进行以下小改动...

convert_time <- function(x) {
  nb_char = nchar(x)
  if (is.na(x)) return(x)
  else if (nb_char == 10 | nb_char == 13) {
    num_x = as.numeric(x)
    if (nb_char == 13) {
      num_x = round(num_x / 1000, 0)
    }
    return(num_x)                        #remove anytime from here
  }
  return(x)
}

df_offer2$created_at = df_offer2$created_at %>% 
    sapply(convert_time) %>% anytime()   #put it back in at this point

转换时间不适用于列的数据框

Convert time don't work on a column's dataframe

r

datetime

sapply

iso8601