d <- data.frame(
index = c(1, 2, 3, 1, 2, 3),
meastype = c('meas1','meas1','meas1','meas2','meas2','meas2'),
meas = c('m1_1', 'm1_2', 'm1_3', 'm2_1', 'm2_2', 'm2_3'),
stringsAsFactors = FALSE)
replyr_moveValuesToColumns(d,
columnToTakeKeysFrom= 'meastype',
columnToTakeValuesFrom= 'meas',
rowKeyColumns= 'index',
sep= '_')
# cdata::moveValuesToColumns(d,
# columnToTakeKeysFrom= 'meastype',
# columnToTakeValuesFrom= 'meas',
# rowKeyColumns= 'index',
# sep= '_')
Run the code above in your browser using DataLab