inst/questions/update_databases.R

In NicolasJBM/manacc: Functions to simulate exercises in management accounting, and templates for these questions

library(dplyr)
library(tidyr)
library(tools)

questions <- readxl::read_excel("inst/questions/bases/questions.xlsx") %>%
  arrange(subsection)
save(questions, file="data/questions.RData")
resaveRdaFiles("data/questions.RData")

ma_truefalse <- readxl::read_excel("inst/questions/bases/ma_truefalse.xlsx") %>%
  arrange(subsection)
save(ma_truefalse, file="data/ma_truefalse.RData")
resaveRdaFiles("data/ma_truefalse.RData")

ma_open <- readxl::read_excel("inst/questions/bases/ma_open.xlsx") %>%
  arrange(subsection)
save(ma_open, file="data/ma_open.RData")
resaveRdaFiles("data/ma_open.RData")

products <- readxl::read_excel("inst/questions/bases/products.xlsx")
save(products, file="data/products.RData")




##################################################################################

by2 <- c(seq(from = 2, to = 98, by = 2))
by5 <- c(seq(from = 5, to = 95, by = 5))

allocations <- list()

for (CPCO in 2:5) {
  
  print(CPCO)
  
  vector <- by2[by2 <= (100 - CPCO*2)]
  tmp2 <- gtools::permutations(n = length(vector), r = CPCO, v = vector, repeats.allowed=TRUE)
  select <- rowSums(tmp2) == 100
  tmp2 <- tmp2[select,]
  
  vector <- by5[by5 <= (100 - CPCO*5)]
  tmp5 <- gtools::permutations(n = length(vector), r = CPCO, v = vector, repeats.allowed=TRUE)
  select <- rowSums(tmp5) == 100
  tmp5 <- tmp5[select,]
  
  allocations[[paste0(CPCO, "_by_2")]] <- tmp2
  allocations[[paste0(CPCO, "_by_5")]] <- tmp5
  
  rm(select, tmp2, tmp5)
  gc()
}

save(allocations, file="data/allocations.RData")
tools::resaveRdaFiles("data/allocations.RData")