Rで解析：比較的簡単に「Loupedeck」のショートカットコマンドプラグインを作成する例

cd %USERPROFILE%\Source
%USERPROFILE%\Downloads\LoupedeckPluginToolUnpacked\LoupedeckPluginTool.exe generate -name="KgRstudio"
//cd %USERPROFILE%\Source
//%USERPROFILE%\Downloads\LoupedeckPluginToolUnpacked\LoupedeckPluginTool.exe generate -name="KgTest"

#devtoolsパッケージがない場合は下記をコメントアウトして実行する
#install.packages("devtools")
devtools::install_github("MasakiFujishima/karadaLoupedeck")
library("karadaLoupedeck")

###表を読み込む#####
library("tcltk")
xlsxFile <- paste0(as.character(tkgetOpenFile(title = "エクセルファイルを選択",
                                          filetypes = '{"エクセルファイル" {".xlsx"}}',
                                          initialfile = c("*.xlsx"))))
########

###処理ファイルの保存先を指定#####
setwd(paste0(as.character(tk_choose.dir())))

#ショートカットをまとめた表を編集する:kg_scef_tidyコマンド
#処理する表のパス:xlsxFileオプション
#Loupedeckで表示する塗色の列:fillcol;初期値2
#Loupedeckで表示するテキスト色の列:textcol;初期値2
#処理する表の列数:ncol
#対象OS:selectOS;初期値windows,macOSは未検討
kg_scef_tidy(xlsxFile = xlsxFile)

###「KG_Shortcut.xlsx」を読み込み#####
library("tcltk")
xlsxFile <- paste0(as.character(tkgetOpenFile(title = "エクセルファイルを選択",
                                              filetypes = '{"エクセルファイル" {".xlsx"}}',
                                              initialfile = c("*.xlsx"))))
########

#「KG_Shortcut.xlsx」から「C# Source File」を作成する:kg_csfiles_createコマンド
#処理する表のパス:xlsxFileオプション
#プロジェクト名:lpnameオプション
#C# Source Fileの保存先:savepathオプション
#tk_choose.dir()コマンドを使うと楽
kg_csfiles_create(xlsxFile, lpname = "KgRstudio",
                  savepath = paste0(as.character(tk_choose.dir())))

namespace Loupedeck.KgRstudio
{
    using System;

    public class AcceptSelectedCandidate : PluginDynamicCommand
    {
        public AcceptSelectedCandidate()
        : base(displayName: "Accept Selected Candidate", description: "Accept Selected Candidate", groupName: "Completions (Console and Source)")
        {
        }
        protected override BitmapImage GetCommandImage(String actionParameter, PluginImageSize imageSize)
        {

            var ResourcePath = EmbeddedResources.FindFile("Completions (Console and Source).png");

            using (var bitmapBuilder = new BitmapBuilder(imageSize))

            {
                if (ResourcePath == null)
                {
                    bitmapBuilder.FillRectangle(0, 0, 80, 80, new BitmapColor(229,212,232));
                    bitmapBuilder.DrawText("Accept Selected Candidate", color: new BitmapColor(23,42,19));
                    return bitmapBuilder.ToImage();
                }
                else
                {
                    bitmapBuilder.SetBackgroundImage(EmbeddedResources.ReadImage(ResourcePath));
                    bitmapBuilder.DrawText("Image", color: new BitmapColor(23,42,19));
                    return bitmapBuilder.ToImage();
                }
            }
        }
        protected override void RunCommand(String actionParameter)
        {
            this.Plugin.ClientApplication.SendKeyboardShortcut(VirtualKeyCode.Tab);
        }
    }
}

namespace Loupedeck.KgRstudioPlugin
{
    using System;

    // This class can be used to connect the Loupedeck plugin to an application.

    public class KgRstudioApplication : ClientApplication
    {
        public KgRstudioApplication()
        {
        }

        // This method can be used to link the plugin to a Windows application.
        protected override String GetProcessName() => "RStudio";

        // This method can be used to link the plugin to a macOS application.
        protected override String GetBundleName() => "";

        // This method can be used to check whether the application is installed or not.
        public override ClientApplicationStatus GetApplicationStatus() => ClientApplicationStatus.Unknown;
    }
}

namespace Loupedeck.KgRstudioPlugin
{
    using System;

    // This class contains the plugin-level logic of the Loupedeck plugin.

    public class KgRstudioPlugin : Plugin
    {
        // Gets a value indicating whether this is an Universal plugin or an Application plugin.
        public override Boolean UsesApplicationApiOnly => false;

        // Gets a value indicating whether this is an API-only plugin.
        public override Boolean HasNoApplication => false;

        public KgRstudioPlugin() => PluginLog.Init(this.Log);

        // This method is called when the plugin is loaded during the Loupedeck service start-up.
        public override void Load()
        {
        }

        // This method is called when the plugin is unloaded during the Loupedeck service shutdown.
        public override void Unload()
        {
        }
    }
}

namespace Loupedeck.KgTestPlugin
{
    using System;

    public class OriginalAction : PluginDynamicCommand
    {
       // private readonly String[] _names = new[] { "(VirtualKeyCode.KeyR, ModifierKey.Control | ModifierKey.Shift);", "Liam Smith" };

        public OriginalAction()
            : base(displayName: "Create original new R script", description: "Create original new R script", groupName: "Original")
        {
        }
        protected override BitmapImage GetCommandImage(String actionParameter, PluginImageSize imageSize)
        {

            var ResourcePath = EmbeddedResources.FindFile("Original.png");

            using (var bitmapBuilder = new BitmapBuilder(imageSize))

            {
                if (ResourcePath == null)
                {
                    bitmapBuilder.FillRectangle(0, 0, 80, 80, new BitmapColor(153, 204, 0));
                    bitmapBuilder.DrawText("Create original new R script", color: new BitmapColor(0, 0, 0));
                    return bitmapBuilder.ToImage();
                }
                else
                {
                    bitmapBuilder.SetBackgroundImage(EmbeddedResources.ReadImage(ResourcePath));
                    bitmapBuilder.DrawText("Image", color: new BitmapColor(0, 0, 0));
                    return bitmapBuilder.ToImage();
                }
            }
        }

        protected override void RunCommand(String actionParameter)
        {

            this.Plugin.ClientApplication.SendKeyboardShortcut(VirtualKeyCode.KeyN, ModifierKey.Control | ModifierKey.Shift);
            this.Plugin.ClientApplication.SendKeyboardShortcut(VirtualKeyCode.NumPad1, ModifierKey.Control);
            this.Plugin.ClientApplication.SendKeyboardShortcut(VirtualKeyCode.F12, ModifierKey.Control);
            this.NativeApi.GetNativeMethods().SendString("#Install the HogeHoge package if it is not already there");
            this.Plugin.ClientApplication.SendKeyboardShortcut(VirtualKeyCode.Return);
            this.NativeApi.GetNativeMethods().SendString("if (!require(\"HogeHoge\", quietly = TRUE)) {");
            this.Plugin.ClientApplication.SendKeyboardShortcut(VirtualKeyCode.Return);
            this.Plugin.ClientApplication.SendKeyboardShortcut(VirtualKeyCode.Return);
            this.NativeApi.GetNativeMethods().SendString("install.packages(\"HogeHoge\");require(\"HogeHoge\")");
            this.Plugin.ClientApplication.SendKeyboardShortcut(VirtualKeyCode.Return);
            this.Plugin.ClientApplication.SendKeyboardShortcut(VirtualKeyCode.End, ModifierKey.Control);
            this.Plugin.ClientApplication.SendKeyboardShortcut(VirtualKeyCode.Return);
            this.Plugin.ClientApplication.SendKeyboardShortcut(VirtualKeyCode.Return);
            this.NativeApi.GetNativeMethods().SendString("#Loading the library");
            this.Plugin.ClientApplication.SendKeyboardShortcut(VirtualKeyCode.Return);
            this.NativeApi.GetNativeMethods().SendString("library(\"HogeHoge\")");

        }
    }
}

type: plugin4
name: KgRstudio
displayName: KG_RStudio
version: 1.0

author: Masaki Fujishima
copyright: Copyright © 2023 KARADA GOOD. All rights reserved.
license: MIT
licenseUrl: https://opensource.org/licenses/MIT

homePageUrl: https://www.karada-good.net
supportPageUrl: https://www.karada-good.net/analyticsr/r-774/

pluginFileName: KgRstudioPlugin.dll
pluginFolderWin: win

supportedDevices:
    - LoupedeckCtFamily

cd C:\Program Files (x86)\Loupedeck\Loupedeck2
LoupedeckServiceTool.exe stop

LoupedeckServiceTool.exe start