# Use package-internal list of oTree data frames
oTree <- gmoTree::oTree
# Delete only one case
oTree2 <- delete_cases(oTree,
pcodes = "xmxl46rm",
reason = "requested")
# Show changes in row numbers
print(paste("Row numbers before deletion: ",
nrow(oTree$all_apps_wide), nrow(oTree$survey),
nrow(oTree$Time), nrow(oTree$Chats)))
print(paste("Row numbers after deletion: ",
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)))
# Check the "full" deletion information
oTree2$info$deleted_cases$full
# 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)))
# Check the "full" deletion information
oTree2$info$deleted_cases$full
# 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
# Delete a session and delete a single case from another session
oTree2 <- delete_sessions(oTree,
scodes = c("vd1h01iv"),
reason = "Server Crash",
saved_vars = "dictator.1.group.id_in_subsession")
oTree2 <- delete_cases(oTree2,
pcodes = "4zhzdmzo",
reason = "requested")
# Check the "full" deletion information
oTree2$info$deleted_cases$full
# See codes of deleted variables
oTree2$info$deleted_cases$codes
# See number of deleted variables
oTree2$info$deleted_cases$count
Run the code above in your browser using DataLab