search for: fun_nam

...de for full usage section:* .. \description{ Apply function over all spectra or a subset of spectra in a \code{Speclib}. } \Sexpr[echo=TRUE,results=rd,stage=install]{ hsdar:::.applyInHelp1("Speclib", usage = TRUE) } \arguments{ .. *Function .applyInHelp1* .applyInHelp1 <- function(fun_name, usage) { if (usage) { if ("simplify" %in% names(formals(base::apply))) { return(paste0("\\usage{\n", "\\S4method{apply}{", fun_name, "}(X, MARGIN, FUN, ..., simplify = TRUE)\n", "}"))...

...layer_internal.h" + +G_DEFINE_TYPE (SwfdecInterval, swfdec_interval, SWFDEC_TYPE_AS_OBJECT) + +static void +swfdec_interval_mark (SwfdecAsObject *object) +{ + guint i; + SwfdecInterval *interval = SWFDEC_INTERVAL (object); + + swfdec_as_object_mark (interval->object); + if (interval->fun_name) + swfdec_as_string_mark (interval->fun_name); + for (i = 0; i < interval->n_args; i++) { + swfdec_as_value_mark (&interval->args[i]); + } + + SWFDEC_AS_OBJECT_CLASS (swfdec_interval_parent_class)->mark (object); +} + +static void +swfdec_interval_dispose (GObject *obje...

(earlier I sent it as html by mistake). Hi, How can I get from C an object name used as a function argument? I have sample code in C that gives me access to the name of the function being called: SEXP xname(SEXP x) { const char *fun_name = CHAR(PRINTNAME(CAR(x))); x = CDR(x); const char *arg_name = isNull(TAG(x)) ? "" : CHAR(PRINTNAME(TAG(x))); Rprintf("fn_name: %s, arg_name: %s\n", fun_name, arg_name); return R_NilValue; } > xname <- function(...) invisible(.External(&...

...de{Speclib}. > > } > > > > \Sexpr[echo=TRUE,results=rd,stage=install]{ > > hsdar:::.applyInHelp1("Speclib", usage = TRUE) > > } > > > > \arguments{ > > .. > > > > *Function .applyInHelp1* > > .applyInHelp1 <- function(fun_name, usage) > > { > > if (usage) > > { > > if ("simplify" %in% names(formals(base::apply))) > > { > > return(paste0("\\usage{\n", > > "\\S4method{apply}{", fun_name, "}(X, MARGIN, F...

...ion over all spectra or a subset of spectra in a \code{Speclib}. > } > > \Sexpr[echo=TRUE,results=rd,stage=install]{ > hsdar:::.applyInHelp1("Speclib", usage = TRUE) > } > > \arguments{ > .. > > *Function .applyInHelp1* > .applyInHelp1 <- function(fun_name, usage) > { > if (usage) > { > if ("simplify" %in% names(formals(base::apply))) > { > return(paste0("\\usage{\n", > "\\S4method{apply}{", fun_name, "}(X, MARGIN, FUN, ..., > simplify = TRUE)\n&qu...

...names(ans) <- list(as.character(x2)) names(dimnames(ans)) <- "x" # always set to 'x' class(ans) <- "table" ans } table1D() also fixes some issues with base::table() that can be exposed by running the tests below. test_table <- function(FUN_NAME) { FUN <- match.fun(FUN_NAME) .make_target <- function(target_names, target_data) { ans <- array(target_data) dimnames(ans) <- list(as.character(target_names)) names(dimnames(ans)) <- "x" class(ans) <- "table&q...

? Sat, 17 Feb 2024 11:15:43 -0700 "Reed A. Cartwright" <racartwright at gmail.com> ?????: > I'm wrapping a function in R and I want to record all the arguments > passed to it, including default values and missing values. This is hard if not impossible to implement for the general case because the default arguments are evaluated in the environment of the function as it

...r_add_timeout (SWFDEC_PLAYER (context), timeout); } else { - player->intervals = g_list_remove (player->intervals, interval); + player->priv->intervals = g_list_remove (player->priv->intervals, interval); interval->timeout.callback = NULL; } if (interval->fun_name) { @@ -122,19 +122,19 @@ swfdec_interval_new (SwfdecPlayer *player, guint msecs, gboolean repeat, interval = g_object_new (SWFDEC_TYPE_INTERVAL, NULL); swfdec_as_object_add (SWFDEC_AS_OBJECT (interval), context, size); - interval->id = ++player->interval_id; + interval->id = ++p...

...{ timeout->timestamp += SWFDEC_MSECS_TO_TICKS (interval->msecs); swfdec_player_add_timeout (SWFDEC_PLAYER (context), timeout); } else { + player->intervals = g_list_remove (player->intervals, interval); interval->timeout.callback = NULL; } if (interval->fun_name) { commit f22f7bef8ab822c14a653c04680840150a97b4d0 Author: Pekka Lampila <pekka.lampila at iki.fi> Date: Wed Nov 14 14:10:26 2007 +0200 Make swfdec_movie_color_get_movie return null if object is null diff --git a/libswfdec/swfdec_color_as.c b/libswfdec/swfdec_color_as.c index 6bd1878...

...ab79eb8..f8fcc85 100644 --- a/libswfdec/swfdec_interval.c +++ b/libswfdec/swfdec_interval.c @@ -104,7 +104,7 @@ swfdec_interval_trigger (SwfdecTimeout * } } -guint +static guint swfdec_interval_new (SwfdecPlayer *player, guint msecs, gboolean repeat, SwfdecAsObject *object, const char *fun_name, guint n_args, const SwfdecAsValue *args) diff --git a/libswfdec/swfdec_listener.c b/libswfdec/swfdec_listener.c index da7a365..73c1bf9 100644 --- a/libswfdec/swfdec_listener.c +++ b/libswfdec/swfdec_listener.c @@ -79,7 +79,7 @@ swfdec_listener_add (SwfdecListener *lis return TRUE;...

...7 +42,7 @@ swfdec_interval_mark (SwfdecAsObject *object) SwfdecInterval *interval = SWFDEC_INTERVAL (object); swfdec_as_object_mark (interval->object); - swfdec_resource_mark (interval->resource); + swfdec_as_object_mark (SWFDEC_AS_OBJECT (interval->sandbox)); if (interval->fun_name) swfdec_as_string_mark (interval->fun_name); for (i = 0; i < interval->n_args; i++) { @@ -64,10 +64,6 @@ swfdec_interval_dispose (GObject *object) swfdec_player_remove_timeout (SWFDEC_PLAYER (SWFDEC_AS_OBJECT (object)->context), &interval->timeout); interval-&g...