506851_fr-FR

liliconcom

Obtention d'une erreur dans une interface utilisateur de fenêtre liée au bouton Box

Bonjour,

 

J'ai créé un script qui dépend d'une interface utilisateur pour effectuer certaines sélections.

Pour une raison quelconque, le script génère une erreur lors de la sélection des boutons OK ou ANNULER.

Je ne comprends pas pourquoi, dans une itération précédente, cela fonctionnait.

Toute contribution serait vivement appréciée.

 

Merci d'avance,

 

Sébastien

 

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><-><DL><DD> <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;<P>&nbsp;</P><P>&nbsp;</P></MM><LINGO-LABS id="lingo-labs-506851" slang="en-US"><LINGO-LABEL>Script</LINGO-LABEL></LINGO-LABS></HH24></DD></DL></MM></MODAL>