Module:RedirectData

 local p = {}

 function p.getRedirectToNamespace(frame)
	titleObject = mw.title.getCurrentTitle() -- check if this is a redirect
	if titleObject.redirectTarget then
		targetNamespace = titleObject.redirectTarget.nsText
		return targetNamespace
	end
	return "Notaredirect"
 end

 function p.getTalkPage(frame) -- this is code written to check for the criteria to apply {{R to talk page}} - essentially, whether the redirect is outside of, and going into, a talk namespace
	titleObject = mw.title.getCurrentTitle() -- check if this is a redirect
	if titleObject.redirectTarget then
		if not titleObject.isTalkPage then -- the current page is NOT a talk page
			if titleObject.redirectTarget.isTalkPage then -- the target page IS a talk page
				return "Yes"
			end
		end
		return "No"
	end
	return "Notaredirect"
 end

 function p.getSubpageStatus(frame)
	titleObject = mw.title.getCurrentTitle()
	if titleObject.redirectTarget then -- check if this is a redirect
		pageIsSubpage = titleObject.isSubpage
		targetIsSubpage = titleObject.redirectTarget.isSubpage
		if (pageIsSubpage or targetIsSubpage) then
			if (pageIsSubpage and targetIsSubpage) then
				return "Both" -- both are subpages, return three
			elseif pageIsSubpage then
				return "Onlypage" -- just the page is a subpage, target isn't, return one
			else
				return "Onlytarget" -- just the target is a subpage, the page isn't, return two
			end
		else -- neither page nor target is a subpage, return zero
			return "Neither"
		end
	end
	return "Notaredirect"
 end

 function p.toDisambig(frame) -- this checks if the page title contains (disambiguation), as well as if it's a talkpage
	titleObject = mw.title.getCurrentTitle()
	if titleObject.redirectTarget then -- check if this is a redirect
		if string.match(titleObject.text, "(disambiguation)") then -- title contains (disambiguation)
			if titleObject.isTalkPage then -- this is a talk page ({{R from unnecessary disambiguation}})
				return "Talk"
			else -- this is not a talkpage ({{R to disambiguation page}})
				return "Article"
			end
		else -- title does not contain "(disambiguation)"
			return "No"
		end
	end
	return "Notaredirect"
 end

 return p