相关疑难解决方法(0)

我正在尝试进行API调用,这需要一个毫秒的时间.我是R的新手,并且谷歌搜索了几个小时,以实现像Java一样的东西:

System.currentTimeMillis();

我看到的只有像

Sys.Date() 和 Sys.time

返回格式化日期而不是毫秒时间.

我希望有人可以给我一个解决我问题的oneliner.

我正在用R创建一个二十一点模拟器.下面的代码成功创建了我想要的卡片组.(对于那些参加比赛的人,我将在稍后处理一个Ace的价值).

我的问题是,有没有更好的方法来创建不涉及while循环加上双循环的套牌？我对double for循环有更多的问题.while循环可能是不可避免的,因为创建的套牌数量是可变的.

我也初始化一个空数据框,我知道这不是最佳实践,但是,在这种情况下,数据集非常小,不会影响性能.

最后,R中是否有相当于i ++的东西？我也一直在使用java编程并且已经习惯了它.

谢谢.

createDeck <- function(totalNumOfDecks = 2)
{
  suits <- c("Diamonds", "Clubs", "Hearts", "Spades")
  cards <- c("Ace", "Deuce", "Three", "Four","Five", 
             "Six", "Seven", "Eight", "Nine", "Ten", 
             "Jack", "Queen", "King")
  values <- c(0,2,3,4,5,
              6,7,8,9,10,
              10,10,10)

  deck <- data.frame(Suit=character(0), Card=character(0), Value=numeric(0))

  numOfDecks = 1

  while (numOfDecks <= totalNumOfDecks){
    for (i in suits){
      for (j in cards){
        deck <- rbind.data.frame(deck, cbind.data.frame(j, i, values[match(j, cards)]))
      }
    }
    numOfDecks = numOfDecks + 1
  }

  print(deck)
}