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
webR.download.file <- function(url, destfile) | |
download.file(paste0("https://corsproxy.io/?",URLencode(url)), | |
destfile) | |
# See https://github.com/r-wasm/webr/issues/252#issuecomment-1690142510 |
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
`%not in%` <- Negate(`%in%`) | |
`%without%` <- setdiff | |
`%++%` <- paste0 | |
`%is%` <- identical |
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
// Usage example: | |
// Either the prameter is Eurostat's "online data code": | |
// insheet_eurostat nama_10_gdp | |
// or the parameter is the custom URL generated with Eurostat GUI top right corner: | |
// Download > Options and other formats > Select file format: Text (.tsv, .csv) and Select: Compressed = No | |
// insheet_eurostat https://ec.europa.eu/eurostat/api/dissemination/sdmx/2.1/data/nama_10_gdp/A.CP_MEUR.B1G+P3.EU27_2020+BE+BG+CZ+DK/?format=TSV&startPeriod=2021&endPeriod=2023 | |
prog insheet_eurostat | |
qui des | |
if `r(k)'!=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
<!DOCTYPE html> | |
<html lang="en"> | |
<head> | |
<meta charset="UTF-8"> | |
<meta name="viewport" content="width=device-width, initial-scale=1.0"> | |
<title>Keyboard Shortcut Cheatsheet Generator</title> | |
<link rel="stylesheet" href="styles.css"> | |
</head> | |
<body> | |
<div class="container"> |
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
options(shiny.sanitize.errors = FALSE) | |
library(shiny) | |
library(data.table) | |
library(eurodata) | |
library(magrittr) | |
MetaBase <- | |
importMetabase() %>% |
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
listWithoutEmptyArgs <- function(...) | |
eval(Filter(\(x) !identical(as.character(x), "") || identical(x,""), | |
bquote(.(substitute(list(...)))))) | |
# > list(a=1,,b=2:10) | |
# Error in list(a = 1, , b = 2:10) : argument 2 is empty | |
# > listWithoutEmptyArgs(a=1,,b=2:10) | |
# list(a = 1, b = 2:10) |
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
memoryAddress <- function(x) | |
strsplit(capture.output(.Internal(inspect(x))),split=" ")[[1]][1] | |
### Usage examples | |
# > abc <- c(1,2,3,10,11) | |
# > xyz <- abc | |
# > memoryAddress(abc)==memoryAddress(xyz) | |
# [1] TRUE | |
# > xyz <- abc+1 |
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
import os | |
import random | |
import string | |
while True: | |
folder_path = input("Please enter the folder path: ") | |
# Check if the path is a valid directory | |
if os.path.isdir(folder_path): | |
print(f"Valid directory: {folder_path}") |
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
### Usage: | |
# a = 1; b = 2 | |
# my_result <- eval.async(a+b) | |
### when mirai::unresolved(my_result) == FALSE | |
### you can use my_result$data | |
### do.call.async can be used like do.call | |
eval.async <- |
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
library(data.table) | |
library(magrittr) | |
## Pattern: | |
# DT[DT[,row_filtering_expression, by=grouping_column][[2]]] | |
## or generally | |
# DT[DT[,row_filtering_expression, by=.(grouping_col1,grouping_col2,etc.)][[number_of_grouping_cols+1]]] | |
## Example: | |
data.table(a=c(1,1,1,2,2), |
NewerOlder