Skip to content

Instantly share code, notes, and snippets.

@Tadge-Analytics
Last active July 7, 2020 23:23
Show Gist options
  • Select an option

  • Save Tadge-Analytics/58a49896a5648175f95b3b61af67f653 to your computer and use it in GitHub Desktop.

Select an option

Save Tadge-Analytics/58a49896a5648175f95b3b61af67f653 to your computer and use it in GitHub Desktop.
library(tidyverse)
library(lubridate)
seq.Date(today() - 500, today(), 1) %>%
tibble(Date = .) %>%
crossing(
`Reporting Level 1` = paste0("Level 1_", LETTERS[1:3]),
`Reporting Level 2` = paste0("Level 2_", LETTERS[1:5]),
`Reporting Level 3` = paste0("Level 3_", LETTERS[1:10]),
`Fund Strm` = c("CAPEX", "OPEX"),
`SAP Version` = c("ACTUALS", "BUDGET")
) %>%
mutate(Amount = runif(n(), 2, 25)) %>%
openxlsx::write.xlsx("example data.xlsx", asTable = T)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment