| # `mschart` and `officer` R packages are required | |
| # `magrittr` required for the %>% pipe | |
| scatter_plot <- | |
| mschart::ms_scatterchart( | |
| data=iris, x="Sepal.Length", | |
| y="Sepal.Width", group="Species" | |
| ) %>% | |
| mschart::chart_settings(scatterstyle="marker") |
| # Usage example (disclaimer: fictitious email addresses, any resemblance to real ones is coincidental): | |
| ## emailAddressToInstitutionName(c('[email protected]', | |
| ## '[email protected]')) | |
| ##> "Ministère du Travail, du Plein emploi et de l'Insertion" | |
| ##> "Ministerie van Sociale Zaken en Werkgelegenheid | Rijksoverheid.nl" | |
| # Required packages: `magrittr`, `rvest` | |
| library(magrittr) # for the %>% operator | |
| emailAddressToInstitutionName <- function(charvec_of_email_addresses, |
| # Recursive `glue::glue` based on | |
| # https://github.com/SuperMayo/gonfig/blob/master/R/glue.R | |
| # but simplified | |
| rglue <- function(string, ...) { | |
| glued <- glue::glue(string, ...) | |
| if (glued==string) glued else rglue(glued, ...) | |
| } |
| { | |
| "goToFileFunction": "Ctrl+P", | |
| "insertPipeOperator": "Ctrl+Shift+M", | |
| "restartR": "Ctrl+R", | |
| "activateTerminal": "Ctrl+3", | |
| "browseAddins": "", | |
| "closeProject": "", | |
| "closeTerminal": "", | |
| "sendTerminalToEditor": "", | |
| "newTerminal": "Ctrl+T", |
| library(openxlsx2) | |
| library(magrittr) # for the %>% operator | |
| # Import all sheets in the Excel file as a list of data.frames | |
| # like in the previous package version (openxlsx) | |
| readAllSheets <- function(xlsx_file_name, drop_empty_sheets=TRUE, | |
| suppress_warnings=TRUE, ...) | |
| xlsx_file_name %>% | |
| read_sheet_names() %>% | |
| sapply(function(x) |
| # Copied from https://github.com/Ismael-VC/InfixFunctions.jl/blob/master/src/InfixFunctions.jl | |
| # and updated for compatibility with current Julia (ver. 1.8.5), specifically method `isdefined`. | |
| # See the usage examples below. | |
| # Before using: | |
| # 1) Download this file to your current working directory, e.g. in Julia | |
| # julia> run(`wget https://gist.githubusercontent.com/alekrutkowski/32097fe6502c254374c406fbb71d3ef8/raw/InfixFunctions.jl`) | |
| # 2) Type in Julia: | |
| # julia> include("InfixFunctions.jl") | |
| # julia> using Main.InfixFunctions |
| ## Code generated by the free-access ChatGPT May 12 Version | |
| ## Usage example: | |
| # Copy-FileWithTimestampPrefix -SourceFilePath "F:\PRIVATE\M4ROOT\CLIP\C0040.MP4" -DestinationFolderPath "B:\Videos" | |
| ## File copied to: B:\Videos\2023-05-17_15.43.50__C0043.MP4 | |
| function Copy-FileWithTimestampPrefix { | |
| param ( | |
| [Parameter(Mandatory = $true)] | |
| [ValidateScript({Test-Path $_ -PathType 'Leaf'})] | |
| [string]$SourceFilePath, |
To compile it into a docs folder/directory which could be hosted as an app on GitHub (Pages), assuming that the app.py and requirements.txt are in the excel_io folder/directory:
shinylive export excel_io docs
To run it (after compilation) locally:
python -m http.server --directory docs 8008
The input Excel file (used as an example) that is uploaded by a user in the running app has the following contents:
| #!/bin/bash | |
| # Prerequisities | |
| # 0) XFCE | |
| # 1) Save this script in your home directory as: /home/your_user_name/calculate_ram_usage.sh | |
| # 2) Add a new XFCE Generic Monitor Applet item (with the settings: no label, 1 second refresh period): /home/your_user_name/calculate_ram_usage.sh | |
| output=$(free) | |
| # Use grep with perl-regex (-P) to extract numbers and store them in an array | |
| numbers=($(echo "$output" | grep -oP '\d+')) |
| Sub AttachLabelsToPointsAvoidingOverlap() | |
| ' Based on: | |
| ' https://support.microsoft.com/en-gb/topic/how-to-use-a-macro-to-add-labels-to-data-points-in-an-xy-scatter-chart-or-in-a-bubble-chart-in-excel-0f7642a5-fc9f-375c-94f1-953fb55eae06 | |
| ' but significantly extended to reduce the overlap of labels for points which are close | |
| ' | |
| ' IMPORTANT: The labels for the scatterplot points are assumed to be in the column directly on the left side of the data range | |
| ' USAGE: Select the chart (scatterplot) concerned, then run the macro | |
| ' If you don't like the positioning of the labels, simply re-run the macro - new positions may be better | |
| ' because it will be based on new random numbers. | |