R/tr_summarize_output.R

In Rapporteket/nnrr: Resultatrapporter for Norsk nakke- og ryggregister

#' Transponer output fra tidyr::summarize
#'
#' Denne funksjonen tar som input resultatet av tidyr::summarize og returnerer dens
#' transponerte uten at formatene endres.
#'
#' Her kan detaljer skrives
#'
#' @return tr_frame Den transponerte av inputen
#'
#' @export
#'
tr_summarize_output <- function(x){

rekkefolge <- names(x)[-1]
y <- x %>% gather(names(x)[-1], key=nokkel, value = verdi) %>%
  spread(key=names(x)[1], value = verdi)
y <- y[match(rekkefolge, y$nokkel), ]
names(y)[1] <- ''

return(invisible(y))
}