--[==[ To inspect the content of this data module, use Special:ExpandTemplates and enter the following input text:     To inspect the content of this data module when editing, enter the following into the Debug console:   local util = require("Module:Road data/util")   print(util.arrayToString(p)) To inspect a particular route type, change `p` above to include the route type, e.g., `p.I` and `p["US-Hist"]`. ]==]  -- Arkansas local AR = {}  local util = require("Module:Road data/util") util.addAll(AR, require("Module:Road data/strings/USA")) local format = mw.ustring.format  local suffix = " ([dab||%dab%, |]Arkansas)" local suffix2 = " [dab||(%dab%)|]"  AR.I.link = {	["30"] = "Interstate 30",                 ["57"] = "Interstate 57#Future",                 ["130"] = "Loop (Texarkana)",                 ["440"] = "Interstate 440 (Arkansas)",                 ["540"] = "Interstate 540 (Arkansas)",                 default = {hook = "splitlen",                            split = 3,                            above = "Interstate %route%",                            below = "Interstate %route% in Arkansas"}}  for k, v in pairs(AR) do if k:find ("^I") then  	v.link = AR.I.link 	end end  AR.US.name = "U.S. Highway %route%" AR.US.shield = "US %route% (AR).svg" AR.US.link = "U.S. Route %route% [dab||(%dab%, Arkansas)|in Arkansas]"  for k, v in pairs(AR) do if k:find ("^US %d") then  	v.name = AR.US.name 	v.link = AR.US.link 	v.abbr = AR.US.abbr 	end end  for _,auxType in ipairs({"Alt", "Bus", "City", "Conn", "Spur"}) do 	local spec = AR[" aux "][auxType] 	local abbrev = spec.arksuffix or " " .. spec.abbrsuffix 		for k, v in pairs(AR) do if k:find (auxType) then if k:find ("^US") then 			v.shield = "US %route%" .. spec.arksuffix .. ".svg" 			v.name = AR.US.name .. abbrev 			v.link = AR.US.base .. abbrev .. suffix 			v.abbr = AR.US.abbr .. abbrev             v.banner = nil 			v.width = "wide" 			end 		end 	end end  for _,auxType in ipairs({"Byp", "Opt", "Scenic", "Temp", "Truck"}) do 	local spec = AR[" aux "][auxType] 		for k, v in pairs(AR) do if k:find (auxType) then if k:find ("^US") then 			v.shield = AR.US.shield 			v.link = AR.US.base .. spec.abbrsuffix .. suffix 			v.width = "expand" 			end 		end 	end end  AR["US-Hist"].name = "Historic " .. AR.US.name  AR.AR = { 	base = "Arkansas Highway %route%", 	name = "Highway %route%", 	shield = { 		default = "Arkansas %route%.svg", 		["917"] = "Arkansas 917-1.svg", 		["980"] = "Arkansas 980(Airport).svg" 	}, 	link = "Arkansas Highway %route%" .. suffix2, 	abbr = "AR %route%", 	width = "expand", 	bannersuffix = { 		default = "", 		["917"] = "brown", 		["980"] = "blue" 		} 	}  AR.Hwy = AR.AR  for _,type in ipairs({'AR', 'Hwy'}) do 	for _,year in ipairs({"1926", "1948", "1970"}) do 		AR[type .. " " .. year] = { 			shield = format("Arkansas %%route%% %s.svg", year), 			name = "State Road %route%", 			link = AR.AR.link, 			abbr = AR.AR.abbr, 			width = "square" 		} 	end end  AR["AR 1970"].shield = { 	hook = "splitlen", 	split = 3, 	above = { 		default = "Arkansas %route% 1970.svg", 		["917"] = "Arkansas 917-1.svg", 		["980"] = "Arkansas 980(Airport).svg" 	}, 		below = AR.AR.shield 	} AR["AR 1970"].name = AR.AR.name AR["Hwy 1970"] = AR["AR 1970"]  for _,type in ipairs({'AR', 'Hwy'}) do 	for _,auxType in ipairs({"Alt", "Bus", "Byp", "City", "Conn", "Spur", "Truck"}) do 		local spec = AR[" aux "][auxType] 		local abbrev = spec.arksuffix or " " .. spec.abbrsuffix 		local shieldabbr = spec.arksuffix or "" 		AR[type .. "-" .. auxType] = { 			shield = "Arkansas %route%" .. shieldabbr .. ".svg", 			name = AR.AR.name .. abbrev, 			link = AR.AR.base .. abbrev .. suffix2, 			abbr = AR.AR.abbr .. abbrev, 			aux = spec.aux, 			width = { 				hook = "splitlen", 				split = 2, 				above = "wide", 				below = "square" 			} 		} 	end end  for _,type in ipairs({'AR', 'Hwy'}) do 	for _,auxType in ipairs({"Byp", "Truck"}) do 		local spec = AR[" aux "][auxType] 		local abbrev = spec.arksuffix or " " .. spec.abbrsuffix 			for k, v in pairs(AR) do if k:find (auxType) then if k:find ("^US") then 				AR[type .. "-" .. auxType] = { 					shield = AR.AR.shield, 					name = AR.AR.name .. abbrev, 					link = AR.AR.base .. spec.abbrsuffix .. suffix, 					abbr = AR.AR.abbr .. abbrev, 					banner = spec.bannerprefix .. " plate.svg", 					aux = spec.aux, 					width = "expand" 					} 				end 			end 		end 	end end  AR["Hwy-Truck-Spur"] = { 	shield = AR["AR-Spur"].shield, 	name = AR["AR-Spur"].name, 	link = AR["AR-Spur"].link, 	abbr = AR["AR-Spur"].abbr, 	banner = "Truck plate.svg", 	width = AR["AR-Spur"].width }                AR["AR-Truck-Spur"] = AR["Hwy-Truck-Spur"] AR["Hwy-Spur-Truck"] = AR["Hwy-Truck-Spur"] AR["AR-Spur-Truck"] = AR["Hwy-Truck-Spur"]                  AR.CRP = { 	shield = "Crowley's Ridge Parkway generic.svg", 	name = "Crowley's Ridge Parkway", 	link = "Crowley's Ridge Parkway", 	abbr = "Crowley's Ridge Pkwy.", 	bannersuffix = "green" }  -- add new types above this line if you want it to have the state highway browse and maint for k, v in pairs(AR) do if k:find ("^%a") then 	v.maint = "ArDOT" 	v.browse = "Arkansas Highway System" 	v.browselinks = { 		[1] = "Interstate", 		[2] = "US", 		[3] = "Business", 		[4] = "Secondary", 		[5] = "Spurs", 		[6] = "Suffixed", 		[7] = "Scenic", 		[8] = "Heritage" 	} 	end end  for k, v in pairs(AR) do if k:match ("^%a*%s19[2-6]") then 	v.maint = "SHC" 	end end  for k, v in pairs(AR) do if k:match ("^%a*%s19[7-9]") then 	v.maint = "AHTD" 	end end  AR.CR.shield = { 	arg = "county", 	default = "CR %route% jct.svg", 	Lee = "Lee County %route% AR.svg" } AR.CR.shieldmain = { 	arg = "county", 	default = "%county% County %route%.svg", 	Lee = "Lee County %route% AR.svg" } AR.CR.maint = ""  AR.FR.shield = {hook = "splitlen", 	split = 4, 	above = "", 	below = "Forest Route %route%.svg" } AR.FR.shieldmain = {hook = "splitlen", 	split = 4, 	above = "", 	below = "Forest Route %route%.svg" } 	 AR.FH.shield = AR.FR.shield AR.FH.shieldmain = AR.FR.shieldmain  AR["US-TX"] = {alias = {module = "USA/TX", type = "US"}}  return AR