R/GettingStarted.R

In BrailleR: Improved Access for Blind Users

GetGoing =
    function() {
      if (interactive()) {
        .AnswerQuestionsMSG()

        .AuthorNameMSG()
        name = readLines(n = 1)
        if (name != "") SetAuthor(name)

        .PValueDigitsMSG()

        digits = as.numeric(readLines(n = 1))
        if (!is.na(digits)) SetSigLevel(digits)

        .DefaultSignificanceMSG()
       alpha = as.numeric(readLines(n = 1))
        if (!is.na(alpha)) SetSigLevel(alpha)

        message(
            "\nThe following questions are yes/no questions. Use T or TRUE for yes, F or FALSE for no.")

        message(
            "\nDo you want to process R scripts and Rmd files outside R? (TRUE)")
        batch = as.logical(readLines(n = 1))
        if (is.na(batch)) batch = TRUE
        if (batch) MakeBatch()

        message(
            "\nDo you want to incorporate output from R into LaTeX files? (TRUE)")
        latex = as.logical(readLines(n = 1))
        if (is.na(latex)) latex = TRUE
        if (latex) {
          LatexOn()
        } else {
          LatexOff()
        }

        message(
            "\nDo you want to automatically open HTML files of R output? (TRUE)")
        view = as.logical(readLines(n = 1))
        if (is.na(view)) view = TRUE
        if (view) {
          ViewOn()
        } else {
          ViewOff()
        }

        message(
            "\nBrailleR assumes you are blind. Is this how you will work? (TRUE)")
        vi = as.logical(readLines(n = 1))
        if (is.na(vi)) vi = TRUE
        if (vi) {
          GoBlind()
        } else {
          GoSighted()
        }


        #end interactive section.
      } else {
        .InteractiveOnly()
      }
      return(invisible(NULL))
    }