R/patterns_hail.R

In isdparser: Parse 'NOAA' Integrated Surface Data Files

# Hail Data --------------------------------

# HAIL
# HL1
nms_hl1 = c('hail', 'size_diameter_largest',
    'size_diameter_largest_quality')
hl1 <- list(
	ids = "HL1",
	fun = function(x, code){
	  str_pieces(
	    str_match_len(x, code, 7),
	    list(c(1,3),c(4,6),c(7,7)),
	    nms_hl1
	  )
	}
)