Showing content from http://cran.rstudio.com/web/packages/shiny/../featureflag/vignettes/define-custom-feature-flags.R below:
## ----include = FALSE---------------------------------------------------------- knitr::opts_chunk$set( collapse = TRUE, comment = "#>" ) ## ----------------------------------------------------------------------------- library(featureflag) create_odd_feature_flag <- function(number) { flag <- create_feature_flag() flag$number <- number class(flag) <- c("odd_feature_flag", class(flag)) flag } ## ----------------------------------------------------------------------------- is_odd_feature_flag <- function(feature_flag) { inherits(feature_flag, "odd_feature_flag") } ## ----------------------------------------------------------------------------- is_enabled.odd_feature_flag <- function(feature_flag) { stopifnot(is_odd_feature_flag(feature_flag)) (feature_flag$number %% 2) != 0 } ## ----------------------------------------------------------------------------- my_odd_feature_flag <- create_odd_feature_flag(number = 3) if (is_enabled(my_odd_feature_flag)) { print("The feature flag is on!") }
RetroSearch is an open source project built by @garambo
| Open a GitHub Issue
Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo
HTML:
3.2
| Encoding:
UTF-8
| Version:
0.7.4