#This code generates object of type chunkdf. This object contains the database chunk together with all the necessary metadata.
#TODO: Nie zamierzam rozdzielać metadanych zmiennych bazy danych od samych cyferek. Mogę jednak oddzielić nazwę bazy danych i nazwę filtra.
#Muszę też zastanowić się nad formą przekazania bazy danych do obiektu, aby uzyskać maksymalnie kanoniczną bazę danych. Prawdopodobnie powinienem posortować
#nazwy zmiennych. Muszę też jakoś przekazać metadane filtra.
#Parameters: variable list, filter, dt (dt jako oddzielny plik lub inny task)
#Returns: chunkdf
get_chunkdf<-function(variables, filterstring=NULL, df) {
# browser()
if(!is.null(filterstring) && filterstring!='') {
# if('character' %in% class(filterstring)) {
# filterstring<-parse(text = filterstring)
# }
filterobj<-rlang::parse_quo(filterstring, env = parent.frame())
filterNA<-sum(is.na(dplyr::transmute(df, filter=!!filterobj)[[1]]))
chunkdf<-dplyr::filter(df, !!filterobj)
# chunkdf<-dplyr::filter(df, !! filterstring)
} else {
chunkdf<-df
filterNA<-0
}
chunkdf<-tibble::as_tibble(chunkdf)[variables]
return(list(chunkdf=tibble::as_tibble(chunkdf), filterNA=filterNA))
}
chunkdf<-get_chunkdf(variables, filterstring, df)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.