Helper functions for RcmdrPlugin.biostat.

Source: R/bs_checkboxes.R, R/bs_entry.R, R/bs_radiobuttons.R, and 10 more

Helper functions for package RcmdrPlugin.biostat.

# S3 method for class 'bs_checkboxes'
get_values(obj, ..., simplify = TRUE, rm_names = simplify)

# S3 method for class 'bs_checkboxes'
set_values(obj, values, ...)

# S3 method for class 'bs_entry'
values(x) <- value

# S3 method for class 'bs_entry'
tclvalue(x) <- value

# S3 method for class 'bs_radiobuttons'
get_values(obj, ...)

# S3 method for class 'bs_radiobuttons'
set_values(obj, values, ...)

bs_text(parent, ..., label = "", undo = TRUE, context_menu = FALSE)

# S3 method for class 'bs_tk_buttonset'
tk_activate(obj, ..., .which = NULL)

# S3 method for class 'bs_tk_buttonset'
tk_normalize(obj, ..., .which = NULL)

# S3 method for class 'bs_tk_buttonset'
tk_disable(obj, ..., .which = NULL)

# S3 method for class 'bs_tk_buttonset'
tk_get_state(obj, ..., .out = "list")

bs_check_boxes(
  window = top,
  frame = stop("frame not supplied"),
  boxes = stop("boxes not supplied"),
  initialValues = NULL,
  labels = stop("labels not supplied"),
  title = NULL,
  ttk = FALSE,
  commands = list()
)

radioButtons_horizontal(
  window = top,
  name = stop("name not supplied"),
  buttons = stop("buttons not supplied"),
  values = NULL,
  initialValue = ..values[1],
  labels = stop("labels not supplied"),
  title = NULL,
  title.color = NULL,
  right.buttons = FALSE,
  command = function() {
 },
  sticky_title = "w",
  sticky_buttons = "e"
)

get_size(obj, ...)

get_values(obj, ...)

set_values(obj, values, ...)

get_selection(obj, ...)

get_selection_length(obj, ...)

set_selection(obj, sel, ...)

add_selection(obj, sel, ...)

get_xview(obj, ...)

set_xview(obj, ...)

get_yview(obj, ...)

set_yview(obj, ind, ...)

tk_yview_moveto(obj, ...)

tk_see(obj, ind, ...)

tk_get_n_lines(obj)

tk_bind_row_swap(obj)

# S3 method for class 'bs_tk_widget'
print(x, ...)

variables_with_unique_values()

list_summaries_Models(envir = .GlobalEnv, ...)

run_in_rstudio(command, ...)

str_glue_eval(
  ...,
  envir = parent.frame(),
  .sep = "",
  .open = "{",
  .close = "}",
  envir_eval = envir,
  envir_glue = envir
)

eval_text(x, envir = parent.frame(), ...)

style_cmd(command, indent_by = 2, ...)

try_command(x)

is_try_error(obj)

function_not_implemented()

gettext_ezr(...)

gettext_bs(...)

s2u(str)

u2s(str)

spaces(n, symbol = " ")

logger_error(command = NULL, error_msg = NULL)

swap(x, i, j)

swap_rows(x, i, j)

correct_row_index(i, n_max)

clean_str(str, transliterations = "Latin-ASCII", ...)

get_obj_names(
  include_class = NULL,
  exclude_class = NULL,
  include2_class = NULL,
  all.names = TRUE,
  envir = globalenv()
)

unique_obj_names(
  names,
  prefix = "",
  suffix = "",
  list_of_choices = objects(all.names = TRUE, envir = .GlobalEnv),
  all_numbered = FALSE
)

unique_df_name(
  names = active_dataset_0(),
  prefix = "",
  suffix = "",
  list_of_choices = objects(all.names = TRUE, envir = .GlobalEnv),
  all_numbered = FALSE
)

unique_file_name(
  name = "file",
  dir = getwd(),
  list_of_choices = dir(dir, all.files = TRUE),
  all_numbered = FALSE
)

unique_colnames(
  names = "",
  prefix = "",
  suffix = "",
  list_of_choices = listVariables(),
  all_numbered = FALSE
)

unique_colnames_2(
  names = "",
  prefix = "",
  suffix = "",
  list_of_choices = listVariables(),
  all_numbered = TRUE
)

