Печать надписей и имен переменных с головкой

Question

Я пытаюсь использовать что-то вроде команды head в R, но также включаю метки переменных в выводе на консоль.

До сих пор я тестировал head() и dplyr::slice() с data.frames и tibbles, но ни у кого нет опций для отображения меток и названий столбцов.

Кто-нибудь знает, возможно ли это сделать?

Я пытаюсь получить что-то вроде этого:

# A tibble: 3 x 21
SiteSeq   SiteName  SiteCode  SubjectSeq   SubjectId    EventSeq 
<Site No> <Name>    <Code>    <Patient No> <Patient ID> <Event No> 
2         Peter M~   PMC       1           PMC-001      1        
2         Peter M~   PMC       1           PMC-001      1        
2         Peter M~   PMC       1           PMC-001      1 

Где вещи в <> являются метками столбцов.

Я знаю, что ярлыки можно просматривать с помощью View(), но мне просто интересно, есть ли способ увидеть их в консоли. Спасибо!

Edit:

Все переменные помечаются с помощью команды Hmisc::label() сразу после считывания данных. Например, label(data$variable1) <- "label1"

Answer 1

Благодаря совету @MRau вот простая функция, которая будет печатать метки вместе с именами переменных при просмотре в консоли:

lhead <- function(df, n=7){  

  is.Date <- function(x){
    ifelse(inherits(x, c("POSIXt", "POSIXct", "Date")), TRUE, FALSE)
  }

  df2 <- df
  df2[sapply(df2, is.factor)] <- lapply(df2[sapply(df2, is.factor)], as.character)
  df2[sapply(df2, is.Date)] <- lapply(df2[sapply(df2, is.Date)], as.character)
  tmp <- rbind(label(df), df2)
  head(tmp, n)  
}

Edit:

Были проблемы с датами, поэтому бит с дополнительной датой