你好,
我已经创建了一个依赖于 UI 来做出一些选择的脚本。
由于某种原因,当选择“确定”或“取消”按钮时,脚本会出现错误。
无法弄清楚为什么,在之前的迭代中它是有效的。
任何意见都将不胜感激。
提前致谢,
塞巴斯蒂安
<HH24><:><MM>" ) );
LogTPM_column = TPM << get items;
LogTPM_column = Column( LogTPM_column[1] );
Show( LogTPM_column );
response << close window;
Try(
l = lcol << get items;
Show( l, lcol );
);
If( N Items( l ) == 1,
(//a local gene list has been selected
P12_DGE << clear select ; P12_DGE << select hidden << hide and exclude( 0 ) ; P12_DGE << select where( As Column( lcol1 ) != "" )
; P12_DGE << Name Selection in Column( Column Name( "Genelist Cluster " || today ), Selected( "Yes" ), Unselected( "No" ) ) ;
genelist_cluster_col = Column( "Genelist Cluster " || today ) ; Show( genelist_cluster_col ) ; P12_DGE << invert row selection
<< hide and exclude)
,
(//some global genelist(s) have been selected
select_uniquegenels = selectuniquegenels << get selected ; ngenels = N Items( select_uniquegenels ) ;
Show( ngenels, select_uniquegenels ) ; P12_DGE << clear select ; P12_DGE << select hidden << hide and exclude( 0 ) ;
For( i = 1, i <= ngenels, i++,
P12_DGE << select where( Contains( :Genelist_concat, select_uniquegenels[i] ) )
) ; P12_DGE << Name Selection in Column( Column Name( "Genelist Cluster " || today ), Selected( "Yes" ), Unselected( "No" ) ) ;
genelist_cluster_col = Column( "Genelist Cluster " || today ) ; Show( genelist_cluster_col ) ; P12_DGE << invert row selection
<< hide and exclude)
)
)
)
)
);
);
window_UI;</MM></HH24>
Names Default To Here( 1 );
clear log();
P12_DGE=New Table( "Subset of NT191209_P12_DGE",
Add Rows( 16 ),
New Column( "symbol",
Character,
"Nominal",
Set Values(
{"A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A",
"A", "A"}
)
),
New Column( "Genelist_concat",
Character,
"Multiple Response",
Set Values(
{"", "", "", "", "", "", "", "c", "b,c", "a,b", "", "", "", "a", "a", ""}
)
),
New Column( "Log2 TPM_norm to PBS, 0 ug (by specimen_material_type)",
Numeric,
"Continuous",
Format( "Best", 10 ),
Set Values(
[-2.48733482857376, -0.624682475325802, -0.615692449761937,
1.2902214351926, -2.48733482857376, 0.370997758551945, -1.83635492333803,
2.37835375673671, -1.83635492333803, -0.116151955497186,
-1.83635492333803, -1.83635492333803, 0.671865760464638,
0.133186242337643, -0.09670852998485, -1.83635492333803]
)
),
New Column( "Log2 TPM_median norm",
Numeric,
"Continuous",
Format( "Best", 10 ),
Set Values(
[0, 1.86265235324796, 1.87164237881182, 3.77755626376636, 0,
2.8583325871257, 0, 4.86568858531047, 0, 1.72020296784084, 0, 0,
3.1592005890384, 1.96954116567567, 1.73964639335318, 0]
)
),
New Column( "Genelist TEST (local",
Character( 3 ),
"Nominal",
Set Values(
{"", "", "", "", "", "", "", "No", "No", "No", "No", "No", "No", "No",
"No", "No"}
)
),
Group Columns(
"TPM data", :"Log2 TPM_norm to PBS, 0 ug (by specimen_material_type)"n, 2
)
);
TPMls = {"Log2 TPM_norm to PBS, 0 ug (by specimen_material_type)", "Log2 TPM_median norm"};
lbWidth = 208;
pnwidth = 400;
nc = 20;
nloc = 1;
locls = {"Genelist TEST (local"};
uniquegenels = {"a", "b", "c", "d"};
window_UI=expr(
response = New Window( "Hierachical Clustering of Transcritps of interests ",
<<MODAL><-><MM><-></MM></MODAL>