chartSeries does not set background color in custom layout with log scale

[ethanbsmith]

Description

Expected behavior

expect the log scale chart to use the background color from the specified theme

Minimal, reproducible example

dev.off()
layout(matrix(c(1, 2:3, 1, 4:5), nrow = 3), heights = c(1, 5, 2))
plot.new()
mtext("SPY", side = 1)
p <- getSymbols("SPY")
chartSeries(to.monthly(p), name = "With log scale", layout = NULL, theme = "black", log.scale = T)
chartSeries(to.monthly(p), name = "Without log scale", layout = NULL, theme = "black", log.scale = F,)

Session Info

R version 3.4.3 (2017-11-30)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 10 x64 (build 16299)

Matrix products: default

locale:
[1] LC_COLLATE=English_United States.1252  LC_CTYPE=English_United States.1252    LC_MONETARY=English_United States.1252 LC_NUMERIC=C                           LC_TIME=English_United States.1252    

attached base packages:
[1] parallel  stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
 [1] doParallel_1.0.12    iterators_1.0.9      foreach_1.4.5        jsonlite_1.5         data.table_1.10.5    quantmod_0.4-13      TTR_0.23-3           xts_0.10-2           zoo_1.8-1            RODBC_1.3-15         plotrix_3.7         
[12] RevoUtilsMath_10.0.1 RevoUtils_10.0.7     RevoMods_11.0.0      MicrosoftML_9.3.0    mrsdeploy_1.1.3      RevoScaleR_9.3.0     lattice_0.20-35      rpart_4.1-11         checkpoint_0.4.3    

loaded via a namespace (and not attached):
[1] codetools_0.2-15       CompatibilityAPI_1.1.0 grid_3.4.3             R6_2.2.2               curl_3.1               tools_3.4.3            compiler_3.4.3         rtvs_1.0.0.0           mrupdate_1.0.1