(d <- wrapr::build_frame(
"id" , "id2", "AUC", "R2" |
1 , "a" , 0.7 , 0.4 |
2 , "b" , 0.8 , 0.5 ))
(layout_to_blocks_data_table(
d,
nameForNewKeyColumn = "measure",
nameForNewValueColumn = "value",
columnsToTakeFrom = c("AUC", "R2"),
columnsToCopy = c("id", "id2")))
Run the code above in your browser using DataLab