R/crsra_timetofinish.R

In ahdvnd/crsra: Tidying and Analyzing 'Coursera' Research Export Data

#' Time that took each learner (in days) to finish a course
#'
#' @param all_tables A list from \code{\link{crsra_import_course}} or
#' \code{\link{crsra_import}}
#' @return A table containing \code{hashed_user_id}s with a column indicating the time (in days) that took each user to complete a course. The time is calculated as the difference between the last and first activity in the a course.
#' @examples
#' crsra_timetofinish(example_course_import)
#' @export
#' @importFrom dplyr group_by_ as_tibble as_data_frame data_frame
#'
crsra_timetofinish <- function(all_tables) {

    partner_user_id = attributes(all_tables)$partner_user_id
    all_tables = crsra_import_as_course(all_tables)
    numcourses = length(all_tables)
    coursenames = names(all_tables)

    course_progress_ts = NULL
    rm(list = c("course_progress_ts"))

    finishing <- function(x, y) {
        temp <- x %>%
            dplyr::filter(!is.na(course_progress_ts)) %>%
            dplyr::group_by_(partner_user_id) %>%
            dplyr::summarise(maxtime = max(course_progress_ts),
                             mintime = min(course_progress_ts)) %>%
            dplyr::as_tibble() #%>%
            #dplyr::left_join(as_tibble(y), by=jhu_user_id, `copy`=TRUE) %>%
            #dplyr::filter(course_passing_state_id %in% c(1, 2))

        temp2 <- dplyr::as_tibble(temp)
        temp2$timetofinish <- as.numeric(difftime(temp2$maxtime, temp2$mintime, units="days"))
        return(temp2)

    }

    timetofinish <- purrr::map(1:numcourses, ~ finishing(all_tables[[.x]][["course_progress"]], all_tables[[.x]][["course_grades"]]))
    names(timetofinish) <- coursenames
    message("Variable timetofinish is in days.")
    return(timetofinish)


}


# temp <- all_tables[[1]][["course_progress"]] %>%
#     dplyr::filter(!is.na(course_progress_ts)) %>%
#     dplyr::group_by(jhu_user_id) %>%
#     dplyr::summarise(maxtime = max(course_progress_ts), mintime = min(course_progress_ts)) %>%
#     dplyr::as_tibble()
#     dplyr::left_join(as_tibble(all_tables[[1]][["course_grades"]]), by=jhu_user_id, `copy`=TRUE) %>%
#     dplyr::filter(course_passing_state_id %in% c(1, 2))
#
#
#     temp2 <- as_tibble(temp)
#     temp2$timetofinish <- as.numeric(difftime(temp2$maxtime, temp2$mintime, units="days"))
#     return(temp2)