807188_es-ES

liliconcom

Agregue fecha y nombre de archivo a cualquier gráfico

Me pregunto si alguien ha escrito un complemento o algún script que agregue la fecha actual y el nombre del archivo (de la tabla de datos de origen) en cualquier gráfico/informe generado.

He activado las preferencias

gracias

Compartir y comunicar resultadosRe: Agregar fecha y nombre de archivo a cualquier gráfico

En realidad no es tan sencillo crear un script que funcione con cualquier gráfico o informe.

La idea básica podría ser algo como esto, pero esto ya supone que tienes una referencia a la tabla y al objeto de análisis. También supone que todos los cuadros de marco se basan en la misma tabla.

Names Default To Here(1); 

dt = open("$SAMPLE_DATA/Big Class.jmp");

gb = dt << Graph Builder(
	Variables(X(:weight), Y(:height), Overlay(:sex)),
	Elements(Points(X, Y, Legend(9)), Line Of Fit(X, Y, Legend(11)))
);


str = Char(As Date(Today())) || " " || (dt << getname);

fbs = Report(gb) << XPath("//FrameBox");
Eval(EvalExpr(
	fbs << Add Graphics Script(
		Text Color("Red");
		Text(Right Justified, {X Origin() + X Range(), Y Origin()}, Expr(str));
	);
));

Pero averiguar cuál es la tabla correcta, por ejemplo, puede resultar bastante complicado.

Re: Agregar fecha y nombre de archivo a cualquier gráfico

Sin las referencias a la tabla de datos y al gráfico, puede acceder al objeto gb a través de report / get scriptable object() y a la tabla de datos a través de << get data table() .
Quizás agregue algún código para omitir el LDF y el conmutador de columnas...

Names Default To Here(1); 
/*
open("$SAMPLE_DATA/Big Class.jmp");

Graph Builder(
	Variables(X(:weight), Y(:height), Overlay(:sex)),
	Elements(Points(X, Y, Legend(9)), Line Of Fit(X, Y, Legend(11)))
);
*/



fbs = current report() << XPath("//FrameBox");
nfbs = N items(fbs); // add the info to the last FB

OBs= current report() << XPath("//OutlineBox");
gb = OBs[1] << get scriptable Object; // add some code to skip LDF and Column Switcher 

str = Char(As Date(Today())) || " " || ((gb << get data table()) << getname);

Eval(EvalExpr(
	fbs[nfbs] << Add Graphics Script(
		Text Color("Red");
		Text(Right Justified, {X Origin() + X Range(), Y Origin()}, Expr(str));
	);
));

Re: Agregar fecha y nombre de archivo a cualquier gráfico

Brillante, gracias.