小编LJB*_*LJB的帖子

我试图按照这篇文章中的答案(如何使用高级驱动服务上传文件)将我的上传脚本从使用DriveApps转换为Drive API,以便允许大文件上传(我需要能够上传文件约50 GB)但我没有取得多大成功.

当我上传相对较小的文件(我已尝试使用大约20 MB的文件)时,一切正常,但是当我尝试上传更大的文件(大约400 MB)时,没有任何反应.

我收到以下错误:

POST 2601514732-mae_html_user_bin_i18n_mae_html_user.js:71 POST …3A1462412854269&fsid=4787eea0-1d3c-4fd8-b263-8bae40da182d&func=uploadFiles 413 ()

375182757-mae_html_driver_bin_i18n_mae_html_driver.js:113 GET …b263-8bae40da182d&token=AJuLMu2o9KnAOrSvzonQHNRGUelVpsakEg%3A1462412854269 500 ()

2601514732-mae_html_user_bin_i18n_mae_html_user.js:46 Uncaught NetworkError: Connection failure due to HTTP 500

我认为Drive API应该允许我上传任何大小的文件？我究竟做错了什么？我检查了一下,然后启用了Drive API.任何帮助是极大的赞赏.

我的server.gs脚本:

 function doGet(e) {
   return template = HtmlService.createHtmlOutputFromFile('form.html');
   return template.evaluate().setSandboxMode(HtmlService.SandboxMode.IFRAME);
 }

 function uploadFiles(form) {

   try {

     var dropbox = "File Transfer";
     var folder, folders = DriveApp.getFoldersByName(dropbox);

     if (folders.hasNext()) {
       folder = folders.next();
     } else {
       folder = DriveApp.createFolder(dropbox);
     }


     //Upload file and set various properties
     var mediaData = …

我想在R中解决以下问题:

∫ ₀ ^ħ [π(吨)∫ _吨^ħ 甲(X)DX] dt的

其中π(t)是先验,A(x)是下面定义的A函数.

prior <- function(t) dbeta(t, 1, 24)
A     <- function(x) dbeta(x, 1, 4)
expected_loss <- function(H){
  integrand     <- function(t) prior(t) * integrate(A, lower = t, upper = H)$value
  loss          <- integrate(integrand, lower = 0, upper = H)$value
  return(loss)
} 

由于π(t),A(x)> 0,expected_loss(.5)应小于expected_loss(1).但这不是我得到的:

> expected_loss(.5)
[1] 0.2380371
> expected_loss(1)
[1] 0.0625

我不确定我做错了什么.

我正在尝试创建一个创建并返回新函数的函数.我尝试了以下,但它不起作用.我想要

myfunc <- function(W){

myfunc2=function(X){
Y=W%*%X
return(Y)
}
return(myfunc2)
}

我希望能够在myfunc之外使用myfunc2.有关如何做到这一点的任何想法？