## ----------------------------------------------------------------------------------------------------------------------------＃if（！sireseenamespace（“ biocmanager”，悄悄= true））＃install.packages（“ biocmanager”，repos =“ https：//cran.r-project.org”）＃biocmanager :: install（“ anvilbilling”）## ----消息= false，eval = true，cache = false ----------------------------------------------------------------------------------库（Anvilbilling）## ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- suppressPackageStartupMessages({图书馆（Anvilbilling）库（DPLYR）库（Magrittr）库（BioCstyle）}）demo_rec ## ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ v = getValues（demo_rec@reckoning，“ Terra-submission-id”）V ## --------------------------------------------------------------------------------------------------------------- s = subsetByKeyValue(demo_rec@reckoning, "terra-submission-id"，v）s ## ---- vars ---------------------------------------------------------------------------------------------------------------------名称（S）## ------------------------------------------------------------------------------------------------------------------------- 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()