Skip to content

Instantly share code, notes, and snippets.

View verajosemanuel's full-sized avatar
💭
RRRRRRRRRRRRRRRR

Jose Manuel Vera verajosemanuel

💭
RRRRRRRRRRRRRRRR
View GitHub Profile
@verajosemanuel
verajosemanuel / stack_no_discard.R
Last active November 14, 2017 09:34
stack #df not discarding columns in #R #plyr #wrangling
library(plyr)
df.stacked <- rbind.fill(df1, df2)
@verajosemanuel
verajosemanuel / rownames_to_columns.R
Last active November 14, 2017 09:44
#rows names to columns in #R #df #wrangling
library(tibble)
df <- rownames_to_column(df, var = "id")
@verajosemanuel
verajosemanuel / excel_time_number_to_gmt.R
Last active February 15, 2019 10:48
#Excel time to GMT time in #R #timeseries #wrangling
df$date_d1 <- as.character(as.Date(as.POSIXct((as.numeric(as.character(df$date_d1)) * 86400), origin = "1899-12-30", tz = "GMT")))
# using janitor
janitor::excel_numeric_to_date(17933)
@verajosemanuel
verajosemanuel / head-tail.R
Last active November 14, 2017 09:32
head-tail #function for dataframes. Place it in .Rprofile to be available anytime in #Rstudio
ht <- function(d) rbind(head(d,5), tail(d,5))
@verajosemanuel
verajosemanuel / perl_neg_pos_newline.sh
Last active November 14, 2017 09:31
#perl inserts a newline between negative + positive #regex pattern in #bash
perl -pe 's/NOTNEEDED\.\s*WORD(*SKIP)(*F)|WORD\./\n$&/g'
# SAMPLE
NOTNEEDED. WORD. 8 de 2007/04/12 excepción definitiva
1ª Concesión de derechos en Londres WORD. 3901 de 2019/10/01 UTC
# OUTPUT
NOTNEEDED. WORD. 8 de 2007/04/12 excepción definitiva
@verajosemanuel
verajosemanuel / sed_newline_neg_pos_regex.sh
Last active November 14, 2017 09:31
#sed insert newline between negative + positive pattern #bash #regex
sed -r 's/([^.] )(WORD\. )/\1\n\2/g'
# sample
NOTNEEDED. WORD. 8 de 2007/04/12 Definitiva
1ª Conferencia mundial en londres WORD. 3901 de 2009/10/01 UTC
# output
NOTNEEDED. WORD. 8 de 2007/04/12 Definitiva
@verajosemanuel
verajosemanuel / find_rename.sh
Last active November 14, 2017 09:31
#find and #rename supressing double dots or spaces in #files names #bash
find -name "*..*" -type f | rename 's/\.\././g' # double dot
find -name "* *" -type f | rename 's/ /_/g' # spaces
@verajosemanuel
verajosemanuel / add_tab_after_n.sh
Last active November 14, 2017 09:30
add tab after character 10 with #sed #bash #regex
sed -e 's/./&\t/11'
@verajosemanuel
verajosemanuel / line_counter.sh
Last active November 14, 2017 09:30
line count in #bash
# first 4 digits right justified with zero padding
nl -nrz -w4 file.txt
# end of line
awk '{ print $0, NR }'
# cat (no padding)
cat -n file.txt
# grep (no padding)
@verajosemanuel
verajosemanuel / remove_before.sh
Last active November 14, 2017 09:29
#sed remove all before pattern in #bash #regex
sed -nr '/pattern/,$p'