適用するタイプを保持する

Question

applyを使用すると、タイプは常にcharacterにキャストされているようです - タイプに応じて異なる方法でカラムに反応したいのですが、タイプや類似の機能を保持する方法はありますか？

calculate_stats = function(data, divideby){ 
    print(typeof(data)) # Always prints character! 
} 

get_result_table = function(data, divideby){ 
    apply(data, 2, calculate_stats, divideby = divideby) 
} 

get_result_table(iris, iris$Species) 

Answer 1

さらに上記の私のコメントに、あなたは

get_result_table(iris, iris$Species) 
#[1] "double" 
#[1] "double" 
#[1] "double" 
#[1] "double" 
#[1] "integer" 
#Sepal.Length Sepal.Width Petal.Length Petal.Width  Species 
# "double"  "double"  "double"  "double" "integer" 

を取得おそらくこれは、あなたが期待するより何ですか？

Answer 2

colwiseplyrパッケージはまさにこれです。あなたは

get_result_table = function(data, divideby) { 
    sapply(data, calculate_stats, divideby = divideby) 
} 

を定義した場合