alekrutkowski

# For usage instructions scroll down

function Show-SelectizeDialog {
    [CmdletBinding()]
    param(
        [Parameter(Mandatory)]
        [AllowEmptyCollection()]
        [object[]] $Items,

        [string] $DisplayProperty,

alekrutkowski

See: https://en.wikipedia.org/wiki/Monty_Hall_problem

You can [run it in the browser](https://webr.r-wasm.org/latest/#code=eJydVc1u1DAQvnHIU4zaQ%2B1qm7JtuVQsCFXlREW1BXGgKPUmk8Sq115sb3dXlBNPwDv0yBtw5r0YO9m02z8VcvN4xt83M99Mfv640mKMv8ZG%2B0VWC6XS4dVE%2BPr3dm3GuD3DUTZ1aLdXHArhxZ9nl%2BuwdoyFqEwlc6HW4AKtk0YnSWHF7L1GeLkF5VTnnoxszhOA%2BWcnxhOFqdSeKdSVr%2BmiB33%2BJUksjs1FDHLoC1mWSVIRt5VXpprYFBy%2B0WOFMdaF2%2F7%2BLh1nUmupqyyYg7UlwaJbAF%2BHoZnqgtzpkNdG5th%2F1HEnOFq8QKGwyEaLLBYhhJB9iX%2F5Kh4a8uwmCX7rroXszEtc3tHZiXSouGlpKXMW3dbhwKjpWENolIMBOG%2BFx0qi248OZyde5ufgDfgaoZTW%2Bfa9M%2FKOLl2%2BvSZiiFsBHazQhRmrBZTWjGO481IpyJWhMlN4G72SapfQndLwa5cuuRbxZCZ9Xl%2Fj3KL53zgP1PYOgbzG%2FDyNJRy8ffPu5LBtNE6M9TCrJZFrC7uAmdHAPgw%2FHnIgLVEtPLAuaNmqFkmJyUQt2GlLgbf3g8G9UhAuvdHfe0h9T5J1%2BLRKR7pYshESD6PxdULzkTrEgr3Y293p84TinaiQbRwIlU%2BV8ISbpukGTyZoc9Q%2BM2VGfMK0EI3%2Bfv85fQ2nln%2BYtJZlYVIaZ8XsSOqiB8JWQXVZuA1qyo06QqEda90p9TmH%2BSa9ydkNLsdoIWCDKSFijxZdSvuBmg1L4BZBniShAEfGIgHpXDoE0iiUwnl6r9swk6D41fXy%2BHKZKLFYCXhoh4RDeP16HTRSvWPulkE0tyurue5BHjZBrw

alekrutkowski

Sub CallPlumberAPI()
    Dim SERVER_URL As String
    Dim xmlhttp As Object
    Dim ws As Worksheet
    Dim inputRange As Range, dataRange As Range, outputRange As Range
    Dim cellAddress As String, rCode As String, outputAddress As String
    Dim i As Long, j As Long
    Dim tsvData As String, processedData As String
    Dim outputData() As String, outputRow() As String
    

alekrutkowski

// Usage example:
// • Either the parameter is Eurostat's "online data code":
//     insheet_eurostat  ilc_di11i 
// • 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/ilc_di11i/default/table?lang=en and 
//   do your selections by clicking the [⤓] Download button > selecting File format = "Tab separated values (.tsv)" and
//   Data scope = "Only displayed dimensions" and unticking "Compress file (.gzip)" > clicking the [Copy API link ⧉] button
//     insheet_eurostat  "https://ec.europa.eu/eurostat/api/dissemination/sdmx/3.0/data/dataflow/ESTAT/ilc_di11i/1.0/*.*.*?c[freq]=A&c[unit]=RAT&c[geo]=EU27_2020,EA20,BE,BG,CZ,DK,DE,EE,IE,EL,ES,FR&c[TIME_PERIOD]=2019,2020,2021,2022,2023,2024,2025&compress=false&format=tsv"
// 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).

alekrutkowski

See also https://github.com/alekrutkowski/ExcelLambdaTools

---

Convert 1-column range monthly dates in the format yyyy-mm, e.g. 2023-11, to 2-column range:

• 1st column: year number if it's January, otherwise empty
• 2nd column: the 3-character month code, e.g. "Nov"

=LAMBDA(rng,
 LET(

alekrutkowski

                                 ###############
                       #####################################
                ##################################################
             ########################################################
        ############################                     ###############
      #####################                                      ##########
    ###################                                              #######
   #################             ###################################    ######
 #################               ######################################   #####
 ###############                 #######################################  #####

alekrutkowski

How to install

• Chrome: https://webkul.com/blog/how-to-install-the-unpacked-extension-in-chrome/
• Edge: https://learn.microsoft.com/en-us/microsoft-edge/extensions/getting-started/extension-sideloading

Page Translator v2 (text-node safe)

Click the extension button to translate text inside paragraphs, headings (h1–h6), and list items into the language defined in MY_LANG while preserving inline markup and links.

Made with ChatGPT 5 (after a few iterations).

alekrutkowski

#### Prerequisites -- in Linux terminal: 
# Once:
#    pipx install libretranslate
# Run in the background:
#    libretranslate

#### Test:
# Open the following page in a web browser
# (but first modify  your.shiny-server.domain  and  your_translate_app_name):
#    https://your.shiny-server.domain/your_translate_app_name/?url=https://example.com/&from=en&to=fr

alekrutkowski

# Save it as /srv/shiny-server/your_app_name/app.R

library(shiny)

ui <- function(request) {
  query <- parseQueryString(request$QUERY_STRING)
  
  txt <- query$txt
  a <- as.numeric(query$a)
  b <- as.numeric(query$b)

alekrutkowski

# Shiny app that serves a transformed RSS feed immediately at "/".
# It fetches the source RSS on every request, appends a single space to the end
# of each line, and returns it with the correct RSS content type so feed readers
# can subscribe directly.

# This particular app fixes the annoying problem in Inoreader, which concatenates
# the words in the descriptions of new R packages.

library(shiny)