safe_names(str)

path_truncate(path, max_length = 30)

show_error_messages(
  message,
  popup_msg = message,
  title = "Error",
  parent = CommanderWindow()
)

is_not_valid_name(name, parent = CommanderWindow())

is_empty_name(name, which_name = "name", parent = CommanderWindow())

is_not_empty_name(
  name,
  which_name = "name",
  parent = CommanderWindow(),
  article = "a"
)

variable_is_not_selected(
  obj,
  obj_type = "variable",
  parent = CommanderWindow(),
  article = "a"
)

object_is_not_selected(
  obj,
  obj_type = "object",
  parent = CommanderWindow(),
  article = "an"
)

are_not_valid_names(name, parent = CommanderWindow())

forbid_to_replace_variable(name, parent = CommanderWindow())

forbid_to_replace_variables(name, parent = CommanderWindow())

forbid_to_replace_object(name, envir = .GlobalEnv, parent = CommanderWindow())

forbid_to_replace_file(name, parent = CommanderWindow())

show_code_evaluation_error_message(
  parent = CommanderWindow(),
  add_msg = "",
  add_note = ""
)

dataset_not_persent(parent = CommanderWindow())

active_dataset_not_persent(parent = CommanderWindow())

nonFactorsP(n = 1)

class_ggplot_P(n = 1)

list_objects_ggplot(envir = .GlobalEnv)

objects_in_env_P(n = 1, envir = .GlobalEnv, ...)

variables_with_unique_values_P(n = 1)

gg_objects_exist(n = 1)

gg_lastplot_exists()

is_commander_open()

rcmdr_restart_commander()

command_restart_rs_session()

command_rcmdr_close()

command_rcmdr_close_and_update_cran()

command_rcmdr_close_r()

is_console_output()

command_rcmdr_use_1_window()

command_rcmdr_use_3_windows()

command_rcmdr_set_output_mode(console.output = NULL)

# S3 method for class 'tk2frame'
print(x, ...)

rcmdr_read_log_window()

rcmdr_read_rmd_window()

rcmdr_read_rmd_window()

rcmdr_read_output_window()

rcmdr_read_messages_window()

is_biostat_mode()

use_relative_path()

use_absolute_path()

get_use_relative_path()

set_biostat_mode()

get_values_combobox(combobox)

set_values_combobox(combobox, values, ...)

get_selection_ind_combobox(combobox)

get_selection_combobox(combobox)

# S3 method for class 'combobox'
get_size(obj, ...)

# S3 method for class 'tk2combobox'
get_size(obj, ...)

# S3 method for class 'combobox'
get_selection(obj, ...)

# S3 method for class 'combobox'
set_selection(obj, sel, ...)

# S3 method for class 'combobox'
get_values(obj, ...)

# S3 method for class 'combobox'
set_values(obj, values, ...)

# S3 method for class 'combobox'
tk_activate(obj, ...)

# S3 method for class 'combobox'
tk_normalize(obj, ...)

# S3 method for class 'combobox'
tk_read_only(obj, ...)

# S3 method for class 'combobox'
tk_disable(obj, ...)

# S3 method for class 'combobox'
tk_get_state(obj, ...)

ok_cancel_help(
  window = top,
  helpSubject = NULL,
  model = FALSE,
  reset = NULL,
  apply = NULL,
  helpPackage = NULL,
  on_help = NULL,
  close_on_ok = FALSE,
  reset_location = FALSE,
  sticky = "w",
  ok_label = "OK",
  apply_label = "Apply",
  reset_label = "Reset",
  after_apply_fun = do_nothing,
  after_apply_success_fun = do_nothing,
  before_cancel_fun = do_nothing
)

cursor_set_busy(frame = NULL)

cursor_set_idle(frame = NULL)

tk_yview.default(obj, ind, ...)

tk_xview.default(obj, ind, ...)

tclvalue_lgl(x)

tclvalue_int(x)

tclvalue_chr(x, trim = TRUE, ...)

Arguments

...

tclvalue_chr() passes these parameters to base::trimws().

frame

Tcl/Tk frame object.

str

sring

trim

(logical) If TRUE, function base::trimws() will be applied.