関数から結果と文を返すにはどうすればよいですか？

Question

この関数は、結果（数値）とテキストの両方を返すようにします。

sum_of_squares_cubes <- function(x,y) { 
    sq = x^2 + y^2 
    cube = x^3 + y^3 
    return(list(sq, cube)) 
    cat("The sum of squares is", sq, "\n" , 
     "The sum of cubes is", cube, "\n" , 
    ) 
} 

上記を実行すると、結果の番号のみが返されます。

所望の出力：

sum_of_squares_cubes(2,3) 
13 
35 
"The sum of squares is 13" 
"The sum of cubes is 35" 

Answer 1

代わりにこれを行うための関数を修正しますか？

sum_of_squares_cubes <- function(x,y) { 
    sq = x^2 + y^2 
    cube = x^3 + y^3 
    text <- paste("The sum of squares is ", sq, "\n", 
       "The sum of cubes is ", cube, "\n", sep = '') 
    return(list(sq, cube, text)) 
} 

Answer 2

あなたは（あなたが尋ねです）それはあなたがそうであるように、これらの他の人々が同じ混乱を持っている可能性があります、あなたは彼らのアドバイスではなく、異なるクラスの実際リターン複数の項目に幸せになること単一のリスト（複雑な構造の可能性があります）が必要です。

sum_of_squares_cubes <- function(x,y) { 
    sq = x^2 + y^2 
    cube = x^3 + y^3 
    return(list(sq, cube, sqmsg=paste("The sum of squares is", sq, "\n") , 
         cubemsg= paste("The sum of cubes is", cube, "\n") 
     )) 
    } 

> sum_of_squares_cubes(2,4) 
[[1]] 
[1] 20 

[[2]] 
[1] 72 

$sqmsg 
[1] "The sum of squares is 20 \n" 

$cubemsg 
[1] "The sum of cubes is 72 \n" 

Answer 3

は、ここではsprintfとシンプルなソリューションです：

sum_of_squares_cubes <- function(x,y) { 
    sq = x^2 + y^2 
    cube = x^3 + y^3 
    text1 <- sprintf("The sum of squares is %d", sq) 
    text2 <- sprintf("and the sum of cubes is %d", cube) 
    return(cat(c("\n", sq, "\n", cube, "\n", text1, "\n", text2))) 
} 

と結果は以下のようになります。

13 
35 
The sum of squares is 13 
and the sum of cubes is 35