This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
df.columns = df.columns.set_levels([df_title], level=0) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
remotes::install_github("jozefhajnala/languageserversetup") | |
install.packages("languageserversetup") | |
languageserversetup::languageserver_install() | |
languageserversetup::languageserver_add_to_rprofile() |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
bind_rows(list_of_dataframes, .id = "column_label") |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
unregister_dopar <- function() { | |
env <- foreach:::.foreachGlobals | |
rm(list=ls(name=env), pos=env) | |
} | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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) { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
vroom::default_locale() | |
vroom::locale("es", encoding = "Latin1") |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
apply(is.na(df), 2, which) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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() |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
NewerOlder