For R add conversion for an R list of Transforms to a VectorOfTransform

[blowekamp]

A follow up patch needs to be made to #1124, that adds conversion from R list to the needed SWIG'ed wrapped class. For example the following should work:

txList <- c(outTx1, displacementTx)
outTx <- CompositeTransform(txList)

or

VectorOfTransform(c(Transform(), AffineTransform(2))

[blowekamp]

I tried adapting to Transforms the following code:

SimpleITK/Wrapping/R/R.i

Lines 83 to 97 in c89eeda

	%typemap("rtype") std::vector<itk::simple::Image>, std::vector<itk::simple::Image>& "list";
	%typemap("rtypecheck") std::vector<itk::simple::Image>, std::vector<itk::simple::Image>&
	%{
	(is.list($arg) & all(sapply($arg, inherits, what='_p_itk__simple__Image')))
	%}
	%typemap("scoercein") std::vector<itk::simple::Image>, std::vector<itk::simple::Image>&
	%{
	$input=ImListToVec($input);
	$input=slot($input, "ref")
	%}
	%typemap("scoerceout") std::vector<itk::simple::Image>, std::vector<itk::simple::Image>&
	%{
	$result=ImportSwigVec($result);
	%}

Without any success.

[zivy]

Hi @richardbeare , any chance you can take a stab at this one. Thanks!

[richardbeare]

I'll try to make time - I obviously forgot about it after it first came up.