bug fix if no Type 6 DUPS

PSLoadEsT/Rscripts/Sites.R

@@ -170,6 +170,8 @@ if (nrow(dup6)!=0){
   dmr_remark$dateFromFLOW<-ifelse(!is.na(dmr_remark$date.y),1,0)
   dmr_remark<-dmr_remark[,which(!names(dmr_remark) %in% c("Row.x","Row.y","date.y"))]
   
+}else{
+  DMR<-DMR[,which(!names(DMR) %in% c("Row"))] 
 }
 removeDFs(NA,c("dup6","remark","table","tabletry"))
 #make dmr_flow and dmr_flowstat