Die überprüfung, ob das Datum leer ist in R?

Einfach, aber ich bin sicher, dass jemand weiß, wie dies zu tun...

In R, ich war auf der Suche nach so etwas wie ist.leere Fehler Falle, in meiner Funktion, wo ein Benutzer können ein Datum angeben oder es kann leer sein, und wir werden Sie standardmäßig verwenden der Heutigen Datum (d.h. Sys.Date())

Versuchte ich

date.end <- ""

# then in function  
if (date.end == "" || is.null(date.end)) {
  message("end date not specified and so setting to today")
  date.end <- Sys.Date()
} else {
  # use the date.end passed in as Date class
}

Aber diese Prüfung freaks charToDate(), d.h.

test.end == ""
Error in charToDate(x) : 
  character string is not in a standard unambiguous format

Bitte beraten wie wird man check für leere Daten in Basis-f?
(Und alle andere Weisheit für die Fehlerbehebung Termine...)

Hinzufügen, um zu klären:

Meisten Zeiten, die die Funktion erhalten gute Daten, z.B.
```
date.end <-  as.Date("31/03/2015", "%d/%m/%Y")
```
So will ich nicht zu ändern, Klasse.
Jedoch, wie gehen Sie mit den sonderbaren Fall, wo Sie wollen, um Standard zu heute wenn der Benutzer nicht geben Sie ein Datum an?

Versuchen nchar(test.end)==0 im test
nzchar wäre Analog zu Ihre Anfrage für is.blank aber wie @Tim Biegeleisen erwähnt, würde ich konvertieren den Vektor der Termine und der test für NA; dieses würde Ihnen sagen, nicht nur die leer sind, aber denen Folgen Sie nicht Ihrem angegebenen format
Danke @csgillespie. Ich war besorgt, dass nchar(NULL) == 0 ist, gibt Länge Probleme

InformationsquelleAutor micstr | 2015-04-01

date r testing

1

Sich bewusst sein, dass Sys.Date() gibt ein Objekt der Date Klasse. Sehen class(Sys.Date()). Daher der == Vergleich nicht sinnvoll, da Sie den Vergleich zwischen einer character mit einem Date.

Einen Weg, um Ihr problem zu lösen ist die Umwandlung von Date zu einem character:
```
date.end <- ""

# then in function  
if (date.end == "" || is.null(date.end)) {
  message("end date not specified and so setting to today")
  date.end = as.character(Sys.Date())
}
##end date not specified and so setting to today

date.end == ""
##[1] FALSE

print(date.end)
##[1] "2015-04-01"
```
Beachten Sie, dass date.end ist jetzt ein character.

Bitte siehe die Diskussion in in diesem post.

EDIT: Komplette überholung. OK, aus der Lektüre Ihrer follow-up-Kommentare und Fragen es scheint, dass Sie etwas wie die folgenden (es ist zwar noch nicht ganz klar).

Ich denke, du machst das komplizierter als es ist. Zuerst erstellen wir eine Funktion, kann mit einem single (i) Date, (ii) einem vielleicht schlecht formatiert character oder (iii) die NULL Objekt.
```
dateHandler <- function(x) {
  if (is.null(x) || identical(x, "")) {
    out <- Sys.Date()
  } else {
    x <- as.character(x)
    out <- as.Date(x, format = "%Y-%m-%d")
    if (is.na(out)) {
      out <- Sys.Date()
    }
  }
  return(out)
}

# Let's test it in a number of examples:
dateHandler("2014-02-21")
dateHandler(NULL)
dateHandler("21/03/1999") # Wrong format, returns today
dateHandler("")
dateHandler("2014-04-01")
dateHandler(Sys.Date())
```
Nun, machen wir eine-Funktion, die gilt dateHandler auf eine Liste der Termine:
```
handleListOfDates <- function(list.of.dates) {
  return(do.call(c, lapply(list.of.dates, dateHandler)))
}

# Let's test that:
test.data.list <- list("2014-05-01", NULL, "", Sys.Date(), 
                       "2015-02-02", "1999-12-31", "")
#print(test.data.list)  # See this

handleListOfDates(test.data.list)
# [1] "2014-05-01" "2015-04-01" "2015-04-01" "2015-04-01" "2015-02-02" "1999-12-31" "2015-04-01"
```
Die Funktion handleListOfDates auch richtig verarbeitet vector statt einer list Termine.
Hoffe, das ist, was Sie wollen.

