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.

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 Opasnet.

If you need more ovariables for your branch model, you can simply rerun this code. Just remember to copy-paste the previous content first, as it will be replaced by the new ovariables. Each ovariable has its own sub-heading under the heading "Rationale".

Do you want to create content for a new branch page?:

Do you want to create content for a new ovariable with data?:

Do you want to create content for a new ovariable with a formula?:

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 (under construction!):
- 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)

Step 3. Finalize the page

In step 2, page content is created. However, there is a tiny error that has not yet been fixed. In the text produced, there is an extra space in tags "< rcode" and "< /rcode". You should find and replace them with "<rcode" and "</rcode", respectively. Then you can save your page.

Related files