

_I_s _R _r_u_n_n_i_n_g _i_n_t_e_r_a_c_t_i_v_e_l_y ?

     interactive()

_V_a_l_u_e:

     This function returns `TRUE' when R is being used
     interactively and `FALSE' when not.

_S_e_e _A_l_s_o:

     `source', `.First'

_E_x_a_m_p_l_e_s:

      .First <- function() if(interactive()) x11()

