Nothing
na_omit_selection <- function ( dat, varsToOmitIfNA) {
if ( length(varsToOmitIfNA)==0) {return(dat)}
dat <- makeDataFrame(dat)
allVar<- list(varsToOmitIfNA = varsToOmitIfNA)
allNam<- lapply(allVar, FUN=function(ii) {existsBackgroundVariables(dat = dat, variable=ii)})
datr <- as.data.frame ( na.omit(data.table::as.data.table(dat), cols = allNam[["varsToOmitIfNA"]]))
return(datr)}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.