R/f_convenience_logbook.R

In SachaEpskamp/psychonetrics: Structural Equation Modeling and Confirmatory Network Analysis

# psychonetrics print method
 
setMethod(f = "show",
 signature = "psychonetrics_log",
definition = function(object){
  
  time <- object@time
  event <- object@event
  
  cat (paste0(
    "Event logged at ", format(time, "%Y-%m-%d %H:%M"),":\n\t",event,"\n")
  )
})
  

# Logbook:
print.psychonetrics_log <- function(x,...){
  
  df <- data.frame(
    time =  format(as.POSIXct(sapply(x, 'slot', "time"), "%Y-%m-%d %H:%M")),
   events =  sapply(x, 'slot', "event")
  )
  
  # Print:
  for (i in seq_len(nrow(df))){
    cat(paste0("Event logged at ",df$time[i],": \n\t",df$events[i],"\n\n"))
  }
  
  return(df)
}

# Convenience function:
logbook <- function(x,log=TRUE){
  stopifnot(is(x,"psychonetrics"))
  
  # Add final entry for when the logbook is accessed:
  if (log){
    x <- addLog(x,"Logbook retrieved")  
  }
  
  # Return logook:
  return(x@log)
}