R/ddm2dec.R

In salah31416/toolbox: Tools Library

# Decimal Degree Minutes (DDM) to Degree Decimal (DD) 
ddm2dec = function(coord, num = TRUE)
{
	out = sapply(coord,
			function(coord, num)
			{
				## standardized in vector numerical
				crd = coord_clean(coord)
				
				#if(length(crd) > 1) if(num) return(crd) else return(coord)
				
				#if(crd %% 1 == 0) if(num) return(crd) else return(paste0(crd, "°"))
				
				signal = sign(crd[1])
				crd = abs(crd)
				
				out = signal * (crd[1] + crd[2]/60)
				
				if(num) return(out)
				else return(paste0(out, "\uB0"))
				
			}, num = num #end function
	)#end sapply
	
	return(out)
	
}#end ddm2dec