library(DiagrammeR)
#Input do usuário: a, b, d
a <- 10
b <- 5.5
d <- 6.5
###Função divide cria objetos ameixa, banana, damasco
divide<-function (x,y,z){
ameixa <<- x
banana <<- y*10
damasco <<- z*100}
###Função divide a partir dos valores do usuário: a, b, d
divide(a,b,d)
ab <<- ameixa*banana
ad <<- ameixa*damasco
###Cria fluxograma
grViz(diagram = "digraph flowchart {
#Fluxograma exibe valores inputados pelo usuário
node [color = none, style = filled, shape=square]
total [label= 'Input a = @@1']
total->1 [arrowhead=vee]
{rank = same; 1; total;}
node [color = none, style = filled, shape=square]
legenda [label= 'input b = @@2 \n input c = @@3']
1->legenda [arrowtail=vee] [arrowhead=vee] [dir=back]
{rank = same; 1; legenda;}
node [fontname = arial, shape = oval]
1 [label = '@@1']
node [color = lightblue, style = filled]
2 [label = '@@2']
node [color = grey, style = filled]
3 [label = '@@3']
node [color = red, style = filled]
4 [label = '@@4']
5 [label = '@@5']
6 [label = '@@6']
1->2 [xlabel='a vezes b'];
1->3 [label='a vezes d'];
3->4 [xlabel='20%'];
3->5 [label='30%']
3->6 [label='50%']
}
[1]: a
[2]: ab
[3]: ad
[4]: ad*0.2
[5]: ad*0.3
[6]: ad*0.5
")
###Fonte: https://towardsdatascience.com/r-visualizations-flow-charts-in-r-4cfa7f783872
###Fonte: https://rich-iannone.github.io/DiagrammeR/graphviz_and_mermaid.html
