R/wg2ws_list_items.R

In cdiWG2WS: Words and Gestures to Words and Sentences Score Conversion

#' List instrument items
#'
#' @details
#' Simply list the items from each instrument for convenience.
#'
#' @param instrument "WG" or "WS"
#'
#' @return List of items
#'
#' @export
#'
#' @examples
#' wg2ws_list_items("WG")
#' wg2ws_list_items("WS")

wg2ws_list_items <- function(instrument) {

  if (instrument == "WG") {
    return(g_dict$item_definition)
  } else if (instrument == "WS") {
    return(s_dict$item_definition)
  }

}