R/utils_shinyInput.R

Defines functions shinyInput

shinyInput <- function(FUN, len, id, click_data,...) {
  inputs <- character(len)
  for (i in seq_len(len)) {
    inputs[i] <- as.character(FUN(paste0(id, click_data[i]), ...))
  }
  inputs
}

Try the subscreen package in your browser

Any scripts or data that you put into this service are public.

subscreen documentation built on April 3, 2025, 8:55 p.m.