sliderv            package:TeachingDemos            R Documentation

_C_r_e_a_t_e _a _T_k _s_l_i_d_e_r _w_i_n_d_o_w

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

     Create a Tk slider window with the sliders positioned vertically
     instead of horizontally.

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

     sliderv(refresh.code, names, minima, maxima, resolutions, starts, title = "control", no = 0, set.no.value = 0)

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

refresh.code: Function to be called when sliders are moved. 

   names: Labels for the sliders. 

  minima: Vector of minimum values for the sliders. 

  maxima: Vector of maximum values for the sliders. 

resolutions: Vector of resolutions for the sliders. 

  starts: Vector of starting values for the sliders. 

   title: Title to put at the top of the Tk box. 

      no: The number of the slider whose value you want. 

set.no.value: Vector of length 2 with the number of slider to set and
          the new value. 

_D_e_t_a_i_l_s:

     This is a variation on the 'slider' function with vertical sliders
     arranged in a row rather than horizontal sliders arranged in a
     column.

     This is based on an early version of 'slider' and therefore does
     not have as many bells and whistles (but sometimes fits the screen
     better).

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

     Returns the value of a given slider when used as: 'slider(no=i)'.

_N_o_t_e:

     You can move the slider in 3 different ways:  You can left click
     and drag the slider itself, you can left click in the trough to
     either side of the slider and the slider will move 1 unit in the
     direction you clicked, or you can right click in the trough and
     the slider will jump to the location you clicked at.

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

     Greg Snow greg.snow@intermountainmail.org

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

     'slider'

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

     ## Not run: 
     face.refresh <- function(...){
             vals <- sapply(1:15, function(x) slider(no=x))
             faces( rbind(0, vals, 1), scale=F)
     }

     sliderv( face.refresh, as.character(1:15), rep(0,15), rep(1,15), 
             rep(0.05, 15), rep(0.5,15), title='Face Demo')
     ## End(Not run)

