Branch creator

This page is a knowledge crystal of subtype method. The page identifier is Op_en7457
Moderator:Jouni (see all)
Upload data {{#opasnet_base_link:Op_en7457}}

Question

How to create a branch for handprinter?

Answer

Step 1: Create a page for branch

If the branch that you are working with already has a page, open the page for editing and go to step 2.

Open two copies of this page to your browser. Give a name to your branch and click to create a new page for it. On the other page, continue from step 2.

<createbox> break=yes width=50 buttonlabel=Create branch align=left </createbox>

Step 2: Fill in data about your branch

In step 2, you can create a new branch page or add more ovariables to an existing page. Fill in the form below, click to create content for the page, and copy-paste that onto the page you created in step 1. Save the page.

Each branch is a model that consists of sub-models called ovariables. If you don't know what they are, you should first read pages ovariable and modelling in Opanet.

⇤--#: . Code works except that oprint puts and extra space between "< rcode" and that breaks the code created. --Jouni (talk) 18:15, 5 March 2016 (UTC) (type: truth; paradigms: science: attack)

Do you want to create content for a new branch page?: No Yes Do you want to create content for a new ovariable with data?: No Yes Do you want to create content for a new ovariable with a formula?: No Yes Content for a new branch page What was the branch name again?: Give a short name (no spaces!) for the ovariable that is the final outcome of the branch: Content for a new ovariable with data Give a short name (no spaces!) for an ovariable with data: Give a data table for the input variable: - paste table here - Cancel Give free-text rationale about what the intermediate variable is and how it is calculated.: Content for a new ovariable with formula Give a short name (no spaces!) to an ovariable with a formula.: What are the input (parent or upstream) ovariables for this ovariable? Format c('var1', 'var2'): What is the formula that defines the calculations with the parents?: Give free-text rationale about what the outcome variable is and how it is calculated.: + Show code- Hide code library(OpasnetUtils) t2bdata <- "" #wiki_username <- "Jouni" #branchname <- "Garden tower branch" #PAGEID <- "1234" #output.ovariable <- "gardentower" #intermediate.ovariable <- "vegeproduction" #t2bdata <- "tobefilled" #dependencies <- c("vegeproduction", "wasteproduction", "waterconsumption") #output.rationale <- "Garden tower composts kitchen waste and turns it into soil." #intermediate.rationale <- "vegeproduction is the amount of vegetables produced in the garden tower. It is a critical benefit that reduces consumption of other products and thus footprint." #<t2b name='Tire inflation parameters' index='Parameter,Unit' obs='Result' unit='-'> #Pressure drop per temperature drop|PSI /10°F|0.5:1:2 #Fuel economy sensitivity|% /PSI|0.4 #Miles driven per year|mi /a|10000 #Fuel consumption|gl /mi|0.04 #Pressure deficit|PSI|2 #</t2b> if(newpage) { newpage <- paste("[[Category:Life cycle assessment]] [[Category:Handprinter]] {{method|moderator=", wiki_username, "}} ", "'''{{PAGENAME}}''' is a '''branch''' of Handprinter. This page is a test case how to manage branches. == Question == How to estimate the life-cycle impacts of '''{{PAGENAME}}'''? == Answer == @rcode embed=1 variables=' name:PAGEID|type:hidden|default:`{{PAGEID}}` '> # This is code Op_enXXXX/ on page [[", branchname, "]] library(OpasnetUtils) objects.latest(paste('Op_en', PAGEID, sep = ''), code_name = '", output.ovariable0, "') ", output.ovariable0, " <- EvalOutput(", output.ovariable0, ") oprint(summary(", output.ovariable0, ")) @/rcode> == Rationale == ", sep = "") } if(newformula) { newformula <- paste( "=== ", output.ovariable, " === @rcode name='", output.ovariable, "' embed=1 label='Initiate ", output.ovariable, " (for developers only)' variables=' name:PAGEID|type:hidden|default:`{{PAGEID}}` '> # This is code Op_enXXXX/", output.ovariable, " on page [[", branchname, "]] library(OpasnetUtils) ", output.ovariable, " <- Ovariable('", output.ovariable, "', dependencies = data.frame( Name = c('", paste(dependencies, collapse = "', '"), ") ), formula = function(...) { ", formula, " } ) rm(wiki_username) objects.store(list=ls()) cat('Objects', ls(), 'stored.\n') @/rcode> ", output.rationale, " ", sep = "") } if(newdata) { newdata <- paste( "=== ", intermediate.ovariable, " === ", t2bdata, "@rcode name='", intermediate.ovariable, "' embed=1 label='Initiate ", intermediate.ovariable, " (for developers only)'> # This is code Op_enXXXX/", intermediate.ovariable, " on page [[", branchname, "]] library(OpasnetUtils) ", intermediate.ovariable, " <- Ovariable('", intermediate.ovariable, "', ddata = 'Op_en{{PAGEID}}', subset = ", intermediate.ovariable, ") objects.store(", intermediate.ovariable, ") cat('", intermediate.ovariable, "stored.@@') ", "@/rcode> ", intermediate.rationale, " ", sep = "") } finale <- paste( "== See also == * [[Handprinter]] * [[Developing branches]] ", "== Related files == ", sep = "") text1 <- "" if(!is.logical(newpage)) text1 <- paste(text1, newpage, collapse = "") if(!is.logical(newdata)) text1 <- paste(text1, newdata, collapse = "") if(!is.logical(newformula)) text1 <- paste(text1, newformula, collapse = "") if(!is.logical(newpage)) text1 <- paste(text1, finale, collapse = "") text2 <- strsplit(text1, split = "\n")[[1]] text2 <- gsub("@@", "\n", text2) text2 <- gsub("@", "<", text2) text2 <- data.frame(Pagetemplate = text2) oprint(text2, include.rownames = FALSE)