inst/doc/posit-connect.R

In pins: Pin, Discover and Share Resources

## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  eval = requireNamespace("xml2", quietly = TRUE)
)

## ----setup--------------------------------------------------------------------
library(pins)

## -----------------------------------------------------------------------------
library(xml2)

if (interactive()) {
  xml <- read_xml("http://feeds.bbci.co.uk/news/rss.xml")  
} else {
  # Read a saved version of the data to keep this vignette reproducible
  xml <- read_xml("bbc-news.xml")  
}

items <- xml %>% xml_find_all("//item")

bbc_news <- tibble::tibble(
  title = items %>% xml_find_first("./title") %>% xml_text(),
  date = items %>% xml_find_first("./pubDate") %>% xml_text(),
  url = items %>% xml_find_first("./guid") %>% xml_text()
)
bbc_news

## ----eval = FALSE-------------------------------------------------------------
#  board <- board_connect()
#  board %>% pin_write(bbc_news)

## ----eval=FALSE---------------------------------------------------------------
#  board <- board_connect()
#  board %>% pin_read("your_name/bbc_news")

## ----echo = FALSE, comment = ""-----------------------------------------------
cat(readLines("connect-automate.txt"), sep = "\n")

## ----eval=FALSE---------------------------------------------------------------
#  library(shiny)
#  library(pins)
#  
#  board <- board_connect()
#  
#  ui <- fluidPage(
#    titlePanel("News from the BBC"),
#    htmlOutput("news")
#  )
#  
#  server <- function(input, output, session) {
#    news <- board %>% pin_reactive_read("hadley/bbc_news")
#  
#    output$news <- renderUI({
#      title <- htmltools::htmlEscape(news()$title)
#      links <- paste0("<a href='", news()$url, "'>", title, "</a>")
#      bullets <- paste0("  <li>", links, "</li>", collapse = "\n")
#      HTML(paste0("<ul>", bullets, "</ul>"))
#    })
#  }
#  
#  shinyApp(ui, server)