R/drc_table.R

In tdanker/ephys2: Read, analyze and plot HEKA Patchmaster files

#' Print results as a table
#'
#' for more info, see \href{../doc/ggDRC.html}{\code{vignette("ggDRC", package = "ggDRC")}}
#'
#' @param df2 results from drc_fit
#' @param ...
#'
#'
#'
#' @return a printable table of the fit results
#' @export
#'
#' @examples
drc_table<-function(df2,...){

  df2 %>% tidyr::unnest(table, .drop = T) %>%
    mutate_if(is.numeric, funs(as.character(signif(., 3)))) #%>%
    #kable %>% kable_styling(...)
}


#' Print results as a table
#'
#' @param df2
#' @param ...
#'
#' @return
#' @export
#'
#' @examples
drc_kable <- function(df2,...){
  drc_table(df2,...) %>% knitr::kable(.)
}