matchbook
1.0.0
此 R 包提供了一些简单的函数来支持与 Matchbook.com RESTful API 服务的交互。使用前请仔细阅读每个功能的文档。需要注册 Matchbook.com 帐户才能使用此套餐。使用前请完整阅读文档。
要安装该软件包需要 devtools 库：
library(devtools)
install_github("xanadunf/matchbook")
以下两个函数有助于帐户会话验证
以下功能提供了获取有关可用运动的信息的能力。这提供了 Matchbook 用于每项运动的 ID。通过这些，您可以获得您感兴趣的运动的所有赛事。接下来，您可以获得任何赛事 ID 列表的市场 ID 和跑步者 ID。有关这方面的更多详细信息，请参阅 R 文档。
I 以下函数可用于获取已下注但尚未结算的任何投注的详细信息。可以获取未匹配和匹配投注的详细信息。有关更多详细信息，请参阅 R 文档（例如？mb_get_bets）
以下函数提供核心投注功能。
为了获得已结算投注的详细信息，可以使用以下功能。同样，完整的函数参数可以在 R 文档中查看 (?mb_get_settled)
假设您已满足先决条件，这应该可以帮助您在很短的时间内启动并运行。让我们在本教程中设置一个目标，对我们发现的第一场包含“man”名字的足球比赛进行投注。我们将继续以 1.10 的赔率对主队进行 5 欧元（或您帐户中的任何货币）的后注，以彻底赢得比赛。
首先，您需要使用您的 Matchbook.com 帐户凭据登录。
library(devtools)
install_github("xanadunf/matchbook")
library(matchbook)
username <- "my_user_name" ### replace with your username
password <- "verysafepassword" ### replace with your password
session_details <- mb_login(username,password)
由于我们投注的是足球，因此我们需要找出该运动的 id。
sport_id_data <- mb_get_sports(session_details)
sport_id_data
football_sport_id <- sport_id_data$id[which(sport_id_data$name=="Soccer")]
football_sport_id
从结果中我们可以看到足球的运动id=15。我们可以使用它来获取包含“man”字符串的球队的任何足球赛事。
event_data <- mb_get_events(session_data=session_details,sport_ids=football_sport_id)
event_data[grep(tolower("man"), tolower(event_data$name)),]
test_event_id <- event_data$id[grep(tolower("man"), tolower(event_data$name))[1]]
test_event_id
显然，根据您运行此命令的时间，您可能会得到很多结果，也可能没有结果。如果您没有找到成功的结果，请将“man”替换为您知道即将比赛的足球队的名称。因此，让我们获取此事件的所有市场数据。由于我们想对比赛结果进行投注，因此我们将尝试提取“单胜”市场类型。
market_data <- mb_get_markets(session_data=session_details,event_id=test_event_id,include_runners=TRUE)
market_data
test_market_id <- market_data$id[market_data$'market-type'=="one_x_two"]
test_market_id
现在我们有了正确的市场，让我们获取该市场中所有跑步者的信息。这次，我们包含参数“include_prices=TRUE”，以便我们可以看到每个跑步者的可用价格。另外，让我们从结果数据中选择跑步者。
runner_data <- mb_get_runners(session_data=session_details,event_id=test_event_id,market_id=test_market_id,include_prices=TRUE)
runner_data
test_runner_id <- runner_data$id[grep("man", runner_data$name,ignore.case=TRUE)]
test_runner_id
现在我们有了所有跑步者的详细信息，让我们获取我们选择的跑步者的价格详细信息。
prices_data <- runner_data$prices[[which(runner_data$id==test_runner_id)]]
prices_data_back <- prices_data[prices_data$side=="back",]
best_available_current_price <- min(prices_data_back$'decimal-odds') # min because we are backing, use the max if you are laying.
现在我们已经找到了可以支持的价格水平（数量也可以通过“prices_data_back$'available-amount”获得），我们可以对我们选择的跑步者下注。
mb_bet_place(session_data=session_details,runner_id=test_runner_id,side='back',stake=5,odds=1.10)
mb_get_bets(session_data=session_details)
下注时，检查下注的状态很重要。如果状态为“已匹配”，则已按提供的价格与您匹配。如果是“开放”，则投注尚未完全匹配。有关投注的更多详细信息，请查看文档：?mb_bet_place
mb_get_bets(session_data=my_session,runner_id=test_runner_id)
该软件包正在积极开发中，欢迎反馈并提出改进建议。
请使用问题区域创建问题。
本软件按“原样”提供，不提供任何明示或暗示的保证，包括但不限于适销性、特定用途的适用性和不侵权的保证。在任何情况下，作者或版权持有者均不对因本软件或本软件中的使用或其他交易而产生或与之相关的任何索赔、损害或其他责任负责，无论是合同、侵权行为还是其他行为。软件。
