272099_es-ES

liliconcom

Actualización dinámica de 'Color( )' en Graph Builder con selección desde el menú en el mismo tablero que los gráficos

Hola comunidad JMP,

 

Estoy trabajando con un complemento JMP que genera una aplicación. Esta aplicación tiene un solo módulo y crea un tablero con varios gráficos. También crea un cuadro de visualización que está incrustado en el mismo tablero y contiene la lista de columnas en la tabla de datos utilizada para generar los gráficos. Cuando se selecciona una columna de la lista, el estado de la fila (el color de la fila, para ser específicos) se actualiza de acuerdo con esa selección. Esto se refleja luego en los gráficos que están coloreados según el estado de la fila. Sin embargo, dado que la variable 'Color( )' en Graph Builder todavía está vacía, la leyenda de los gráficos no se actualiza de acuerdo con los colores que se muestran. Si hago que el cuadro de visualización con la lista de columnas se muestre como una ventana modal, puedo llenar el campo 'Color ()' según la selección antes de se generan los gráficos. Sin embargo, el problema con este enfoque es que la ventana modal no se puede incrustar en el tablero (o, al menos, no sé cómo) y, lo que es más importante, no es dinámica: solo puede hacer la selección una vez. al principio antes de que se generen los gráficos, pero luego no puede hacer otra selección sin tener que ejecutar el complemento nuevamente. Incluí un extracto de mi código. El objeto 'ganador' es el cuadro de visualización que tiene la lista de columnas y está incrustado en el tablero.

 

