| dup.sel {CADStat} | R Documentation |
This function is used to check duplicate records after user select records from a JGR message box
dup.sel(bcnt, itis.ttable, tempstr)
bcnt |
the benthic count matrix |
itis.ttable |
Taxonomic table from ITIS website |
tempstr |
user selected string from java interface |
bioinfer1.JGR,
bioinfer2.JGR,
bioinfer3.JGR,
JGRMessageBox,
get.mergedfile,
get.mismatch,
get.duplicates,
get.otu.jgr
##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (bcnt, itis.ttable, tempstr)
{
reps <- unique(dftemp2$TAXON[duplicated(dftemp2$TAXON)])
taxalist <- (substr(tempstr, 1, regexpr("-", tempstr) - 1))
unmatch <- length(reps[!(reps %in% unique(taxalist))])
if (unmatch > 0 | length(reps) != length(taxalist)) {
d <- .jnew("org.neptuneinc.cadstat.plots.BiologicalInferencesTaxaNameDupITIS")
.jcall(d, "Ljavax/swing/JFrame;", "getMyGUI", length(sumstr),
sumstr, 1)
}
else {
get.mergedfile(bcnt, itis.ttable, selstr = tempstr, outputFile = NULL)
}
}