BroVic

# install.packages('xlsx')
library(dplyr)

vals <- sapply(ls(pos = "package:dplyr"), function(x) {
  if (is.function(get(x)))
    return(TRUE)
  FALSE
})

funcs <- vals[vals]

BroVic

library(naijR)

# 1. Draw plot of North-East GPZ
# First, get the states of interest
# Then, pass them to the mapping function's `region` parameter
ne <- states(gpz = "ne")
map_ng(
  region = ne,
  title = "North-East Geopolitical Zone",
  fill = TRUE,

BroVic

library(readxl)
library(tidyr)

# My Path. Use yours
path <-
  "~/Documents/5-Personal/Data/DATA  DHIS MONTHLY RI  TEMPLATE 5.xlsx"

riData <- read_xlsx(path = path)
riData <- riData[-c(2:3),]
hdr <- unname(unlist(riData[1,]))

BroVic

Interview Transcript
(Source: http://www.u.arizona.edu/~kimmehea/purdue/421/exampleinterview.htm)

Interviewer: Student

Interviewee: Associate Head of Mechanical Engineering

Interview Setting: Interview conducted in office of [professor's] office in the mechanical engineering building. The interview was conducted at 3:30 PM on Wednesday afternoon.

Affiliation with interviewee: Professor has been my professor for two classes. I have also spoken with him privately regarding attending graduate school and areas of study.

BroVic

# To run this script on computer with R installed:
# Open the command line in the folder where the script is saved.
# Make sure it is saved as "arise-720-reg.csv" (Overwrite any old version of the file)
# At the prompt, run:
#    
#    Rscript arise-720-reg.csv
#
# If run for the first time, an internet connection may be rerquired to download required packages.
#
tidypack <- "tidyverse"

BroVic

# Socket connections
# Client side
# http://blog.corynissen.com/2013/05/using-r-to-communicate-via-socket.html

client <- function(){
  while (TRUE) {
    con <- socketConnection(host = "localhost", port = 6011, blocking = TRUE,
                            server = FALSE, open = "r+")
    f <- file("stdin")
    open(f)

BroVic

.Rhistory

BroVic

# install-pssqlite.ps1

# Copyright (c) 2018 Victor Ordu. All rights reserved.
# See LICENSE for details.

Write-Verbose "Checking for avaiablity of PSSQLite Module"

# Check if SQLite is (properly) installed
if(-not $ENV:Path.Contains('sqlite')) {
    Write-Error "'sqlite3' does not exist or is not on system PATH."

BroVic

# Inspired by https://www.ecdc.europa.eu/en/publications-data/download-todays-data-geographic-distribution-covid-19-cases-worldwide

# System requirements: Recent version of R e.g. R-3.6.x (www.r-project.org)
#
# Running the script: 
# 1. From the command line: Navigate to directory where script is saved and
#                           there run this command:
#                               Rscript covid-ecdc.R
#
# 2. From the R console:    Call the `source()` function using the relative or

BroVic

# Why 'glue' and not 'paste' or 'sprintf'

# adapting the example
library(microbenchmark)
library(glue)

name <- "Fred"
age <- 30
anniversary <- as.Date('1991-10-12')