R 如何运行一段代码，如使用if和else语句或替换if-else语句

又来了。 我想提示用户，并根据用户的选择，我想执行一个块代码。 以身作则

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")
}

install.packages（“igraph”）
图书馆（“igraph”）
links如果问题是您的代码没有在提示后立即运行，那么我认为一个好的解决方案是将代码包装到函数中

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()

trial我在使用你的代码时没有遇到任何错误（尽管我不得不更改“a”中的打印选项）@CainãMaxCouto Silva打印一些东西不会导致错误，互联网上有很多if-else语句的示例，可以打印一些东西，但我想做的是执行一个类似示例中的块代码。我不想打印任何东西，我知道。我之所以这么说是因为我没有变量“links”和“nodes”，它们应该与您的代码一起工作。由于这个原因，我不得不打印一些东西，看看代码是否有效。成功了@CainãMaxCouto Silva用数据更新了问题，并完成了if-else语句只需注意：如果你在脚本开始时不调用库，你会讨厌你自己。当我运行每一行代码时，它甚至都不会提示，它有两个install.packages以上只是你的代码包装在一个函数中，当你调用这个函数时，它就工作了。我添加了一个打印语句，只是为了确保它能打印到设备上。谢谢，你是个救命恩人！