R/folders.R

In chaosfang404/chaos.tools: utilities for chaos

scratch <- function()
{
	for (i in dir("/scratch"))
	{
		tmp_path <- file.path("/scratch",i,"chaos")
		if (dir.exists(tmp_path))
		{
			return(tmp_path)
		}
	}
}

desktop <- function(
			username = "chao"
){
	if(is.na(username))
	{
		username <- Sys.info()[7]
	}

	platform <- Sys.info()[1]

	if(platform == "Windows")
	{
		file.path("C:/Users",username,"Desktop")
	}else if(platform == "Linux")
	{
		if(!grepl(Sys.info()[2],pattern = "WSL"))
		{
			file.path("~",username, "Desktop")
		}else
		{
			file.path("/mnt/c/Users",username,"Desktop")
		}
	}
}

data_dir <- function(
){
	platform <- Sys.info()[1]

	if(platform == "Linux")
	{
		if(grepl(Sys.info()[2],pattern = "WSL"))
		{
			file.path("/mnt/d/synchronized files/OneDrive - 南方科技大学/work")
		}else
		{
			scratch()
		}
	}else if(platform == "Windows")
	{
		file.path("D:/work")
	}
}

integration_dir <- function(
						integration_name
){
	paste0(data_dir(), "/integration/",integration_name)
}

ppt <- function(
			x,
			file_path = "/mnt/d/synchronized\ files/OneDrive\ -\ 南方科技大学/VCaP_result_plot/VCaP_result_plot.pptx"
){
	export::graph2ppt(
		x,
		file_path,
		append = T
	)
}


pdf2 <- function(
			file_path,
			height,
			width
){
	result_dir <- "/mnt/d/synchronized\ files/OneDrive\ -\ 南方科技大学/VCaP_result_plot"
	pdf(file.path(result_dir,file_path),height = height,width = width)
}