alek alekrutkowski

## webR.download.file.R
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

## infix_operators.R
`%not in%` <- Negate(`%in%`)

`%without%` <- setdiff

`%++%` <- paste0

`%is%` <- identical

## insheet_eurostat.ado
// Usage example:
// Either the parameter 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:
// Go to e.g. https://ec.europa.eu/eurostat/databrowser/view/nama_10_gdp/default/table?lang=en and
// do your selections by clicking first on the circle with plus (+) and then click
// ⤓ Download > ⚙ Options and other formats > Select file format: Text (.tsv, .csv), and Select: Data scope = "Data on this page only" and Compressed = No > Click: [⧉ Copy Link] button
//     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
// To use it like other commands, put it in your "personal" folder/directory
// (see: https://www.stata.com/support/faqs/programming/personal-ado-directory/ and https://www.stata.com/help.cgi?personal).

## index.html
<!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">

## app.R
options(shiny.sanitize.errors = FALSE)


library(shiny)
library(data.table)
library(eurodata)
library(magrittr)

MetaBase <-
  importMetabase() %>%

## listWithoutEmptyArgs.R
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)

## memory_address.R
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

## rename_all_jpeg_files_in_folder_to_fujifilm_instax_format.py
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}")

## async_mirai.R
### 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 <-

## data.table_filtering_by_groups.R
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),
	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
	`%not in%` <- Negate(`%in%`)

	`%without%` <- setdiff

	`%++%` <- paste0

	`%is%` <- identical
	// Usage example:
	// Either the parameter 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:
	// Go to e.g. https://ec.europa.eu/eurostat/databrowser/view/nama_10_gdp/default/table?lang=en and
	// do your selections by clicking first on the circle with plus (+) and then click
	// ⤓ Download > ⚙ Options and other formats > Select file format: Text (.tsv, .csv), and Select: Data scope = "Data on this page only" and Compressed = No > Click: [⧉ Copy Link] button
	// 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
	// To use it like other commands, put it in your "personal" folder/directory
	// (see: https://www.stata.com/support/faqs/programming/personal-ado-directory/ and https://www.stata.com/help.cgi?personal).
	<!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">
	options(shiny.sanitize.errors = FALSE)


	library(shiny)
	library(data.table)
	library(eurodata)
	library(magrittr)

	MetaBase <-
	importMetabase() %>%
	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)
	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
	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}")
	### 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 <-
	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),