## ----eval = FALSE-------------------------------------------------------------
#  if (!requireNamespace("BiocManager", quietly = TRUE))
#      install.packages("BiocManager", repos = "https://cran.r-project.org")
#  BiocManager::install("AnVILBilling")

## ----message =FALSE, eval = TRUE, cache = FALSE-------------------------------
library(AnVILBilling)

## ----lkd----------------------------------------------------------------------
suppressPackageStartupMessages({
library(AnVILBilling)
library(dplyr)
library(magrittr)
library(BiocStyle)
})

demo_rec

## ----lklklk-------------------------------------------------------------------
v = getValues(demo_rec@reckoning, "terra-submission-id")
v

## ----adasd--------------------------------------------------------------------
s = subsetByKeyValue(demo_rec@reckoning, "terra-submission-id", v)
s

## ----vars---------------------------------------------------------------------
names(s)

## ----lkpr---------------------------------------------------------------------
AnVILBilling:::getSkus(s)

## ----cost---------------------------------------------------------------------
data(demo_rec) # makes rec
v = getValues(demo_rec@reckoning, "terra-submission-id")[1] # for instance
getSubmissionCost(demo_rec@reckoning,v)

## ----ram----------------------------------------------------------------------
data(demo_rec) # makes rec
v = getValues(demo_rec@reckoning, "terra-submission-id")[1] # for instance
getSubmissionRam(demo_rec@reckoning,v)

## ----getsin-------------------------------------------------------------------
sessionInfo()