Как запустить блок кода, например, используя операторы if и else или замену оператора if-else

Question

R нуб здесь снова.Я хочу подсказать пользователю и, по выбору пользователя, хочу выполнить код блока.Например,

install.packages("igraph")
library("igraph")

links <- read.csv("<path>.csv", header=T, as.is=T)
nodes <-read.csv("<path>.csv", header=T, as.is=T)


answer <- readline(prompt = " Enter s for straight c for curved lines ")
if (answer == "s") {
    variable <- graph_from_data_frame(d=links, vertices=nodes, directed=T)
    variable
    plot(variable, edge.arrow= .5, vertex.frame.color = "#ffffff")

} else {
    variable <- graph_from_data_frame(d=links, vertices=nodes, directed=T)
    variable
    plot(variable, edge.arrow= .5, edge.curved=.4, vertex.frame.color = "#ffffff")
}

Данные для узлов:

id,name,node.type,node.group p1,Pi,Protein,1 p2,PPi,Protein,1 p3,SAM,Protein,1 p4,L-Met,Protein,1 p5,H2O,Protein,1 p6,SAH,Protein,1 p7,Ade-Rib,Protein,1 p8,LHCYS,Protein,1 p9,tetrahydropteroyltri-L-glutamate,Protein,1 p10,methyltransferase,Protein,1 p11,ATP,Protein,1 p12,Reaction 1,Reaction,2 p13,Reaction 2,Reaction,2 p14,Reaction 3,Reaction,2

Данные для ребер:

from,to,type p13,p1,hyperlink p13,p2,hyperlink p13,p3,hyperlink p4,p13,hyperlink p5,p13,hyperlink p11,p13,hyperlink p12,p10,hyperlink p12,p4,hyperlink p8,p12,hyperlink p9,p12,hyperlink p6,p14,hyperlink p14,p7,hyperlink p5,p14,hyperlink p14,p8,hyperlink

Это не сработало для меня, переключение дел тоже не сработало.Есть ли решение для такой проблемы?

Я почти уверен, что не допустил ошибок в скобках.

Answer 1

Если проблема в том, что ваш код не запускается сразу после запроса, то я думаю, что хорошим решением было бы заключить ваш код в функцию.

trial <- function(){
  answer <- readline(prompt = " Enter s for straight c for curved lines ")
  if (answer == "s") {
    variable <- graph_from_data_frame(d=links, vertices=nodes, directed=T)
    variable
    print(plot(variable, edge.arrow= .5, vertex.frame.color = "#ffffff"))

  } else {
    variable <- graph_from_data_frame(d=links, vertices=nodes, directed=T)
    variable
    print(plot(variable, edge.arrow= .5, edge.curved=.4, vertex.frame.color = "#ffffff"))
  }
}

trial()