Flatten columns to last non-NA from each row

library(dplyr)
gather = tidyr::gather

df = data.frame(
	one=c(1,NA,NA,3, NA),
	two=c(NA,3,NA,4,NA),
	three=c(NA,NA,2,NA,5),
	x=rnorm(5))

 result = (df 
 	%>% add_rownames() 
 	%>% gather(col, value, -x, -rowname) 
 	%>% filter(!is.na(value)) 
 	%>% group_by(rowname) 
 	%>% summarize(last(value), last(x)))