r - R：Flexdashboard - 无效的水平对齐

Question

我在运行 R-server 的 linode 服务器上有一个简单的仪表板。我只是在绘制一些 COVID 数据，但我收到一条错误消息：错误：水平对齐无效。我无法在本地重现此错误，并且 /var/log/shiny-server/ 中没有生成日志文件。有没有人见过这个问题？

---
title: "Some example"
output: 
  flexdashboard::flex_dashboard:
    css: style.css
    #orientation: columns
    vertical_layout: scroll
    # source_code: embed
    #runtime: shiny_prerendered
    #theme: sandstone
    logo: Images/track_logo_small.png
    # includes:
    #   in_header: cssloaders_in_header.html
runtime: shiny
---

```{r setup, include=FALSE}
packages_required = c("DT","flexdashboard","bsplus","tidyr","shiny","dplyr","janitor","magrittr","data.table","personograph","vroom","DBI","lubridate","ggplot2","RMariaDB","dbplyr","tidyfst","here","scales")

invisible(lapply(packages_required, require, character.only = TRUE))
```

Column {data-width=650}
-----------------------------------------------------------------------

### Chart A

```{r}
fileURL<-"https://api.coronavirus.data.gov.uk/v2/data?areaType=region&areaCode=E12000007&metric=newCasesByPublishDate&metric=newCasesByPublishDateRollingRate&format=csv"
COVIDdata <-vroom::vroom(fileURL)  %>% janitor::clean_names()


```

Column {data-width=350}
-----------------------------------------------------------------------

### Chart B

```{r}
fig <- COVIDdata%>%
  filter(area_name=="London" & date > "2020-08-01")%>%
  ggplot()+
  geom_bar(aes(x=ymd(date),y=new_cases_by_publish_date_rolling_rate),stat='identity')+
  xlab("Date")+
  ylab("Rate")+
  ggpubr::theme_pubclean()

renderPlot(fig)

```

标签： rggplot2shinyflexdashboard