CircosHeatmap-aardio/main.aardio

import fonts.fontAwesome;
import win.ui;
/*DSG{{*/
mainForm = win.form(text="CircosHeatmap-aardio"; right=1000; bottom=700; bgcolor=16777215)
mainForm.add(
    btnRun={cls="plus"; text="生成pdf"; left=820; top=660; right=920; bottom=690; align="left"; border={color=-16777216; width=1}; db=1; dr=1; font=LOGFONT(h=-16; name='微软雅黑'); iconStyle={align="left"; font=LOGFONT(h=-13; name='FontAwesome'); padding={left=15}}; iconText='\uF08B'; textPadding={left=32}; z=3};
    btnSelectFile={cls="plus"; text="数据源"; left=710; top=660; right=810; bottom=690; align="left"; border={color=-16777216; width=1}; db=1; dr=1; font=LOGFONT(h=-16; name='微软雅黑'); iconStyle={align="left"; font=LOGFONT(h=-13; name='FontAwesome'); padding={left=18}}; iconText='\uF15C'; textPadding={left=35}; z=2};
    editConsole={cls="richedit"; left=10; top=510; right=990; bottom=650; bgcolor=4274224; color=15326936; db=1; dl=1; dr=1; hscroll=1; multiline=1; readonly=1; vscroll=1; z=5};
    editRScript={cls="edit"; left=10; top=10; right=990; bottom=500; border=1; color=4473924; db=1; dl=1; dr=1; dt=1; hscroll=1; multiline=1; vscroll=1; z=4};
    inputFile={cls="plus"; left=10; top=660; right=700; bottom=690; align="left"; border={color=-16736064; width=1}; db=1; dl=1; dr=1; editable="edit"; font=LOGFONT(h=-13); textPadding={left=5; top=8; right=5; bottom=2}; z=1}
)
/*}}*/

mainForm.btnSelectFile.skin({
	background={
		active=0xFF5AAEC4;
		default=0xFF71D9F5;
		disabled=0xFFCCCCCC;	
	};
	color={
		active=0xFFFFFFFF;
		default=0xFF000000;
		disabled=0xFF6D6D6D		
	}
});
mainForm.btnRun.skin({
	background={
		active=0xFF30BE3F;
		default=0xFF7DED7B;
		disabled=0xFFCCCCCC;		
	};
	color={
		active=0xFFFFFFFF;
		default=0xFF000000;
		disabled=0xFF6D6D6D		
	}
});

import console; 
import process.r;
import fsys.dlg;

mainForm.editRScript.print($"\script\heatmap_script.R");

var initEditConsole = function(){
	mainForm.editConsole.text = null;
	mainForm.editConsole.appendText( textColor = 0xF5D971, point = 10, "当前仅支持 csv 格式的数据源。如果您的数据是其他格式（如 xls、xlsx），可以将其转换为 csv 格式后再使用。" );
}
initEditConsole();

// 选择文件按钮点击事件
mainForm.btnSelectFile.oncommand = function(id, event) {
    var filePath = fsys.dlg.open("CSV 文件|*.csv||",, "选择输入文件");
    if (filePath) {
        mainForm.inputFile.text = filePath; // 将选择的文件路径显示在输入框中
    }
}

// 运行按钮点击事件
mainForm.btnRun.oncommand = function(id, event) {
    var inputFilePath = mainForm.inputFile.text;
    if (!inputFilePath) {
        console.log("请先选择输入文件！");
        return;
    }

    // 弹出保存文件对话框，选择PDF保存路径
    var outputFilePath = fsys.dlg.save("PDF 文件|*.pdf||",, "选择保存路径");
    if (!outputFilePath) {
        console.log("请选择PDF文件的保存路径！");
        return;
    }
	
	initEditConsole();
	
    // 执行 R 脚本
    var out = process.r.exec(mainForm.editRScript.text, inputFilePath, outputFilePath);
    mainForm.editConsole.appendLink('\r\n');
    mainForm.editConsole.appendText(out);
    
	out_lines = string.split(out, '\r\n');
	if (out_lines[#out_lines] == outputFilePath) {
    	mainForm.editConsole.appendLink('\r\n');
		mainForm.editConsole.appendText( textColor = 0x37D437, point = 10, "热图已成功保存至：" + outputFilePath);
	}
	// 滚动到最后一行
	mainForm.editConsole.vScroll();

}

//显示版本号
import fsys.version;
var version = fsys.version.getInfo(io._exepath).productVersion;
mainForm.text += " " ++ tostring(version);

// 显示主窗口
mainForm.show();
return win.loopMessage();