R/tidy_data.R

In CDU-data-science-team/experiencesdashboard: Patient Experiences Dashboard

#' Tidy patient experience data
#'
#' @param data dataframe or SQL object with comment column, comment_txt
#' @export
tidy_all_trusts <- function(data) {
  # this line only works if there is data in the table

  if (data %>%
    dplyr::tally() %>%
    dplyr::pull(n) > 0) {
    data %>%
      dplyr::filter(
        !is.na(comment_txt),
        !is.null(comment_txt),
        !comment_txt %in% c("Did not answer", "NULL", 
                            "#NAME?", "NA", "N/A", "", " "),
        nchar(comment_txt) > 1,
        hidden == 0
      )
  } else {
    data
  }
}