#' Transpose a \code{tibble}
#'
#' @param x a tibble
#' @name transpose_tibble
#' @importFrom tibble "as_tibble"
#' @export
transpose_tibble <- function(x){as_tibble(cbind(nms = names(x), t(x)))}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.