forked from SophieKoshkareva/RParserForTable
-
Notifications
You must be signed in to change notification settings - Fork 0
/
DateMisprint.R
39 lines (36 loc) · 1.54 KB
/
DateMisprint.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
DateMisprint <- setClass("DateMisprint",
contains = "Error"
)
setMethod(f = "initialize",
signature = "DateMisprint",
definition = function(.Object)
{
.Object@title <- c("Íåïîñëåäîâàòåëüíûå äàòû")
.Object@col_index_legend <- 5
.Object@style <- c("dateMisprint")
return(.Object)
}
)
setGeneric(name = "FindDateMisprints",
def = function(theObject, date1, date2, myfile_out, myfile_report)
{
standardGeneric("FindDateMisprints")
}
)
setMethod(f = "FindDateMisprints",
signature = "DateMisprint",
definition = function(theObject, date1, date2, myfile_out, myfile_report)
{
dateMisprints_row_ind <- c()
dateMisprints_new_row_ind <- c()
columns <- sort(c(date1@column_index, date2@column_index))
d1 <- as.Date(myfile_out@table_out[[columns[1]]], format = "%d.%m.%Y")
d2 <- as.Date(myfile_out@table_out[[columns[2]]], format = "%d.%m.%Y")
dateMisprints_row_ind <- append(dateMisprints_row_ind, which(d1 > d2))
dateMisprints_new_row_ind <- dateMisprints_row_ind + myfile_out@row_header + myfile_out@row_table_legend
theObject@indices <- append(theObject@indices, values = outer(dateMisprints_new_row_ind, columns, paste, sep = "."))
for(i in 1:length(columns)) lapply(dateMisprints_new_row_ind, function(j) PrintReport(theObject, myfile_report, j, columns[i], colnames(myfile_out@table_out[columns[i]]), myfile_out@table_out[[columns[i]]][[j]] ))
cat("Date misprints coordinates are ", paste(dateMisprints_new_row_ind, columns, sep = "."), "\n")
return(theObject)
}
)