Ryfujk

Should we avoid writing fiction about historical events without extensive research?

In which way proportional valves are controlled solely by current?

Redirecting CellPrint output

Are all UTXOs locked by an address spent in a transaction?

When was drinking water recognized as crucial in marathon running?

“I had a flat in the centre of town, but I didn’t like living there, so …”

Is there a way to find out the age of climbing ropes?

Why is my Contribution Detail Report (native CiviCRM Core report) not accurate?

How to fix my table, centering of columns

What is better: yes / no radio, or simple checkbox?

Meaning of word ягоза

Why won't the strings command stop?

The need of reserving one's ability in job interviews

It doesn't matter the side you see it

is 'sed' thread safe

1970s scifi/horror novel where protagonist is used by a crablike creature to feed its larvae, goes mad, and is defeated by retraumatising him

Is every open circuit a capacitor?

How can I highlight parts in a screenshot

GPL code private and stolen

Why did the Cray-1 have 8 parity bits per word?

Draw bounding region by list of points

Difference between 'stomach' and 'uterus'

Lock enemy's y-axis when using Vector3.MoveTowards to follow the player

Quitting employee has privileged access to critical information

Redirecting CellPrint output

Can I Print to a different notebook? (within the context of the same kernel)Temporarily redirect the output of Print[ ] to a second fileA notebook created on demand from a main document showing executable input along with output cellsConsecutive Print to target same output CellConditional printed outputWhy TeXForm[] do not display to notebook if followed by OutputForm[] in same cell?Temporary/popup Output Progress BoxesHow to find the last output cell of the group to which a certain cell belongs?Delete Cell Inside of ModulePrint SlideShowSaving all cell-groups to pdfs with filenamesDelete all output in notebooks

3

1

$begingroup$

How can I make g[]; or h[]; print the same output as f[];? I am trying to capture the output of one function and put it in a document elsewhere, but the CellPrint output is not cooperating.

f[] := Module[{},

  Print["Bob"];

  CellPrint[Cell["", Background -> Blue, "Print"]];

  Print["Bill"]]



printlist = {};