Oder ich könnte stick mit Terminen und Kraft Datum Zeichen vor dem test? z.B. als.Charakter(Datum.Ende) == "". Das funktionieren könnte!
PS ich denke, du meintest "Beachten Sie, dass..." nicht
Ja. Das ist, was ich tun würde. Zwingt Termine mit z.B. mit as.Date ergeben würde NAs. Würden Sie dann etwas tun, wie Tim vorschlägt.
Es scheint.null funktioniert nicht auf einem Vektor. z.B. mylist <- Liste(Datum.Ende.leer, Datum.Ende.null, Datum.Ende.ok), ist.null(mylist) gibt nur TRUE, nicht FALSE TRUE FALSE, wenn ich wollte, es zu benutzen für die Indizierung
Zuerst is.null testet, ob das angegebene Objekt ist die NULL Objekt. is.null(list(Sys.Date(), NULL, "")) zurück FALSE (und nicht TRUE), wie erwartet, denn dies ist ein list was offensichtlich nicht der NULL Objekt. Es funktioniert nicht auf jedem element der list. Auch ein vector ist nicht das gleiche wie ein list.

InformationsquelleAutor Anders Ellern Bilgrau
1

Verwenden NA für die fehlenden Daten, und dann ersetzen Sie diese NAs mit dem default-Wert:
```
date.end[is.na(date.end)] <- Sys.Date()
```
Danke @tim-biegeleisen. Ich war unter Berufung auf Benutzer verlässt das Enddatum leer, wenn er wollte, um die Standardeinstellung zu heute. Ich kann nicht sicher sein, dass Sie zuverlässig geben Sie NA, so kann ich nicht akzeptieren Ihre Antwort nur noch. Ich brauche eine leere test

InformationsquelleAutor Tim Biegeleisen

Habe ich versucht, Elemente, die der Leute, die Antworten. Wie @tim-biegeleisen na Idee, wie ein index. Und die Eingabe von @aebilgrau und @csgillepsie. NULL nur verursacht Probleme:

Reisen bis das Rohr Betreiber
is.null gibt man TRUE/FALSE so können Sie nicht verwenden Sie es als ein index, wie is.na
sapplying mit ist.null zu bekommen Indizierung Booleans verärgert mit einzelnen Werten.

und so bekommt dieser Irrfahrt!

library(data.table)

date.end.ok <- as.Date("31/03/2015", "%d/%m/%Y")
date.end.null <- NULL
date.end.blank <- ""

date.end.list <- list(date.end.blank, date.end.null, date.end.ok)
date.end.dt <- data.table("date"= date.end.list )


testdate <- function(date.end) {

  # checks
  # sort out any nulls first, replace with NA to not trip up |
  # note null has length 0
  if (length(date.end) <= 1) {
    end.date.is.null <- is.null(date.end)
   } else {
    # sapply will not work on null or single value
    # work along list (I am expecting input to be data.table column)
    end.date.is.null <- sapply(date.end, is.null)
  }
  date.end[end.date.is.null] <- NA #replace with NA to not trip up |

  end.date.is.bad <- (as.character(date.end) == "" |  
                      end.date.is.null) #Thanks aebilgrau

  # any problems found? any(end.date.is.bad) 
  if (any(end.date.is.bad)) {
    message("end date not specified and so setting to today")
    date.end[end.date.is.bad] <- as.Date(Sys.Date(),
                                     "%d/%m/%Y") #Thanks tim-biegeleisen
  } else {
     # go with date.end given    
  }

  #happy
  return(date.end)
}

Diese ein bisschen arbeiten für die Listen-und single-Werte. Indizierung ok.
Aber nicht halten die Als.Datum geben! d.h. Rückkehr

"datumtest" (Datum.Ende.leer) "16526"
"datumtest" (Datum.Ende.null) 16526

Ich glaube, ich könnte nur meine Augen schließen, als eine Art NULL-Wert in r

Ich nicht, dass dies in meiner ursprünglichen Antwort, wie aussah, zu viel detail.

Sortiert: finden Sie @aebilgrau geändert datehandler Antwort und +1!

InformationsquelleAutor micstr

-1

"Ende.Datum" <- "" und dann testen Sie "Datum.Ende" aber es funktioniert nicht. Beachten Sie, wie "Ende" und "Datum" werden umgedreht in der Zuordnung und Prüfung.

Ansonsten end.date == "" funktionieren sollte, oder Sie können den test für die Anzahl von Zeichen in der Zeichenfolge nchar(end.date), die null in Ihrem Fall.

Dank für das Auffinden, fest. Es gibt noch den Fehler, obwohl

InformationsquelleAutor untitled

-1

Können Sie etwas ähnlich wie diese:

dplyr::mutate(Result = case_when(is.na.POSIXlt(DATE_var) ~ "<Alternative date_var or sys.date()>", TRUE ~  DATE_FINALIZADO))

InformationsquelleAutor Randall Suárez

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.