Skip to content

Instantly share code, notes, and snippets.

View verajosemanuel's full-sized avatar
💭
RRRRRRRRRRRRRRRR

Jose Manuel Vera verajosemanuel

💭
RRRRRRRRRRRRRRRR
16 followers · 4 following
View GitHub Profile
@verajosemanuel
verajosemanuel / get_pandas_index_levels.py
Last active August 25, 2022 08:28
#python #index levels in #pandas
df.columns = df.columns.set_levels([df_title], level=0)
@verajosemanuel
verajosemanuel / languageserver.R
Created September 30, 2021 11:36
languageserver
remotes::install_github("jozefhajnala/languageserversetup")
install.packages("languageserversetup")
languageserversetup::languageserver_install()
languageserversetup::languageserver_add_to_rprofile()
@verajosemanuel
verajosemanuel / stack_list_df.R
Created August 24, 2021 10:59
#stack a #list of #dataframes
bind_rows(list_of_dataframes, .id = "column_label")
@verajosemanuel
verajosemanuel / error_parallell_conection.R
Created July 6, 2021 10:58
solve #connection #error using #multicore #parallell in #R
unregister_dopar <- function() {
env <- foreach:::.foreachGlobals
rm(list=ls(name=env), pos=env)
}
@verajosemanuel
verajosemanuel / ulauncher.log
Created May 9, 2021 08:36
2021-05-09 10:31:42,313 | DEBUG | ulauncher.utils.semver: __init__() | SemVer 3.0.0, False
2021-05-09 10:31:42,313 | DEBUG | ulauncher.utils.semver: format() | Range format >=2.0.0 <3.0.0
2021-05-09 10:31:42,313 | DEBUG | ulauncher.utils.semver: __init__() | SemVer 2.0.0, False
2021-05-09 10:31:42,314 | DEBUG | ulauncher.utils.semver: test() | Comparator, test 2.0.0, False
2021-05-09 10:31:42,314 | DEBUG | ulauncher.utils.semver: cmp() | cmp: >=
2021-05-09 10:31:42,314 | DEBUG | ulauncher.utils.semver: compare() | SemVer.compare 2.0.0 False 2.0.0
2021-05-09 10:31:42,314 | DEBUG | ulauncher.utils.semver: compare() | compare result 0
2021-05-09 10:31:42,316 | DEBUG | ulauncher.utils.semver: test() | Comparator, test 2.0.0, False
2021-05-09 10:31:42,317 | DEBUG | ulauncher.utils.semver: cmp() | cmp: <
2021-05-09 10:31:42,317 | DEBUG | ulauncher.utils.semver: compare() | SemVer.compare 2.0.0 False 3.0.0
@verajosemanuel
verajosemanuel / anonimizer.R
Last active April 30, 2021 12:30
anonimyze #dataframe in #R
anonym <- function(df) {
if (length(df) > 26) {
LETTERS <- replicate(floor(length(df) / 26), {
LETTERS <- c(LETTERS, paste(LETTERS, LETTERS, sep = ""))
})
}
names(df) <- paste(LETTERS[1:length(df)])
level.id.df <- function(df) {
level.id <- function(i) {
@verajosemanuel
verajosemanuel / vroom_set_locale.R
Created April 14, 2021 15:39
#vroom set #locale in #R
vroom::default_locale()
vroom::locale("es", encoding = "Latin1")
@verajosemanuel
verajosemanuel / find_any_na.R
Created March 3, 2021 09:10
#find any #NA in #dataframe in #R
apply(is.na(df), 2, which)
@verajosemanuel
verajosemanuel / stack_bind_from_files.R
Created March 3, 2021 08:53
#stack a #list of #dataframes from #files with #filename in #R
documents <- list.files("data/txt", full.names = T)
# using purr
words <- data_frame(file = documents) %>% mutate(text = map(file, read_lines)) %>% unnest()
# using old-skool apply
words2 <- data_frame(file = documents) %>% mutate(text = lapply(file, read_lines)) %>% unnest()
@verajosemanuel
verajosemanuel / add_xml_node.sh
Last active February 8, 2021 12:45
#add #xml #node to #files in #bash
for xml in OUT/*.txt; do sed -i '1 i\<xml>' $xml;done
for xml in OUT/*.txt; do sed -i -e '$a</xml>' $xml;done
# tidy
tidy -xml file.xml
# xmlstarlet
xmlstarlet -q fo -R file.xml