Block[{Print = AppendTo[printlist, {##}] &,

   CellPrint = AppendTo[printlist, {##}] &}, f[]];



g[] := Map[CellPrint, ExpressionCell[#, "Print"] & /@

    Flatten[printlist, 1]]



h[] := CreateDocument[ExpressionCell[#, "Print"] & /@

    Flatten[printlist, 1]]



f[];

g[];

notebooks cells monitoring

share|improve this question

edited 4 hours ago

Kuba♦

106k12206529

asked 4 hours ago

Chris DegnenChris Degnen

22k23787

$endgroup$

add a comment | 

3

1

$begingroup$

How can I make g[]; or h[]; print the same output as f[];? I am trying to capture the output of one function and put it in a document elsewhere, but the CellPrint output is not cooperating.

f[] := Module[{},

  Print["Bob"];

  CellPrint[Cell["", Background -> Blue, "Print"]];

  Print["Bill"]]



printlist = {};

Block[{Print = AppendTo[printlist, {##}] &,

   CellPrint = AppendTo[printlist, {##}] &}, f[]];



g[] := Map[CellPrint, ExpressionCell[#, "Print"] & /@

    Flatten[printlist, 1]]



h[] := CreateDocument[ExpressionCell[#, "Print"] & /@

    Flatten[printlist, 1]]



f[];

g[];

notebooks cells monitoring

share|improve this question

edited 4 hours ago

Kuba♦

106k12206529

asked 4 hours ago

Chris DegnenChris Degnen

22k23787

$endgroup$

add a comment | 

$begingroup$

How can I make g[]; or h[]; print the same output as f[];? I am trying to capture the output of one function and put it in a document elsewhere, but the CellPrint output is not cooperating.

f[] := Module[{},

  Print["Bob"];

  CellPrint[Cell["", Background -> Blue, "Print"]];

  Print["Bill"]]



printlist = {};

Block[{Print = AppendTo[printlist, {##}] &,

   CellPrint = AppendTo[printlist, {##}] &}, f[]];



g[] := Map[CellPrint, ExpressionCell[#, "Print"] & /@

    Flatten[printlist, 1]]



h[] := CreateDocument[ExpressionCell[#, "Print"] & /@

    Flatten[printlist, 1]]



f[];

g[];

notebooks cells monitoring

share|improve this question

edited 4 hours ago

Kuba♦

106k12206529

asked 4 hours ago

Chris DegnenChris Degnen

22k23787

$endgroup$

f[] := Module[{},

  Print["Bob"];

  CellPrint[Cell["", Background -> Blue, "Print"]];

  Print["Bill"]]



printlist = {};

Block[{Print = AppendTo[printlist, {##}] &,

   CellPrint = AppendTo[printlist, {##}] &}, f[]];



g[] := Map[CellPrint, ExpressionCell[#, "Print"] & /@

    Flatten[printlist, 1]]



h[] := CreateDocument[ExpressionCell[#, "Print"] & /@

    Flatten[printlist, 1]]



f[];

g[];

share|improve this question

edited 4 hours ago

Kuba♦

106k12206529

asked 4 hours ago

Chris DegnenChris Degnen

22k23787

share|improve this question

edited 4 hours ago

Kuba♦

106k12206529

asked 4 hours ago

Chris DegnenChris Degnen

22k23787

edited 4 hours ago

Kuba♦

106k12206529

edited 4 hours ago

Kuba♦

106k12206529

asked 4 hours ago

Chris DegnenChris Degnen

22k23787

asked 4 hours ago

Chris DegnenChris Degnen

22k23787

3 Answers
3

active

oldest

votes

1

$begingroup$

a) notice that depending on the settings Print may be printed to the MessagesNotebook while CellPrint always goes to the parent notebook.

b) I'm not sure what is the context so I will just leave those links here:

Can I Print to a different notebook? (within the context of the same kernel)

Temporarily redirect the output of Print[ ] to a second file

c) the answer:

The problem is that you are doing CellPrint @ ExpressionCell @ Cell[.... Here is what you can do:

f[] := Module[{}, Print["Bob"];

  CellPrint[Cell["", Background -> Blue, "Print"]];

  Print["Bill"]]



printlist = {};

Block[{Print = 

    AppendTo[printlist, ExpressionCell[Row[{##}], "Print"]] &, 

   CellPrint = AppendTo[printlist, {##}] &}, f[]];



g[] := Map[CellPrint, Flatten[printlist, 1]]



h[] := CreateDocument[Flatten[printlist, 1]]



f[];

g[];

share|improve this answer

answered 4 hours ago

Kuba♦Kuba

106k12206529

$endgroup$

add a comment | 

1

$begingroup$

Why not wrap ExpressionCell only around Print calls? For example:

printlist={};

Block[

    {

    Print = AppendTo[printlist, Thread[ExpressionCell[{##}, "Print"]]]&,

    CellPrint = AppendTo[printlist, #]&

    },

    f[]

];



g[] := CellPrint /@ Flatten @ printlist

h[] := CreateDocument[

    Flatten @ printlist

]

Then:

g[];

and:

nb = h[];

CurrentNotebookImage[nb]

seem to do what you want.

share|improve this answer

answered 4 hours ago

Carl WollCarl Woll

69.3k393179

$endgroup$

add a comment | 

1

$begingroup$

CellPrint >> Details:

In CellPrint[expr]:

If expr has head TextCell, ExpressionCell, or CellGroup, it is inserted unchanged into the notebook.

So changing heads Cell to Sequence in the first argument of ExpressionCell works:

ClearAll[g, h]



g[] := Map[CellPrint, ExpressionCell[# /. Cell -> Sequence, "Print"] & /@ 

   Flatten[printlist, 1]]



h[] := CreateDocument[ExpressionCell[# /. Cell -> Sequence, "Print"] & /@ 

   Flatten[printlist, 1]]



g[];

h[]

share|improve this answer

edited 1 hour ago

answered 3 hours ago

kglrkglr

187k10203421

$endgroup$

add a comment | 

Your Answer

StackExchange.ifUsing("editor", function () {
return StackExchange.using("mathjaxEditing", function () {
StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix) {
StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["$", "$"], ["\\(","\\)"]]);
});
});
}, "mathjax-editing");

StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "387"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});

function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});


}
});

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f192754%2fredirecting-cellprint-output%23new-answer', 'question_page');
}
);

Post as a guest

Name

Email

Required, but never shown

1

$begingroup$

a) notice that depending on the settings Print may be printed to the MessagesNotebook while CellPrint always goes to the parent notebook.

b) I'm not sure what is the context so I will just leave those links here:

Can I Print to a different notebook? (within the context of the same kernel)

Temporarily redirect the output of Print[ ] to a second file

c) the answer:

The problem is that you are doing CellPrint @ ExpressionCell @ Cell[.... Here is what you can do:

f[] := Module[{}, Print["Bob"];

  CellPrint[Cell["", Background -> Blue, "Print"]];

  Print["Bill"]]



printlist = {};

Block[{Print = 

    AppendTo[printlist, ExpressionCell[Row[{##}], "Print"]] &, 

   CellPrint = AppendTo[printlist, {##}] &}, f[]];



g[] := Map[CellPrint, Flatten[printlist, 1]]



h[] := CreateDocument[Flatten[printlist, 1]]



f[];

g[];

share|improve this answer

answered 4 hours ago

Kuba♦Kuba

106k12206529

$endgroup$

add a comment | 

1

$begingroup$

a) notice that depending on the settings Print may be printed to the MessagesNotebook while CellPrint always goes to the parent notebook.

b) I'm not sure what is the context so I will just leave those links here:

Can I Print to a different notebook? (within the context of the same kernel)

Temporarily redirect the output of Print[ ] to a second file

c) the answer:

The problem is that you are doing CellPrint @ ExpressionCell @ Cell[.... Here is what you can do:

f[] := Module[{}, Print["Bob"];

  CellPrint[Cell["", Background -> Blue, "Print"]];

  Print["Bill"]]



printlist = {};

Block[{Print = 

    AppendTo[printlist, ExpressionCell[Row[{##}], "Print"]] &, 

   CellPrint = AppendTo[printlist, {##}] &}, f[]];



g[] := Map[CellPrint, Flatten[printlist, 1]]



h[] := CreateDocument[Flatten[printlist, 1]]



f[];

g[];

share|improve this answer

answered 4 hours ago

Kuba♦Kuba

106k12206529

$endgroup$

add a comment | 

$begingroup$

a) notice that depending on the settings Print may be printed to the MessagesNotebook while CellPrint always goes to the parent notebook.

b) I'm not sure what is the context so I will just leave those links here:

Can I Print to a different notebook? (within the context of the same kernel)

Temporarily redirect the output of Print[ ] to a second file

c) the answer:

The problem is that you are doing CellPrint @ ExpressionCell @ Cell[.... Here is what you can do:

f[] := Module[{}, Print["Bob"];

  CellPrint[Cell["", Background -> Blue, "Print"]];

  Print["Bill"]]



printlist = {};

Block[{Print = 

    AppendTo[printlist, ExpressionCell[Row[{##}], "Print"]] &, 

   CellPrint = AppendTo[printlist, {##}] &}, f[]];



g[] := Map[CellPrint, Flatten[printlist, 1]]



h[] := CreateDocument[Flatten[printlist, 1]]



f[];

g[];

share|improve this answer

answered 4 hours ago

Kuba♦Kuba

106k12206529

$endgroup$

f[] := Module[{}, Print["Bob"];

  CellPrint[Cell["", Background -> Blue, "Print"]];

  Print["Bill"]]



printlist = {};

Block[{Print = 

    AppendTo[printlist, ExpressionCell[Row[{##}], "Print"]] &, 

   CellPrint = AppendTo[printlist, {##}] &}, f[]];



g[] := Map[CellPrint, Flatten[printlist, 1]]



h[] := CreateDocument[Flatten[printlist, 1]]



f[];

g[];

share|improve this answer

answered 4 hours ago

Kuba♦Kuba

106k12206529

answered 4 hours ago

Kuba♦Kuba

106k12206529

answered 4 hours ago

Kuba♦Kuba

106k12206529

1

$begingroup$

Why not wrap ExpressionCell only around Print calls? For example:

printlist={};

Block[

    {

    Print = AppendTo[printlist, Thread[ExpressionCell[{##}, "Print"]]]&,

    CellPrint = AppendTo[printlist, #]&

    },

    f[]

];



g[] := CellPrint /@ Flatten @ printlist

h[] := CreateDocument[

    Flatten @ printlist

]

Then:

g[];

and:

nb = h[];

CurrentNotebookImage[nb]

seem to do what you want.

share|improve this answer

answered 4 hours ago

Carl WollCarl Woll

69.3k393179

$endgroup$

add a comment | 

1

$begingroup$

Why not wrap ExpressionCell only around Print calls? For example:

printlist={};

Block[

    {

    Print = AppendTo[printlist, Thread[ExpressionCell[{##}, "Print"]]]&,

    CellPrint = AppendTo[printlist, #]&

    },

    f[]

];



g[] := CellPrint /@ Flatten @ printlist

h[] := CreateDocument[

    Flatten @ printlist

]

Then:

g[];

and:

nb = h[];

CurrentNotebookImage[nb]

seem to do what you want.

share|improve this answer

answered 4 hours ago

Carl WollCarl Woll

69.3k393179

$endgroup$

add a comment | 

$begingroup$

Why not wrap ExpressionCell only around Print calls? For example:

printlist={};

Block[

    {

    Print = AppendTo[printlist, Thread[ExpressionCell[{##}, "Print"]]]&,

    CellPrint = AppendTo[printlist, #]&

    },

    f[]

];



g[] := CellPrint /@ Flatten @ printlist

h[] := CreateDocument[

    Flatten @ printlist

]

Then:

g[];

and:

nb = h[];

CurrentNotebookImage[nb]

seem to do what you want.

share|improve this answer

answered 4 hours ago

Carl WollCarl Woll

69.3k393179

$endgroup$

printlist={};

Block[

    {

    Print = AppendTo[printlist, Thread[ExpressionCell[{##}, "Print"]]]&,

    CellPrint = AppendTo[printlist, #]&

    },

    f[]

];



g[] := CellPrint /@ Flatten @ printlist

h[] := CreateDocument[

    Flatten @ printlist

]

g[];

nb = h[];

CurrentNotebookImage[nb]

share|improve this answer

answered 4 hours ago

Carl WollCarl Woll

69.3k393179

answered 4 hours ago

Carl WollCarl Woll

69.3k393179

answered 4 hours ago

Carl WollCarl Woll

69.3k393179

1

$begingroup$

CellPrint >> Details:

In CellPrint[expr]:

If expr has head TextCell, ExpressionCell, or CellGroup, it is inserted unchanged into the notebook.

So changing heads Cell to Sequence in the first argument of ExpressionCell works:

ClearAll[g, h]



g[] := Map[CellPrint, ExpressionCell[# /. Cell -> Sequence, "Print"] & /@ 

   Flatten[printlist, 1]]



h[] := CreateDocument[ExpressionCell[# /. Cell -> Sequence, "Print"] & /@ 

   Flatten[printlist, 1]]



g[];

h[]

share|improve this answer

edited 1 hour ago

answered 3 hours ago

kglrkglr

187k10203421

$endgroup$

add a comment | 

1

$begingroup$

CellPrint >> Details:

In CellPrint[expr]:

If expr has head TextCell, ExpressionCell, or CellGroup, it is inserted unchanged into the notebook.

So changing heads Cell to Sequence in the first argument of ExpressionCell works:

ClearAll[g, h]



g[] := Map[CellPrint, ExpressionCell[# /. Cell -> Sequence, "Print"] & /@ 

   Flatten[printlist, 1]]



h[] := CreateDocument[ExpressionCell[# /. Cell -> Sequence, "Print"] & /@ 

   Flatten[printlist, 1]]



g[];

h[]

share|improve this answer

edited 1 hour ago

answered 3 hours ago

kglrkglr

187k10203421

$endgroup$

add a comment | 

$begingroup$

CellPrint >> Details:

In CellPrint[expr]:

If expr has head TextCell, ExpressionCell, or CellGroup, it is inserted unchanged into the notebook.

So changing heads Cell to Sequence in the first argument of ExpressionCell works:

ClearAll[g, h]



g[] := Map[CellPrint, ExpressionCell[# /. Cell -> Sequence, "Print"] & /@ 

   Flatten[printlist, 1]]



h[] := CreateDocument[ExpressionCell[# /. Cell -> Sequence, "Print"] & /@ 

   Flatten[printlist, 1]]



g[];

h[]

share|improve this answer

edited 1 hour ago

answered 3 hours ago

kglrkglr

187k10203421

$endgroup$

ClearAll[g, h]



g[] := Map[CellPrint, ExpressionCell[# /. Cell -> Sequence, "Print"] & /@ 

   Flatten[printlist, 1]]



h[] := CreateDocument[ExpressionCell[# /. Cell -> Sequence, "Print"] & /@ 

   Flatten[printlist, 1]]



g[];

h[]

share|improve this answer

edited 1 hour ago

answered 3 hours ago

kglrkglr

187k10203421

answered 3 hours ago

kglrkglr

187k10203421

answered 3 hours ago

kglrkglr

187k10203421