blocks|key|231953|text|我认为你能做的最好的就是为函数返回的对象定义一个特殊的print方法：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|231954|##+Have+your+function+prepend+"myClass"+to+the+class+of+the+objects+it+returns
fun+<-+function(x)+{
++++class(x)+<-+c("myClass",+class(x))
++++x
}

##+Define+a+print+method+for+"myClass".+It+will+be+dispatched+to+
##+by+the+last+step+of+the+command+line+parse-eval-print+cycle.
print.myClass+<-+function(obj)+{
++++cat("message\n")
++++NextMethod(obj)
}

>+fun(1:10)
message
+[1]++1++2++3++4++5++6++7++8++9+10
attr(,"class")
[1]+"myClass"
>
>+out+<-+fun(1:10)
>+|code-block|syntax|javascript|231955|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

I think the best you can do is to define a special print method for objects returned by the function:

<pre><code>## Have your function prepend "myClass" to the class of the objects it returns
fun &lt;- function(x) {
 class(x) &lt;- c("myClass", class(x))
 x
}

## Define a print method for "myClass". It will be dispatched to 
## by the last step of the command line parse-eval-print cycle.
print.myClass &lt;- function(obj) {
 cat("message\n")
 NextMethod(obj)
}

&gt; fun(1:10)
message
 [1] 1 2 3 4 5 6 7 8 9 10
attr(,"class")
[1] "myClass"
&gt;
&gt; out &lt;- fun(1:10)
&gt; 
</code></pre>

blocks|key|232001|text|我喜欢Josh的想法，但对于未来的海报，我想展示我所做的，这是他的方法的一个稍微修改的版本。他的方法打印出类信息，这是我唯一不喜欢的。他使用NextMethod来避免无限递归打印。这会导致|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|232002|attr(,"class")
[1]+"myClass"|code-block|syntax|javascript|232003|待打印。因此，为了避免这种情况，我首先打印消息，然后通过类对象的长度打印1(使用索引)。|232004|fun+<-+function(x)+{
++++class(x)+<-+'beep'
++++comment(x)+<-+"hello+world"
++++return(x)
}

print.beep<-+function(beep)+{
++++cat(paste0(comment(beep),+"\n"))
++++print(beep[1:length(beep)])
}


>+fun(1:10)
hello+world
+[1]++1++2++3++4++5++6++7++8++9+10|232005|再次感谢Josh的点子。|232006|如果读者不想打印小的[1]索引，他们也可以cat输出int打印语句为：|232007|print.beep<-+function(beep)+{
++++cat(paste0(comment(beep),+"\n"))
++++cat(beep[1:length(beep)],+"\n")
}|232008|entityMap^0|1Y|A|0|0|0|0|0|A|3|L|3|0|0^^$0|@$1|2|3|4|5|6|7|W|8|@$9|X|A|Y|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|Z|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|10|8|@]|D|@]|E|$]]|$1|M|3|N|5|H|7|11|8|@]|D|@]|E|$I|J]]|$1|O|3|P|5|6|7|12|8|@]|D|@]|E|$]]|$1|Q|3|R|5|6|7|13|8|@$9|14|A|15|B|C]|$9|16|A|17|B|C]]|D|@]|E|$]]|$1|S|3|T|5|H|7|18|8|@]|D|@]|E|$I|J]]|$1|U|3|-4|5|6|7|19|8|@]|D|@]|E|$]]]|V|$]]

I love Josh's idea but for future posters wanted to show what I did which is a slightly modified version of his approach. His approach prints out the class information which is the only thing I didn't like. He used the <code>NextMethod</code> to avoid the infinite recursion printing. This causes the 

<pre><code>attr(,"class")
[1] "myClass"
</code></pre>

to be printed. So to avoid this I print the message first and then print 1 through the length of the class object (using indexing).

<pre><code>fun &lt;- function(x) {
 class(x) &lt;- 'beep'
 comment(x) &lt;- "hello world"
 return(x)
}

print.beep&lt;- function(beep) {
 cat(paste0(comment(beep), "\n"))
 print(beep[1:length(beep)])
}


&gt; fun(1:10)
hello world
 [1] 1 2 3 4 5 6 7 8 9 10
</code></pre>

Thanks again Josh for the idea.

If the reader didn't want the little <code>[1]</code> index to print either they could <code>cat</code> the output int he print statement as:

<pre><code>print.beep&lt;- function(beep) {
 cat(paste0(comment(beep), "\n"))
 cat(beep[1:length(beep)], "\n")
}
</code></pre>

How can I write into a function a way to detect if the output is being assigned (<code>&lt;-</code>) to something? The reasoning is I'd like to print a message if it is not being assigned and just goes to the console but if it is being assigned I'd like it not to print the message.

Here's a dummy example and how I'd like it to behave:

<pre><code>fun &lt;- function(x) {
 if (being_assigned) {
 print("message")
 }
 return(x)
}

#no assignment so message prints 
&gt; fun(6) 
[1] "message"
[1] 6

#assignment so message does not prints
&gt; x &lt;- fun(6)
</code></pre>

The <code>being_assigned</code> in the function is the imaginary unknown condition I'd like to detect but don't know how.

print if not assigned

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

如何在函数中写入检测输出是否被赋值(<-)的方法？原因是如果它没有被赋值，我想打印一条消息，并直接转到控制台，但如果它被赋值，我希望它不打印消息。下面是一个虚拟示例，以及我希望它如何运行：fun <- function(x) { if (being_assigned) { print("messag...

问如果未分配，则打印
EN

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如果未分配，则打印EN

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如果未分配，则打印
EN