R 无法安装shinyapps

在我的ubuntu 13.04上尝试安装

shinyapps

时，我遇到了以下错误。有人能帮忙吗？谢谢

呼叫： 需要（devtools） 开发工具：：安装_github（'rstudio/shinyapps'））

错误：

从哈德利安装github repo（s）rstudio/shinyapps/master

从安装rstudio/shinyapps.zip

writeBin（内容（请求）、捆绑包）中出错：

只能写入向量对象

会话信息：

R版本3.0.2（2013-09-25） 平台：x86_64-pc-linux-gnu（64位）

*

trackback（）

打印以下内容：*

8:stop（“只能写入向量对象”）
7:writeBin（内容（请求）、捆绑）
6:（函数（url，name=NULL，subdir=NULL，config=list（），
安装之前（安装=空，…）
{
if（is.null（name））{
name请查看
install\u github
的参数列表。您的呼叫应该是

install_github( repo = "shinyapps", username="rstudio" )

至少对于1.4.1版之前的
devtools
：
我认为您还有另一个选择。请从下载包到本地计算机。然后通过调用
install\u local（）
安装包。例如，
install\u local（“~/Downloads/shinyapps master.zip”）
。
shinyapps master.zip
是shinyapps包，
~/Downloads/
是路径。
shinyapps包已被rsconnect取代，rsconnect可以通过CRAN以常规方式简单安装

感谢您的及时回复。但我尝试了您的代码调用，但仍然看到以下错误：>从rstudio安装github repo（s）shinyapps/master>从安装shinyapps.zip>writeBin（内容（请求），捆绑包）中的错误：>只能写入向量对象。至少
install\u github
现在可以访问正确的ressource。请验证是否可以手动下载，并且它的文件大小约为726kb？请发布
stacktrace（）的结果
在您的原始帖子中？以及加载包的版本信息，因为它们应该由
sessionInfo
打印。您好，1）我无法在这个ubuntu 13.04机器上下载master.zip。但是我可以从另一台windows 7机器上下载。2）对不起，我不知道stacktrace（）。我可以问哪个软件包？它说
错误：当我调用
stacktrace（）
3）时，找不到函数“stacktrace”
。我刚刚在原始帖子中添加了加载的软件包信息。再次感谢。很抱歉，语言错误，我的意思是
traceback（）
（这是base-R的一部分）。但是，如果您无法手动访问
master.zip
文件，恐怕无法通过
install\u github
进行安装。您的软件包（尤其是
httr
、
stringr
和
devtools
）是最新的。
trackback（）
打印以下内容：我想是的，但是，您是否使用提升的权限（例如sudo）调用R？
8: stop("can only write vector objects")
7: writeBin(content(request), bundle)
6: (function (url, name = NULL, subdir = NULL, config = list(), 
   before_install = NULL, ...) 
{
   if (is.null(name)) {
       name <- basename(url)
   }
   message("Downloading ", name, " from ", url)
   bundle <- file.path(tempdir(), name)
   request <- GET(url, config)
   stop_for_status(request)
   writeBin(content(request), bundle)
   on.exit(unlink(bundle), add = TRUE)
   install_local_single(bundle, subdir = subdir, before_install = before_install, 
       ...)
})(dots[[1L]][[1L]], dots[[2L]][[1L]], subdir = NULL, config = list(), 
   before_install = function (bundle, pkg_path) 
   {
       desc <- file.path(pkg_path, "DESCRIPTION")
       if (!ends_with_newline(desc)) 
           cat("\n", sep = "", file = desc, append = TRUE)
       append_field <- function(name, value) {
           if (!is.null(value)) {
               cat("Github", name, ":", value, "\n", sep = "", 
                 file = desc, append = TRUE)
           }
       }
       append_field("Repo", repo)
       append_field("Username", username)
       append_field("Ref", ref)
       append_field("SHA1", github_extract_sha1(bundle))
       append_field("Pull", pull)
       append_field("Subdir", subdir)
       append_field("Branch", branch)
       append_field("AuthUser", auth_user)
   })
5: mapply(install_url_single, url, name, MoreArgs = list(subdir = subdir, 
   config = config, before_install = before_install, ...))
4: install_url(url, name = paste(repo, ".zip", sep = ""), subdir = subdir, 
   config = auth, before_install = github_before_install, ...)
3: FUN("shinyapps"[[1L]], ...)
2: vapply(repo, install_github_single, FUN.VALUE = logical(1), username, 
   ref, pull, subdir, branch, auth_user, password, ...)
1: install_github(repo = "shinyapps", username = "rstudio")

install_github( repo = "shinyapps", username="rstudio" )