| 
						
						
							
								
							
						
						
					 | 
				
				 | 
				
					@ -26,7 +26,7 @@ sqlBackUp<-function(dbfile=file,bu.dir){ | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					  file.copy(dbfile, cp_bu) | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					} | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					
 | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					sqlShowSamples<-function(conn=dta, nhcs=nhc.test, verb=F){ | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					sqlShowSamples<-function(conn=dta, nhcs=nhc.test, verb=F, dbtype){ | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					  if (isFALSE(verb)){ | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					    sqlQuery(conn, "SELECT O.NHC,S.*  | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					         FROM SAMPLES S  | 
				
			
			
		
	
	
		
			
				
					| 
						
							
								
							
						
						
						
					 | 
				
				 | 
				
					
 |