shinyapps.io：来自 API 的数据（read_lines()）答案

【问题标题】：shinyapps.io: data from API (read_lines())shinyapps.io：来自 API 的数据（read_lines()）
【发布时间】：2019-02-04 19:24:40
【问题描述】：

我是闪亮的新手。我的第一个项目是构建一个显示用户选择日期的 NBA 得分的应用程序。当我在本地机器上运行它时它工作得很好，但当我部署到 shinyapps.io 时它就不能工作了。

到目前为止，我对其进行了调试，发现什么不起作用。显然，该应用不会从 NBA API 读取数据。

这是我正在做的代码示例：

library(shiny)
library(tidyverse)
library(lubridate)
library(glue)

ui <- fluidPage(

  # Application title
  titlePanel("Get NBA Scores"),

  # Select date
  sidebarLayout(
    sidebarPanel(
      dateInput(inputId = "date",
                label = "Select Date")
    ),

    mainPanel(
      textOutput("boxscores")
    )
  )
)

server <- function(input, output) {

  date <- reactiveValues()
  url <- reactiveValues()
  nba <- reactiveValues()

  # add leading zero to day
  observe(date$day <- ifelse(nchar(day(as.character(input$date))) == 1, paste0("0", day(as.character(input$date))), day(as.character(input$date))))

  # add leading zero to month
  observe(date$month <- ifelse(nchar(month(as.character(input$date))) == 1, paste0("0", month(as.character(input$date))), month(as.character(input$date))))

  # extract year
  observe(date$year <- year(as.character(input$date)))

  # create url
  observe(url$url1 <- glue("http://stats.nba.com/stats/scoreboard/?GameDate={date$month}/{date$day}/{date$year}&LeagueID=00&DayOffset=0"))

  #import data
  observe(nba$nba <- read_lines(url$url1))

  output$boxscores <- renderText({
    #plot raw data
    nba$nba
  })     
}

# Run the application 
shinyApp(ui = ui, server = server)

当我只想使用显示网址时

output$boxscores <- renderText({
  #plot url
  url$url1
})

它工作正常。但是当我想获取外部数据时，它什么也没有显示（甚至没有错误）。

我做错了吗？还是无法在 shinyapps.io 上读取外部数据？

感谢您的帮助。

【问题讨论】：

标签： r shiny shiny-reactivity

【解决方案1】：

我还在 RStudio 社区中发布了这个问题。 shinyapps.io 托管在 AWS 上，似乎 NBA 统计数据正在阻止来自 AWS 的请求。见这里：https://community.rstudio.com/t/shinyapps-io-data-from-api-read-lines/22936/2

【讨论】：