Displaying 1 result from an estimated 1 matches for "insertcolumn".
Did you mean:
insert_column
2009 May 27
0
invisible columns
...ove a column, but store old one first to add back
> col <- tbl$getColumn(col.num - 1) # 0- based
> tbl$removeColumn(col)
> return(list(name=name, col=col))
> }
>
> addColumn <- function(t, col, col.num) {
> tbl <- getToolkitWidget(t)
> ## add back
> tbl$insertColumn(col$col, col.num - 1)
> ## add back column name
> col$col$getWidget()$getParent()$getParent()$getParent()$setLabel(col
> $name)
> }
>
> ## check if it works
> col = removeColumn(t, 1)
> addColumn(t, col, 1)
>
> Hope that helps.
>
> --John
>
> On Wed, May...