| 
						
						
							
								
							
						
						
					 | 
				
				 | 
				
					@ -54,7 +54,7 @@ ui <- fluidPage( | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					                             choices = list("NHC" = 1, "UMID/OVID" = 2, "UM/OV"=3),  | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					                             selected = 2), | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					                textInput("id", label = "ID", value = ""), | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					                actionButton("nitrosync", "Sincroniza Nitrógeno") | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					                actionButton("nitrosync", "Actualiza Nitrógeno") | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					            ), | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					            mainPanel( | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					                htmlOutput("report"), | 
				
			
			
		
	
	
		
			
				
					| 
						
							
								
							
						
						
						
					 | 
				
				 | 
				
					
 |