forked from SophieKoshkareva/RParserForTable
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Dates.R
18 lines (17 loc) · 578 Bytes
/
Dates.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dates <- setClass("Dates",
contains = "Column"
)
setGeneric(name = "FindErrors",
def = function(theObject, myfile_in, myfile_out, myfile_report, misprints, missing_values, unsolved_misprints)
{
standardGeneric("FindErrors")
}
)
setMethod(f = "FindErrors",
signature = "Dates",
definition = function(theObject, myfile_in, myfile_out, myfile_report, misprints, missing_values, unsolved_misprints)
{
output_list <- FindMisprints(misprints, missing_values, unsolved_misprints, myfile_in, myfile_out, myfile_report, theObject)
return(output_list)
}
)