JMP App(
 Set Name( "Application" ),
 Set Description(
  "An empty workspace for creating custom applications with one or more windows and scripts"
 ),
 Auto Launch( 1 ),
 Snap To Grid( 1 ),
 Show Grid( 1 ),
 Show Properties( 1 ),
 Show Sources( 1 ),
 Group By Category( 1 ),
 Dashboard Mode( 0 ),
 Parameters,
 Tables,/*(
  DataTable1 = GuiTable(
   Set Path(
    "/S:/17 - Contacts - Confidential material/Siemens/2018-08 - Bangkok test/05 - Analysis/All component compilation v6 (with Row column).jmp"
   ),
   Set Label( "All component compilation v5" ),
   Set Location( "Current Data Table" ),
   Set Invisible( 0 )
  )
 ),*/
 Script(JSL Quote(// This script is executed when the application is run.
      // Named objects have been created for the application modules
      // (for example, "Module1") and the pre-defined object
      // "thisApplication" refers to the application object itself.
      // Variables and functions declared here are scoped to the
      // Application namespace.
  )),
 Allocate(
  Module1 = Plan(
   PreAllocate,
   Script(JSL Quote(// This script is executed when a new module instance is
        // created.  The pre-defined object "thisModuleInstance" refers
        // to the instance object, but other objects such as boxes and
        // scripts have not yet been created.  Variables declared here are
        // scoped to the ModuleInstance namespace.

        // This special function will receive parameters passed to CreateInstance()
        OnModuleLoad({});
       
        dt = current data table(); //note that dt has to be defined before the thisModuleInstance' object is created. When defined after and the new "Row" column is added, the code does not recognise the new column and so outputs empty plots. This may be due to the namespaces: maybe the dt has to be in the application namespace and the after thisModuleInstance is created, it is in the module namespace.
        If( Is Missing (Is Scriptable( Try ( Column( "Row" )))),
         dt << New Column( "Row", Numeric, Values( 1 :: N Row() ), Format( "Best", 12 )));
         
        colnames = dt << get column names;
        
        
        thisModuleInstance << Create Objects;
        // After this point your module instance objects have been created
        // and can be referred to by name (for example, "Button1").
        show(chosen);
    )),
   Allocate(
    Outline1 = Outline Box();
    DataFilterContext1 = Data Filter Context Box();
    List1 = H List Box();
    List2 = V List Box();
    DataFilter1 = dt << Data Filter( Local );
    win = Platform(
        dt,
        H List Box(
         Panel Box( "Colour by:",
          collist = List Box(
          colnames,
          max selected( 1 ),
          chosen = collist << get selected;
          col = column(chosen);
          dt << Color or Mark by Column( col ),
          )
         )
        )
    );
    List3 = V List Box();
    List4 = H List Box();
    Report1 = Platform(
     dt,
     Graph Builder(
      Size( 534, 456 ),
      Show Control Panel( 0 ),
      Fit to Window( "Maintain Aspect Ratio" ),
      Variables( X( :Row ), Y( :Friction ) ),
      Elements(
       Points( X, Y, Legend( 9 ) ),
       Smoother( X, Y, Legend( 10 ) )
      ),
     )
    );
    Report2 = Platform(
     dt,
     Graph Builder(
      Size( 534, 456 ),
      Show Control Panel( 0 ),
      Fit to Window( "Maintain Aspect Ratio" ),
      Variables( X( :Row ), Y( :Velocity ) ),
      Elements(
       Points( X, Y, Legend( 6 ) ),
       Smoother( X, Y, Legend( 7 ) )
      )
     )
    );

 

Espero escuchar sus sugerencias.

 

¡Gracias a todos de antemano!

GráficosOtrosecuencias de comandosRe: Actualización dinámica de 'Color( )' en Graph Builder con selección desde el menú en el mismo tablero que los gráficos

@gzmorgan0 , muchas gracias por la pronta respuesta.

 

Su solución funcionó, así que gracias por eso también. Muestro en el código a continuación cómo adapté su solución a mis necesidades en beneficio de los demás.

 

JMP App(
 Set Name( "Application" ),
 Set Description(
  "An empty workspace for creating custom applications with one or more windows and scripts"
 ),
 Auto Launch( 1 ),
 Snap To Grid( 1 ),
 Show Grid( 1 ),
 Show Properties( 1 ),
 Show Sources( 1 ),
 Group By Category( 1 ),
 Dashboard Mode( 0 ),
 Parameters,
 Tables,/*(
  DataTable1 = GuiTable(
   Set Path(
    "/S:/17 - Contacts - Confidential material/Siemens/2018-08 - Bangkok test/05 - Analysis/All component compilation v6 (with Row column).jmp"
   ),
   Set Label( "All component compilation v5" ),
   Set Location( "Current Data Table" ),
   Set Invisible( 0 )
  )
 ),*/
 Script(JSL Quote(// This script is executed when the application is run.
      // Named objects have been created for the application modules
      // (for example, "Module1") and the pre-defined object
      // "thisApplication" refers to the application object itself.
      // Variables and functions declared here are scoped to the
      // Application namespace.
  )),
 Allocate(
  Module1 = Plan(
   PreAllocate,
   Script(JSL Quote(// This script is executed when a new module instance is
        // created.  The pre-defined object "thisModuleInstance" refers
        // to the instance object, but other objects such as boxes and
        // scripts have not yet been created.  Variables declared here are
        // scoped to the ModuleInstance namespace.

        // This special function will receive parameters passed to CreateInstance()
        OnModuleLoad({});
       
        dt = current data table(); //note that dt has to be defined before the thisModuleInstance' object is created. When defined after and the new "Row" column is added, the code does not recognise the new column and so outputs empty plots. This may be due to the namespaces: maybe the dt has to be in the application namespace and the after thisModuleInstance is created, it is in the module namespace.
        If( Is Missing (Is Scriptable( Try ( Column( "Row" )))),
         dt << New Column( "Row", Numeric, Values( 1 :: N Row() ), Format( "Best", 12 )));
         
        colnames = dt << get column names;
        
        thisModuleInstance << Create Objects;
       
        // After this point your module instance objects have been created
        // and can be referred to by name (for example, "Button1").
    )),
   Allocate(
    Outline1 = Outline Box();
    DataFilterContext1 = Data Filter Context Box();
    List1 = H List Box();
    List2 = V List Box();
    DataFilter1 = dt << Data Filter( Local );
    win = Platform(
     dt,
     H List Box(
       Panel Box( "Colour by:",
        collist = List Box(
         colnames,
          max selected( 1 ),
          if( chosen != "",
           gbb1 << Remove Variable( {col, Role( "Color" )} );
           gbb2 << Remove Variable( {col, Role( "Color" )} );
          );
          chosen = collist << get selected;
          col = column(chosen);
          dt << Color or Mark by Column( col );
          gbb1 = Report( gb1 )[Graph Builder Box( 1 )];
          gbb1 << Add Variable( {col, Role( "Color" )} );
          gbb2 = Report( gb2 )[Graph Builder Box( 1 )];
          gbb2 << Add Variable( {col, Role( "Color" )} );
        )
      )
     )
    );
    List3 = V List Box();
    List4 = H List Box();
    Report1 = Platform(
     dt,
     gb1 = Graph Builder(
      Size( 534, 456 ),
      Show Control Panel( 0 ),
      Fit to Window( "Maintain Aspect Ratio" ),
      Variables( X( :Row ), Y( :Friction ) ),
      Elements(
       Points( X, Y, Legend( 9 ) ),
       Smoother( X, Y, Legend( 10 ) )
      )
     )
    );
    Report2 = Platform(
     dt,
     gb2 = Graph Builder(
      Size( 534, 456 ),
      Show Control Panel( 0 ),
      Fit to Window( "Maintain Aspect Ratio" ),
      Variables( X( :Row ), Y( :Velocity ) ),
      Elements(
       Points( X, Y, Legend( 6 ) ),
       Smoother( X, Y, Legend( 7 ) )
      )
     )
    );

Nuevamente, lo anterior es solo un extracto del código completo. Como puede ver arriba, tengo que definir gbb1 y gbb2 dentro de la plataforma 'win', que se ejecuta cada vez que se realiza una nueva selección. Puede que esto no sea óptimo en términos de velocidad, pero parece ser el único lugar en el que se pueden definir si el código funciona (no estoy seguro de por qué).

 

Gracias otra vez @gzmorgan0 .

Re: Actualización dinámica de 'Color( )' en Graph Builder con selección desde el menú en el mismo tablero que los gráficos

@A_Zaid ,

 

Usted declaró

" solo puede hacer la selección una vez al principio antes de que se generen los gráficos, pero luego no puede hacer otra selección sin tener que ejecutar el complemento nuevamente. "

 

En realidad, eso fue una errata en nuestro libro. Puede agregar o eliminar una variable enviando mensajes a GraphBuilderBox(). Vea el guión a continuación.

 

Es posible que deba agregar la interfaz para agregar o eliminar una variable.

Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
gb = Graph Builder(
 Variables( X( :height ), Y( :weight ) ),
 Elements( Points( X, Y ), Smoother( X, Y ) )
);
gbb = Report( gb )[Graph Builder Box( 1 )];
Wait( 0.5 );
gbb << Add Variable( {:sex, Role( "Wrap" )} );
wait( 0.5 );
gbb << Add Variable( {:sex, Role( "Color" )} );

wait( 0.5 );
gbb << Remove Variable( {:sex, Role( "Color" )} );

wait( 0.5 );
gbb << Add Variable( {:age, Role( "Color" )} );