# This function is no longer required
data_imp_bb <- function(path.name,sheet.name,skip.row,max.row) {
read.row <- max.row - skip.row
read.df <- read_excel(path.name, sheet=sheet.name,skip=skip.row,n_max=max.row, col_names=FALSE)
read.df.clean <- read.df %>%
janitor::remove_empty("cols") %>%
janitor::remove_empty("rows")
return(read.df.clean)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.