# \donttest{
library(projoint)
data(exampleData1)
reshaped <- reshape_projoint(
exampleData1,
.outcomes = c(paste0("choice", 1:8), "choice1_repeated_flipped")
)
tmpfile <- tempfile(fileext = ".csv")
save_labels(reshaped, tmpfile)
readLines(tmpfile, n = 5) # show first few lines
# }
Run the code above in your browser using DataLab