# NOT RUN {
d <- tempdir()
download_studentlife(location = d, url = "testdata")
tab_PAM <- load_SL_tibble(schema = "EMA", table = "PAM", location = d)
# Returns "PAM"
get_EMA_questions(tab_PAM)
# }
Run the code above in your browser using DataLab