In [1]:

    

library(RCurl)


    

    




Error in library(RCurl): there is no package called 'RCurl'

In [2]:

    

install.packages("RCurl")


    

    




Error in contrib.url(repos, type): trying to use CRAN without setting a mirror

In [3]:

    

if (!require("RCurl")) {
  install.packages("RCurl", repos="http://cran.rstudio.com/") 
  library("RCurl")
}


    

    




Loading required package: RCurl
Warning message:
In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE, : there is no package called 'RCurl'also installing the dependency 'bitops'

Warning message:
In install.packages("RCurl", repos = "http://cran.rstudio.com/"): installation of package 'RCurl' had non-zero exit status





    




The downloaded source packages are in
	'/private/var/folders/m4/j55x1ddj58b2jtmjppvcs5fr0000gr/T/RtmpZS325x/downloaded_packages'






    




Updating HTML index of packages in '.Library'
Making 'packages.html' ... done






    




Error in library("RCurl"): there is no package called 'RCurl'

In [4]:

    

!apt-get -y build-dep libcurl4-gnutls-dev
!apt-get -y install libcurl4-gnutls-dev


    

    




Error in parse(text = x, srcfile = src): <text>:1:13: unexpected symbol
1: !apt-get -y build
                ^

In [1]:

    

library(RCurl)


    

    




Loading required package: bitops

In [ ]:

    

### get excel from github

#library(XLConnect)
#appURL <- "https//raw.githubusercontent.com/Rnewbie/Bitter/master/Natural_Bitter_Taste.xlsx"
#f = CFILE("exfile.xlsx", mode="wb")
#curlPerform(url = appURL, writedata = f@ref, ssl.verifypeer = FALSE)
#close(f)
#out <- readWorksheetFromFile(file = "exfile.xls", sheet = "Sheet1", header = TRUE
                      #       , startRow = 11, startCol = 2, endCol = 15, endRow = 35)
#head(out)
#library(readxl)
#data <- read_excel("exfile.xlsx")
### Uniprot ID for T2R
uniprot_id <- c("Q9NYW7", "Q9NYW6", "Q9NYW5", "Q9NYW4", "Q9NYW3", "Q9NYW2", "Q9NYW1", "Q9NYW0", 
                "Q9NYV9", "Q9NYV8", "Q9NYV7", "P59533", "P59534", "P59535", "P59536", "Q7RTR8", 
                "P59537", "P59538", "P59539", "P59540", "P59541", "P59542", "P59543", "P59544",
                "P59551")

### function for get FASTA for each recpetor
get_T2R_fasta = function(x) {
  URL = paste0("http://www.uniprot.org/uniprot/",x, 
               ".fasta")
  text = RCurl::getURLAsynchronous(url = URL)
  return(text)
}

t2r_fasta = get_T2R_fasta(uniprot_id)

### write FASTA
library(Biostrings)
x <- AAStringSet(t2r_fasta)
writeXStringSet(x, file = "T2R.fasta", width = 80)


    

In [ ]: