小编Don*_*yck的帖子

我想压缩图像(相机/照片库),然后将其发送到服务器.我知道我可以按高度和宽度进行压缩,但我想将图像按尺寸压缩到固定尺寸(200 KB)并保持原始高度和宽度.JPEGRepresentation中的比例因子不代表大小和仅压缩质量.如何在不使用任何第三方库的情况下实现此目的(压缩到固定大小)？谢谢你的帮助.

我有一个日期对象(yyyy-mm-dd)的向量,我想确定它们是否在周末.是否有能够直接确定这一功能的功能？

我可以wday()在lubridate包中使用,然后确定返回的值是否,01或者07其他更直接的东西？

x <- seq(Sys.Date()-10, Sys.Date(), by = 1)
x[lubridate::wday(x) %in% c(1, 7)]

我想在UIScrollview上实现"pull down to refresh"类型效果.在检测到滚动视图的"顶部"反弹时,视图应刷新一些组件.如何检测UIScrollview的"顶部反弹"？我尝试了委托"scrollViewWillBeginDragging",但没有奏效.

嗨,我在App Store中有一个现有的应用程序,我想更新应用程序名称应用商店,以及新的二进制更新.但是,我在iTunesConnect的"版本摘要"部分找不到编辑按钮.谁能告诉我怎么办呢？

我正在尝试编写服务器端代码,以便为我的应用程序发送推送通知.根据Apple的建议,我计划保留连接并根据需要发送推送通知.Apple还允许打开和保留多个并行连接以发送推送通知."您可以建立到同一网关或多个网关实例的多个并行连接." 为此,我想维护一个连接池.我的问题是连接池的限制是什么,或者我可以维护与APNS的持久连接数量？感谢您的期待.

我正在尝试在 R 中读取一个文本文件，其中的列以空格分隔。我尝试使用 data.table，因为 read.csv 需要很长时间才能读取。但是，第一列有前导空格，我在 fread() 中收到以下错误。
“测试标题行格式后定位不正确。ch=''”

数据格式类似于，

    45 36 46  
    45 67 35

有什么方法可以使用 fread() 读取它而不重新格式化纺织品吗？

我需要在R中编写一个查询来匹配列名中的部分字符串.我在SQL中寻找类似于LIKE运算符的东西.例如,如果我知道字符串的开头,中间或结尾部分,我会以格式编写查询:

LIKE 'beginning%middle%' 

在SQL中,它将返回匹配的字符串.在pmatch或grep似乎我只能指定'开头','结束'而不是订单.我正在寻找R中是否有类似的功能？

例如,假设我在向量中查找:

y <- c("I am looking for a dog",
       "looking for a new dog", "a dog", "I am just looking")

让我们说我想写一个选择的查询,"looking for a new dog"我知道字符串的开头是"looking"和字符串的结尾是"dog".如果我做了grep("dog",y)它会返回1,2,3.有什么方法可以指定开头和结尾grep吗？

我有一个向量列表，我需要将一个函数应用于所有可能的组合并在矩阵中表示结果，我可以使用forr 中效率低下的循环来做到这一点，任何人都可以指出任何其他方法来做到这一点，例如使用应用等？

代码例如

list <- list(c(1,2),c(3,4),c(5,6))

add_function <- function(x1,x2){
  g1 <- x1[1]+x2[2]
  g2 <- x1[2]+x2[1]
  return(g1*g2)
}

我需要将 add_function 应用于所有可能的组合并获得 3 x 3 矩阵。

在我的应用程序中,对于第一次推送通知注册,我didRegisterForRemoteNotificationsWithDeviceToken在持久性中调用并保存设备令牌,以及更新设备令牌的服务器列表.之后如果有人从iPhone设置中关闭推送通知设置,我如何从我的应用程序中确定它,以便我也可以从服务器中删除设备令牌.我知道APNS提供了一个反馈列表,但除此之外是否有办法以编程方式在App中确定它？谢谢你的帮助!

我想编写一个将字符串分成三元组列表的函数,例如

"JOHNSTEWART" --> chr [1:9] "JOH" "OHN" "HNS" "NST" "STE" "TEW" "EWA" "WAR" "ART"

我可以用for循环写这个,

ngram_function <- function(x){
  if(!is.na(x)&(nchar(x)>2)){
    ngram <- rep("n", n= nchar(x)-3+1)
    for (i in c(1:nchar(x)-2)){
      ngram[i] <-(substr(x, start =i,stop= i-1+3))
    }
    return(ngram)
  }
  else{
     return(x)
  }
}

但是需要很长时间来扩展大量值,是否有其他R优化版本可以做到这一点？