checkProtection          package:goCluster          R Documentation

_A _f_u_n_c_t_i_o_n _t_o _p_r_o_t_e_c_t _i_n_t_e_r_m_e_d_i_a_t_e _r_e_s_u_l_t_s _f_r_o_m _b_e_i_n_g _o_v_e_r_w_r_i_t_t_e_n

_D_e_s_c_r_i_p_t_i_o_n:

     This function can be called by a method that will overwrite object
     data. 'checkProtection' will retrieve the list in the 'reset'-slot
     of the given object. The names of elements in this list will be
     considered as slot names and each list element will be compared
     against the value in the corresponding slot. If the length of any
     such pairs differs an error message will be issued.

_U_s_a_g_e:

     checkProtection(object, method)

_A_r_g_u_m_e_n_t_s:

  object: The object to check

  method: A string that names the method trying to overwrite data. It
          will be included in the error message.

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

     An error message in case the calling method would overwrite
     already calculated values.

_A_u_t_h_o_r(_s):

     Gunnar Wrobel, <URL: work@gunnarwrobel.de>, <URL:
     http://www.gunnarwrobel.de>.

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

     'clusterModule-class'.

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

     data(benomylsetupsmall)
     a <- new("goCluster")

     ## No error since the object has not been calculated yet
     checkProtection(a@algo,"test")

     execute(a) <- benomylsetupsmall

     ## This results in an error since the object contains calculated data
     error <- try(checkProtection(a@algo,"test"), silent = TRUE)
     error

     ## No error since no visualization method has been chosen
     checkProtection(a@visu,"test")

