R/ls_tsv_get_rows.R

In limonaid: Working with 'LimeSurvey' Surveys and Responses

#' Display rows from a LimeSurvey dataframe that meet a criterion
#'
#' @param data The datafram.
#' @param ... For now, one column/value pair (the criterion).
#'
#' @return The rows, passed through [ls_tsv_rows()].
#'
#' @examples ### Add later
#' @export
ls_tsv_get_rows <- function(data,
                            ...) {
  dots <- list(...);

  if (length(dots) == 1) {
    res <- data[data[, names(dots)] == dots, ];
  } else if (length(dots) > 1) {
    warning("Not implemented yet; returning NULL.");
    return(invisible(NULL));
  } else {
    return(invisible(NULL));
  }

  return(ls_tsv_rows(res));

}