R/install_source.R

In salah31416/bibliotheca: Tools Library

##-------------------------------------------------------------
## 
##-------------------------------------------------------------
install_source = function(pac)
{
	if(file.exists(pac)) 
	{
		install.packages(pac, repos = NULL, type = "source")
		
		nomepac = gsub(".*/|_.*", "", pac)
		
		out = paste0(nomepac, ": ", paste0("'", pac, "'"))
		
		mensagem(out, msg = 4)
		
		return(invisible(nomepac))
	} else {
		
#		net = curl::nslookup("www.r-project.org", ipv4_only = TRUE, error = FALSE)
#		
#		if(!is.null(net))
#		{ 
#			url_ok = RCurl::url.exists(pac) 
#		} else {
#			mensagem("imposs\uedvel abrir", msg = 3)
#			
#			return(invisible(NULL))
#		}#end if
		url_ok = TRUE
		
		if(url_ok) 
		{
			install.packages(pac, repos = NULL, type = "source")
			
			nomepac = gsub(".*/|_.*", "", pac)
			
			out = paste0(nomepac, ": ", paste0("'", pac, "'"))
			
			mensagem(out, msg=4)
			
			return(invisible(nomepac))
		}#end if
	}#end if
	
	mensagem(pac, aviso = "Not installed", 
			subtitulo = "Dir, file or url not installed")
	
	return(invisible(NULL))
	
}#end function install_source

#ne = "/mnt/Arquivos/R/source_pkg/mise_0.1"
#miselocal = "/mnt/Arquivos/R/source_pkg/mise_0.1.0.tar.gz"
#miseurl = "https://cran.r-project.org/src/contrib/mise_0.1.0.tar.gz"
#asciiurl = "https://cran.r-project.org/src/contrib/ascii_2.1.tar.gz"
#pac = c(ne, miseurl, asciiurl, miselocal)[1]
#(a = install_source(pac))
#
#nomepac = gsub(".*/|_.*", "", pac)
#paste0(nomepac, ": ", paste0("'", pac, "'"))