1

I'm using R to generate a CZML file from a database.

The database has dirty data.

I need a way to make sure times are in the format "%H:%M:%S".

The data can be in the correct %H:%M:%S already or missing zeros in front of the hour, e.g 8:30:00, which is an invalid ISO 8601 and throws the CZML parsing off entirely.

It needs to always be like so 08:30:00 or 07:09:00 in the 24h format.

I have errors because it is like so 8:30:00 or 7:09:00 still in the 24h format though, I haven't checked if the minutes or seconds are incorrect too but for the moment I assume they are correct and the only problem is the hours.

For example, I have a csv file like this:

"Date","Time","TZ","Jul.Time","BirdID","Species","Sex","Age","SiteID","Latitude","Longitude"
"4-Mar-13","08:30:00","America/Costa_Rica",2456356.187500,"test2","GREH","M","AHY","56scr25",8.71191178,-82.96866316
"4-Mar-13","8:30:00","America/Costa_Rica",2456356.187500,"test2","GREH","M","AHY","56scr25",8.71191178,-82.96866316

I need to generate a CZML like so:

"point": {
        "color": { 
            "rgba": [
"2013-03-04T08:30:00Z",225,50,50,196,"2013-03-04T08:30:01Z",50,50,225,196,"2013-03-04T13:30:00Z",225,50,50,196,"2013-03-04T13:30:01Z",50,50,225,196,"2013-03-04T16:00:00Z",225,50,50,196,"2013-03-04T16:00:01Z",50,50,225,196
            ]
        },
        "pixelSize": { "number": 10 }
    }

My code is like so:

        j=1
        numVisits=nrow(visitedTimes)
        while(j<=numVisits){
            date=as.Date(visitedTimes$Date[j], format="%d-%b-%y")
            time=format(visitedTimes$Time[j], format="%H:%M:%S")
            timeOfPassage=paste0(date,"T",time,"Z")
            timeAfter=as.POSIXlt(timeOfPassage, format="%Y-%m-%dT%H:%M:%SZ")
            timeAfter$sec=timeAfter$sec+1
            timeAfter=format(timeAfter, format="%Y-%m-%dT%H:%M:%SZ")
            cat(paste0("\"",timeOfPassage,"\","))
            cat("225,50,50,196,")
            cat(paste0("\"",timeAfter,"\","))
            cat("50,50,225,196")
            if(j<numVisits){
                cat(",")
            }
            j=j+1
        }

But it doesn't produce the desired output because of the dirty data.. Any ideas?

4

1 回答 1

1

我们可以times使用chron

library(chron)
times(v1)
#[1] 08:30:00 08:30:00 07:09:00 07:09:00

或使用base R

format(strptime(v2, '%H:%M:%S'), '%H:%M:%S')
#[1] "08:30:00" "08:30:00" "07:09:00" "07:09:00" "07:09:05" "11:10:00"

使用 OP 的更新数据集

df1$Time <- times(df1$Time)
df1$Time
#[1] 08:30:00 08:30:00

或使用regex

sub('^(.:)', '0\\1', df1$Time)
gsub('[^:]{2}(*SKIP)(*F)|(\\d)', '0\\1', v2, perl=TRUE)
#[1] "08:30:00" "08:30:00" "07:09:00" "07:09:00" "07:09:05" "11:10:00"

数据

v1 <- c('8:30:00', '08:30:00', '7:09:00', '7:9:00')
v2 <- c(v1, '7:9:5', '11:10:0')


df1 <- structure(list(Date = c("4-Mar-13", "4-Mar-13"), Time = c("08:30:00", 
"8:30:00"), TZ = c("America/Costa_Rica", "America/Costa_Rica"
), Jul.Time = c(2456356.1875, 2456356.1875), BirdID = c("test2", 
"test2"), Species = c("GREH", "GREH"), Sex = c("M", "M"), Age = c("AHY", 
"AHY"), SiteID = c("56scr25", "56scr25"), Latitude = c(8.71191178, 
8.71191178), Longitude = c(-82.96866316, -82.96866316)), .Names = c("Date", 
"Time", "TZ", "Jul.Time", "BirdID", "Species", "Sex", "Age", 
"SiteID", "Latitude", "Longitude"), class = "data.frame", row.names = c(NA, 
-2L))
于 2015-11-22T05:33:45.747 回答