Eflores89

#' City Prices Indexes
#'
#' A dataset of price index codes for 46 of the main Mexican cities. 
#' @format A data frame with 46 rows and 2 variables:
#' \describe{
#'   \item{city}{Name of city}
#'   \item{id}{indicator id, to be passed to inegi_series}
#' }
#' @source INEGI. Accesed Jan 2018.
#' @author Eduardo Flores 

Eflores89

 install.packages("needs")
 library(needs)
 needs(inegiR, banxicoR, nasadata, dplyr,
       magrittr, SOAR, RODBC, stringr, stringi,
       flexdashboard, shiny, shinyjs, ggplot2,
       reshape2, tidyr, devtools)

Eflores89

#Test shiny app
ui <- shinyUI(pageWithSidebar(
  headerPanel('Iris k-means clustering'),
  sidebarPanel(
    selectInput('xcol', 'X Variable', names(iris)),
    selectInput('ycol', 'Y Variable', names(iris),
                selected=names(iris)[[2]]),
    numericInput('clusters', 'Cluster count', 3,
                 min = 1, max = 9)
  ),

Eflores89

docs <- "C:/path/R Data Files"
a <- list.files(docs)[grepl(pattern = ".Rdata$", x = list.files(docs))]
n <- length(archivos)
loadRData <- function(fileName){
  #loads an RData file, and returns it
  load(fileName)
  get(ls()[ls() != "fileName"])
}

full_debate <- NULL

Eflores89

#!/usr/bin/env ruby
#
# Convert blogger (blogspot) posts to jekyll posts
#
# Basic Usage
# -----------
#
#   ./blogger_to_jekyll.rb feed_url
#
#  where `feed_url` can have the following format: