R中的管道%>%

Question

我想使用来自TIDYVERSE/PURRR的管道%>%来使其更具可读性:

myChargingDevices<-data.frame(fromJSON(jsonFile))
myChargingDevices<-myChargingDevices %>%
  mutate(myTime=ymd_hms(lastUpdateCheck))

myChargingDevices<-myChargingDevices[order(myChargingDevices$myTime,decreasing = TRUE),]
myChargingDevices$lastUpdateCheck<-NULL

有什么想法做这个更方便吗？

提前致谢

Answer 1

像这样:

myChargingDevices <- jsonFile %>%
  fromJSON %>%
  data.frame %>%
  mutate(myTime = ymd_hms(lastUpdateCheck)) %>%
  arrange(desc(myTime)) %>%
  select(-lastUpdateCheck)

我无法测试它,因为你没有提供可重现的代码.