########################################################################################
# name: Concatenate (2:1)
# author: agw
# category: Misc Utils

Concatenates columns from 2 input tables.

Checks that tables have same number of rows.

######

<rgg>

<!--1. Title and short description -->

<h3 text="$$$TEMPLATE_NAME$$$" aligment="center" span="full"/>

<separator label="Description" span="full"/>
<labelarea span="full">$$$TEMPLATE_DESC$$$</labelarea>

<!-- 2. Configuration-->

<group>
var1 = <combobox label="Table 1 column" items="$$$ALL_ATTRIBUTES_1$$$" span="full"/>
var2 = <combobox label="Table 2 column" items="$$$ALL_ATTRIBUTES_2$$$" span="full"/>
new.col = <textfield label="Combined column name" default-value= "cat" span="full"/>
</group>

<![CDATA[

if (nrow(kIn1) != nrow(kIn2)) {
    stop("Tables different sizes")
}
rOut <- cbind(kIn1, kIn2)
rOut[new.col] <- paste0(rOut[[var1]], rOut[[var2]])

]]>

</rgg>