bearloga

bearloga

bearloga

<script language="JavaScript">
$(function() {
  /* Lets the user click on the images to view them in full resolution. */
  $("div.figure img").wrap(function() {
    var link = $('<a/>');
    link.attr('href', $(this).attr('src'));
    link.attr('title', $(this).attr('alt'));
    link.attr('target', '_blank');
    return link;
  });

bearloga

#' Manual classification of observations
#' 
#' \code{classify} launches a Shiny app to manually classify a subset of observations.
#'
#' @param x A character vector.
#' @param btn_labels A character vector of length 2 corresponding to 0 and 1.
#' @return A vector of 0/1 for each element in \code{x}.
#' @export
#' @examples \dontrun{
#'  foo <- sprintf('%s (%.2f miles per gallon)', rownames(mtcars), mtcars$mpg)

bearloga

#!/bin/bash

# Usage: mkproj [projectname]
# projectname defaults to name of current directory

template="Version: 1.0\nRestoreWorkspace: Default\nSaveWorkspace: Default\nAlwaysSaveHistory: Default\n\nEnableCodeIndexing: Yes\nUseSpacesForTab: Yes\nNumSpacesForTab: 4\nEncoding: UTF-8\n\nRnwWeave: knitr\nLaTeX: pdfLaTeX"

wd=$(basename `pwd`)

if [ -z $1 ]; then

bearloga

library(rvest)

x <- "<dl>
  <dt>Coffee</dt>
  <dd>Black hot drink</dd>
  <dt>Milk</dt>
  <dd>White cold drink</dd>
</dl>"

y <- read_html(x)

bearloga

cocktails <- WikidataQueryServiceR::query_wikidata('
SELECT DISTINCT ?cocktailLabel ?ingredientLabel ?instanceOfLabel ?subclassLabel
WHERE
{
  ?cocktail wdt:P31/wdt:P279* wd:Q134768 .
  ?cocktail wdt:P186 ?ingredient .
  OPTIONAL {
    ?ingredient wdt:P279 ?subclass .
  }
  OPTIONAL {

bearloga

## Script for scraping Wikipedia for data to use with the geom_flag() prototype
## CONTACT: Mikhail Popov (@bearloga // mikhail[at]mpopov[dot]com)
## URL: https://gist.github.com/bearloga/519a701a6a9bc7c3ba9f

# install.packages("import")
library(rvest) # install.packages("rvest")
library(magrittr)

import::from(dplyr, mutate, select, keep_where = filter, left_join, distinct)

bearloga

header <- headerPanel("Hello Shiny!")
header[[2]]$attribs$id = "header"

ui <- fluidPage(
  tags$head(
    tags$link(rel = "stylesheet", type = "text/css", href = "custom.css")
  ),
  header,
  sidebarLayout(
    sidebarPanel(sliderInput("obs", "Number of observations:", min = 0, max = 1000, value = 500)),

bearloga

Test Run

Parameters

start_date	end_date	omit_times	disable_forecasts	help
2016-12-01	2016-12-02	FALSE	FALSE	FALSE

Reports