I am using the awesome-cv template and after the first entry in some categories, the second entry has an indent.
Here is my pared down code to illustrate the issue:
---
name: name
position: "position"
address: "address"
phone: "number"
www: website
email: email
twitter: twitter
github: github
linkedin: linkedin
headcolor: 54a474
date: "`r format(Sys.time(), '%B %Y')`"
output: vitae::awesomecv
always_allow_html: yes
header-includes:
\usepackage{multicol}
\usepackage{colortbl}
\arrayrulecolor{white}
\usepackage{hhline}
\definecolor{light-gray}{gray}{0.95}
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE)
library(vitae)
library(tidyverse)
library(pander)
library(googlesheets4)
library(glue)
library(yaml)
library(knitr)
library(tinytex)
# Define a custom function for printing nice lists for the publication and talks sections:
catList <- function(x, out.format = knitr::opts_knit$get("out.format"),
environment = "itemize",
marker = NULL) {
if (out.format == "markdown") {
if (!missing(environment) || !missing(marker)) {
warning("Ignoring arguments that are not supported for markdown output.")
}
out <- sprintf("\n\n%s\n \n", paste("*", x, collapse = "\n"))
} else {
if (out.format == "latex") {
itemCommand <- if (missing(marker)) {
"\\item"
} else {
sprintf("\\item[%s]", marker)
}
listEnv <- c(
sprintf("\\begin{%s}\n", environment),
sprintf("\n\\end{%s}\n", environment))
out <- paste(itemCommand, x, collapse = "\n")
out <- sprintf("%s%s%s", listEnv[1], out, listEnv[2])
} else {
stop("Output format not supported.")
}
}
return(knitr::asis_output(out))
}
# Read in data:
gs4_deauth()
CVData <- read_sheet("https://docs.google.com/spreadsheets/d/1eHyUH_B97kMHDvq4De-o3_97gVJZiHv1gEAxwBdxLiA/edit?usp=sharing")
# Process data into sub-tibbles:
Education <- dplyr::filter(CVData, Category == "Education")
Experience <- dplyr::filter(CVData, Category == "Experience")
Teaching <- dplyr::filter(CVData, Category == "Teaching")
Awards <- dplyr::filter(CVData, Category == "Awards")
Service <- dplyr::filter(CVData, Category == "Service")
Outreach <- dplyr::filter(CVData, Category == "Media & Outreach")
Publications <- dplyr::filter(CVData, Category == "Publications")
Talks <- dplyr::filter(CVData, Category == "Talks")
Skills <- dplyr::filter(CVData, Category == "Skills and Training")
Societies <- dplyr::filter(CVData, Category == "Societies")
Collections <- dplyr::filter(CVData, Category == "Collections Visited")
```
# Education
```{r}
detailed_entries(Education,
when = glue("{Start}--{End}"),
what = Supervisor,
where = Institution,
with = Position,
why = Details)
```
# Publications
**In Review:**
\scriptsize
```{r}
Publications %>%
filter(Type == "In Review") %>%
pull("Details") %>%
catList()
```
\normalsize
**In Preparation:**
\scriptsize
```{r}
Publications %>%
filter(Type == "In Preparation") %>%
pull("Details") %>%
catList()
```
\normalsize
\scriptsize
```{r}
#Publications %>%
#filter(Type != "Published") %>%
#pull("Details") %>%
#catList()
```
\normalsize[![enter image description here][1]][1]
Here is a screenshot of the issue:
Please let me know if there is anything else I can do to help troubleshoot.