# Use package-internal list of oTree data frames
oTree <- gmoTree::oTree
# First, show some row numbers
print(paste(nrow(oTree$all_apps_wide), nrow(oTree$survey),
nrow(oTree$Time), nrow(oTree$Chats)))
# Delete only one case
oTree2 <- delete_cases(oTree,
pcodes = "xmxl46rm",
reason = "requested")
# Show row numbers again
print(paste(nrow(oTree2$all_apps_wide), nrow(oTree2$survey),
nrow(oTree2$Time), nrow(oTree2$Chats)))
# Delete several cases
deletionlist <- c("4zhzdmzo", "xmxl46rm")
oTree2 <- delete_cases(oTree,
pcodes = deletionlist,
reason = "requested")
# Show row numbers again
print(paste(nrow(oTree2$all_apps_wide), nrow(oTree2$survey),
nrow(oTree2$Time), nrow(oTree2$Chats)))
# Show information on all deleted cases (also dropouts):
oTree2$info$deleted_cases$full
# Save one variable
oTree2 <- delete_cases(oTree,
pcodes = deletionlist,
reason = "requested",
saved_vars = "participant._index_in_pages")
# Show row numbers again
print(paste(nrow(oTree2$all_apps_wide), nrow(oTree2$survey),
nrow(oTree2$Time), nrow(oTree2$Chats)))
# Save some variables
oTree2 <- delete_cases(oTree,
pcodes = deletionlist,
reason = "requested",
saved_vars = c(
"participant._index_in_pages",
"participant._max_page_index"))
# Show row numbers again
print(paste(nrow(oTree2$all_apps_wide), nrow(oTree2$survey),
nrow(oTree2$Time), nrow(oTree2$Chats)))
# Get a list of all deleted cases
# (If there is already a list, the new list is added to it)
oTree2$info$deleted_cases$codes
# Show number of all deleted cases
length(oTree2$info$deleted_cases$codes)
oTree2$info$deleted_cases$count
Run the code above in your browser using DataLab