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)

alekrutkowski

---
toc: false
theme: [dashboard]
footer: ""
---

<link href="https://unpkg.com/gridjs/dist/theme/mermaid.min.css" rel="stylesheet" />

<script src="https://unpkg.com/gridjs/dist/gridjs.umd.js"></script>

alekrutkowski

---
toc: false
theme: [dashboard]
footer: ""
---

# My Dashboard

```js
// Message displayed before the first Excel file upload

alekrutkowski

---
toc: false
---

```js
function DoubleRange({
  min = 0,
  max = 100,
  step = 1,
  value = [min, max],

alekrutkowski

<!-- https://tom-select.js.org/#:~:text=Additional%20CLI%20usage-,jsDelivr,-The%20fastest%20way -->
<link href="https://cdn.jsdelivr.net/npm/[email protected]/dist/css/tom-select.css" rel="stylesheet">
<script src="https://cdn.jsdelivr.net/npm/[email protected]/dist/js/tom-select.complete.min.js"></script> <!-- Leave space below! -->

<!-- https://tom-select.js.org/examples/#:~:text=%3C-,select%20multiple,-%3E -->
```js
const mystates = 
  view(html`<select id="select-state" name="state[]" multiple placeholder="Select a state..." autocomplete="on">
			<option value="">Select a state...</option>
			<option value="AL">Alabama</option>

alekrutkowski

async function fetchCSVtoObjects(url) {
  const response = await fetch(url);
  if (!response.ok) {
    throw new Error(`Failed to fetch CSV: ${response.status} ${response.statusText}`);
  }

  const text = await response.text();
  const lines = text.trim().split(/\r?\n/);

  if (lines.length < 2) {

alekrutkowski

### Usage example:
# installMissingPackages(4.3, 4.5)


library(magrittr)

getPackages <- function(version) {
  stopifnot(is.numeric(version),
            length(version)==1,
            version==round(version,1))