ismirsehregal

Installing and Configuring FreeTDS on Ubuntu 14.04.4 LTS and Establish a Connection via PHP PDO

Install

sudo apt-get install -y unixodbc unixodbc-dev unixodbc-bin libodbc1 odbcinst1debian2 tdsodbc php5-odbc

There are packages for this now!

2017-08-03: Since I wrote this in 2014, the universe, specifically Kirill Müller (https://github.com/krlmlr), has provided better solutions to this problem. I now recommend that you use one of these two packages:

rprojroot: This is the main package with functions to help you express paths in a way that will "just work" when developing interactively in an RStudio Project and when you render your file.
here: A lightweight wrapper around rprojroot that anticipates the most likely scenario: you want to write paths relative to the top-level directory, defined as an RStudio project or Git repo. TRY THIS FIRST.

I love these packages so much I wrote an ode to here.

I use these packages now instead of what I describe below. I'll leave this gist up for historical interest. 😆

	<html>
	<!-- See also: http://kempe.net/blog/2014/06/14/leaflet-pan-zoom-image.html -->
	<head>
	<link rel="stylesheet" href="http://cdn.leafletjs.com/leaflet-0.7.3/leaflet.css"></script>
	<style>
	#image-map {
	width: 100%;
	height: 300px;
	border: 1px solid #ccc;
	margin-bottom: 10px;

	library(shiny)
	library(shinyjs)



	# Get table metadata. For now, just the fields
	# Further development: also define field types
	# and create inputs generically
	GetTableMetadata <- function() {
	fields <- c(id = "Id",


	library(shiny)
	library(dplyr)
	library(lubridate)

	# Load libraries and functions needed to create SQLite databases.
	library(RSQLite)
	library(RSQLite.extfuns)
	saveSQLite <- function(data, name){
	path <- dplyr:::db_location(filename=paste0(name, ".sqlite"))

	library(shiny)

	## test dataframe
	df <- data.frame(option1 = c("A","A","B","B","C","C"),
	option2 = c("A1","A2","B3","B1","C2","C3"),
	option3 = c(T,F,T,F,T,F),
	option4 = c("a","b","c","d","e","f"))

	shinyServer(function(input, output, session) {

	max_plots <- 5

	ui <- fluidPage(

	headerPanel("Dynamic number of plots"),

	sidebarPanel(
	sliderInput("n", "Number of plots", value=1, min=1, max=5)
	),