Подпрограммы и запущенные файлы сценариев

Question

У меня длинная программа (около 3500 строк).Это преимущественно я 3 подраздела.В настоящее время все они запускаются один за другим.Я хотел бы, чтобы они выполнялись условно в зависимости от ответов пользователя на 3 поставленных пользователю вопроса.

Я немного не склонен иметь 3 отдельных файла скриптов для кодов для этих 3 подразделов.Я предпочел бы иметь возможность использовать «подпрограммы» и вызывать соответствующие в зависимости от ответов пользователя.

Я пытался найти информацию в Интернете о том, как писать и вызывать их в контексте RStudio, ноне смог добиться большого успеха.Кто-то может, пожалуйста, посоветовать, как мне поступить?

Вот чего я пытаюсь достичь: -

fetchsourcedatamsg <- paste0("Do you want to fetch the source data from the system?")
fetchsourcedatausrans <- dlg_message(fetchsourcedatamsg, "yesno")$res
if (fetchsourcedatausrans == "yes")
  {runmultiplemodelsmsg <- paste0("Do you want to run the process to generate multiple models?")
  runmultiplemodelusrans <- dlg_message(runmultiplemodelsmsg, "yesno")$res       
  Call Subroutine1
  if (runmultiplemodelusrans == "yes")
    {runselectedforecastmodelsmsg <- paste0("Do you want to then run the 
    forecast model using the previously selected model parameters?")
    runselectedforecastmodelsans <- dlg_message(runselectedforecastmodelsmsg, "yesno")$res
    Call Subroutine2
    if (runselectedforecastmodelsans == "yes")
      {Call Subroutine3
      }
    } else {Call Subroutine3
           }
  } else {Call Subroutine3
         }

Пожалуйста, дайте мне знать, если есть что-то, что я могу предоставитьчтобы помочь вам, чтобы помочь мне.

С уважением

Дипак