sapply не работает с переменными с типом & ldquo; POSIXct & rdquo;, & ldquo; POSIXt & rdquo; [Дубликат]
В то время как обещания и обратные вызовы хорошо работают во многих ситуациях, боль в задней части выражает нечто вроде:
if (!name) {
name = async1();
}
async2(name);
. В итоге вы пройдете через async1; проверьте, не определено ли name или нет, и соответственно вызовите обратный вызов.
async1(name, callback) {
if (name)
callback(name)
else {
doSomething(callback)
}
}
async1(name, async2)
Хотя в в порядке хорошо , это раздражает, когда у вас много подобных случаев и обработка ошибок. Вы можете проверить проект здесь . Fibers помогает в решении проблемы. var Fiber = require('fibers')
function async1(container) {
var current = Fiber.current
var result
doSomething(function(name) {
result = name
fiber.run()
})
Fiber.yield()
return result
}
Fiber(function() {
var name
if (!name) {
name = async1()
}
async2(name)
// Make any number of async calls from here
}
3 ответа
Я бы просто использовал inherits как joran . Вы можете использовать его для создания собственной функции is.POSIXct.
# functions
is.POSIXct <- function(x) inherits(x, "POSIXct")
is.POSIXlt <- function(x) inherits(x, "POSIXlt")
is.POSIXt <- function(x) inherits(x, "POSIXt")
is.Date <- function(x) inherits(x, "Date")
# data
d <- data.frame(pct = Sys.time())
d$plt <- as.POSIXlt(d$pct)
d$date <- Sys.Date()
# checks
sapply(d, is.POSIXct)
# pct plt date
# TRUE FALSE FALSE
sapply(d, is.POSIXlt)
# pct plt date
# FALSE TRUE FALSE
sapply(d, is.POSIXt)
# pct plt date
# TRUE TRUE FALSE
sapply(d, is.Date)
# pct plt date
# FALSE FALSE TRUE
Пакет lubridate имеет функции is.POSIXt, is.POSIXct, is.POSIXlt и is.Date.
-
1– Zach 16 October 2014 в 21:09
-
2– Joshua Ulrich 16 October 2014 в 21:52
-
3– eipi10 16 October 2014 в 22:00
-
4– Joshua Ulrich 16 October 2014 в 22:00
-
5– eipi10 16 October 2014 в 22:04
Вы можете попробовать is(). Это то, на что полагаются функции lubridate is.Date и is.POSIX*.
x <- Sys.time()
class(x)
# [1] "POSIXct" "POSIXt"
is(x, "Date")
#v[1] FALSE
is(x, "POSIXct")
# [1] TRUE
y <- Sys.Date()
class(y)
# [1] "Date"
is(y, "POSIXct")
# [1] FALSE
is(y, "Date")
# [1] TRUE
-
1– Joshua Ulrich 16 October 2014 в 21:49