Question

我希望通过Shiny应用中的多个RGA查询void tst() { FILE *fp = std::fopen("test.txt", "r"); char str[60]; if (fgets(str, 60, fp) == 0) { digitalWrite(pin, HIGH); } else { digitalWrite(pin, LOW); } }，使用数据帧每行指定的3个输入变量。要通过R访问Google AnalyticsAPI，请使用CRAN {{3}}库。

在我的mapply中，我ui.R已映射到textOutput中的每个i。这样，df$name应该为output$name中的每个i呈现两个查询的结果。

目前，我的控制台会打印：

＆＃34;未获得任何结果。＆＃34;

我已经单独测试了查询，他们都应该提取结果。

这是我服务器的简化版.R：

df$name

Answer 1

如果我理解这个问题：

library(shiny)
library(RGA)
authorize()
id <- "ga:100202885"
getDates <- function() {
    today <- Sys.Date()
    thisWeekStart <- as.Date(cut(today, "weeks"))
    thisWeekEnd <- as.Date(cut(today, "weeks")) + 6
    lastWeekStart <- thisWeekStart - 7
    lastWeekEnd <- thisWeekEnd - 7
    startOfCampaign <- as.Date("2015-12-23")
    data.frame(
        start = c(thisWeekStart, lastWeekStart, startOfCampaign),
        end = c(thisWeekEnd, lastWeekEnd, thisWeekEnd),
        row.names = c("thisWeek", "lastWeek","total"),
        stringsAsFactors = FALSE)
}
getData <- function(start, end, ...) {
    get_ga(..., start.date = start, end.date = end, "ga:sessions,ga:uniqueEvents")

}

ui <- shinyUI(fluidPage(
    title = "Test RGA input",
    tableOutput("data")
))

server <- shinyServer(function(input, output) {
    GAData <- NULL
    dates <- getDates()
    GAData <- cbind(df, t(mapply(getData, dates$start, dates$end, profileId = id)))
    output$data <- renderTable({
        validate(need(!is.null(GAData), "Loading data..."))
        GAData
    })
})

shinyApp(ui, server)

使用Shiny应用程序对多个Google AnalyticsAPI查询进行映射

1 个答案: