## Not run:
# gs_inspect(iris)
#
# # data recorded from a game of ultimate frisbee
# ulti_key <- "1223dpf3vnjZUYUnCM8rBSig3JlGrAu1Qu6VmPvdEn4M"
# ulti_ss <- ulti_key %>% gs_key()
# ulti_dat <- ulti_ss %>% gs_read()
# gs_inspect(ulti_dat)
#
# # totally synthetic example
# x <- suppressWarnings(matrix(0:1, 21, 21))
# x[sample(21^2, 10)] <- NA
# x <- as.data.frame(x)
# some_columns <- seq(from = 1, to = 21, by = 3)
# x[some_columns] <- lapply(x[some_columns], as.numeric)
# gs_inspect(x)
# ## End(Not run)
Run the code above in your browser using DataLab