jamiesamson.co.uk Report : Visit Site

Technical data of the jamiesamson.co.uk

Geo IP provides you such as latitude, longitude and ISP (Internet Service Provider) etc. informations. Our GeoIP service found where is host jamiesamson.co.uk. Currently, hosted in United Kingdom and its service provider is Namesco Hosting THE .

HTTP Header Analysis

HTTP Header information is a part of HTTP protocol that a user's browser sends to called nginx containing the details of what the browser wants and will accept back from the web server.

DNS

HtmlToText

skip to content jamie samson data geek and r connoisseur menu home password protect(ish) your shiny app i have trawled through various blogs looking for ways in which to password protect my shiny apps. as a self described ‘coding moron’, i have struggled with some of the more complicated suggestions. so i set out to find the simplest, cleanest solution to my password protection woes, and here it is: disclaimer: this is not designed to give you high level password protection. anyone with advanced computer skills can easily circumnavigate this protection and view your app/data. library(shiny) ui <- fluidpage( # application title titlepanel("my password protected shiny app"), # sidebar with user input elements sidebarlayout( sidebarpanel( passwordinput("pwin", "passcode") ), # show a plot mainpanel( plotoutput("distplot") ) ) ) server <- function(input, output) { output$distplot <- renderplot({ #this is essentially your password code snippet. the below graoh will not run #unless you type the password; test validate( need(input$pwin=="test", "please enter the passcode" )) #generate data and draw plot x<-sample(1:10,10) y<-sample(1:10,10) plot(x,y) }) } #run the application shinyapp(ui = ui, server = server) author jamie samson posted on may 11, 2018 leave a comment on password protect(ish) your shiny app all about that base: some cool and useful functions for base plots and beyond you’re either in the ggplot gang or the base plot gang. despite what i joke to people about, i like ggplot, i have just plide my trade in base plot. along the way, i have found some pretty useful snippets of code that are handy for base and to a lesser extent ggplot. i will be updating this sporadically when i come across more useful functions. ##text and sequence manipulation #round up nice. round up a sequence to the nearest 10. roundupnice = function(x, nice=c(1:10)) { if(length(x) != 1) stop("'x' must be of length 1") 10^floor(log10(x)) * nice[[which(x <= 10^floor(log10(x)) * nice)[[1]]]] } #wrapping strings. for when you have lengthly text that you automatically want to spread across #multiple lines. the width argument determines where to cut the string. wrap_strings = function(vector_of_strings,width){sapply(vector_of_strings,fun=function(x){paste(strwrap(x,width=width), collapse="\n")})} #e.g. wrap_strings(mytxext,width=15) #if you have one line of text and want to split it up, then use the \n argument txt = "hugh jackman\nis my bae" #orientating the x-axis to a given angle (and not just those set via las). the srt number defines #the angle. remember to put xpd =true, so you can plot outside of the plotting area. text(x.range,1, srt = 50, adj= 1, xpd = true, labels = names) ##fine details #setting the transparency of colours. the second argument is the alpha level. 1 for non-transparent, #0 for completely transparent adjustcolor("blue",0.3) #this changes the height between text thats on 2 lines par(lheight=0.3) #if all else fails and you want to make the graph in excel, #then this handy function should do the trick write.excel <- function(x,row.names=false,col.names=true,...) { write.table(x,"clipboard",sep="\t",row.names=row.names,col.names=col.names,...) } author jamie samson posted on february 18, 2018 may 10, 2018 leave a comment on all about that base: some cool and useful functions for base plots and beyond story time with papa jamie one cool r package i have been using lately, is reporters . it essentially takes your plots etc and creates a powerpoint of these. the quality of these are pretty good. this has been really useful for me, as i have been doing a lot of ‘data story boards’ for client presentations. having a powerpoint story board of all of my figures allows me to visualise what results i have, and what will be good for a client. if you’re a scientist writing a paper, this package will also come in handy as it will allow you to essentially create a ppt of your plots, diagnostics from these and even tables! this is the final product here . #loading the package require(reporters) #create dummy variables x=1:200 y=jitter(1:200,50) #setting up an lm model m=lm(y~x) #set your working directory setwd() # create a powerpoint document. this is just an empty pptx doc at the moment plots = pptx() #create your first slide. this will be a title slide plots = addslide(plots, "section header") plots = addtitle(plots, "my storyline") #create a content slide plots = addslide(plots, "title and content") plots = addtitle(plots, "linear regression diagnostics") #wrap the plotting functions inside this wrapper. #important. anything you place in here such as functions, #will not be avialable outside of it. so i suggest just placing #the plotting stuff in here. plotlm.diag= function(){ #so we can have all of the plots on one page par(mfrow=c(2,2)) #plotting the diagnostics plot(m) } #this adds the plot to our empty plots title and content slide plots = addplot(plots, plotlm.diag,vector.graphic = t) #create a table output plots = addslide(plots, "title and content") plots = addtitle(plots, "my lm output") #the flextable output of the lm summary plots = addflextable(plots, vanilla.table(data.frame("terms"=row.names(data.frame(summary(m)$coefficients)), summary(m)$coefficients))) #create another content slide plots = addslide(plots, "title and content") plots = addtitle(plots, "my plot") plot1= function(){ plot(x,y) } plots = addplot(plots, plot1,vector.graphic = t) ####create ppt writedoc(plots, file = "mystoryline.pptx") author jamie samson posted on february 11, 2018 february 11, 2018 leave a comment on story time with papa jamie creating pretty dials r can do a lot of things really really well, but one thing it struggles to do (at least in base r anyway) is to create pretty visuals. i have recently been creating visuals for some clients and wrote some code to produce some pretty dials in r. i will start by building a simple dial, and then adding various bits to it. 1.simple dial ###create a sequence from your breaks breaks.min=seq(from=0,to=100,by=2) ###creating the dial shape get.poly <- function(a,b,r1=0.5,r2=1.0) { th.start <- pi*(1-a/100) th.end <- pi*(1-b/100) th <- seq(th.start,th.end,length=100) x <- c(r1*cos(th),rev(r2*cos(th))) y <- c(r1*sin(th),rev(r2*sin(th))) return(data.frame(x,y)) } ###a nice big empty plotting area par(mar=c(10,4,10,4)) plot(1,ylim=c(0,1),xlim=c(-1,1),type="n",axes=f,xlab="",ylab="") ###dialling in the numbers #where you want the dial to finish pos<-70 #the coloured section up to your position p<-get.poly(breaks[1],pos,0.75) polygon(p,col="lightgreen",border=na) #from your position to the end of the dial p<-get.poly(pos,breaks[11],0.75) polygon(p,col="lightgrey",border=na) ta da! here we have the output for the most simple of simple dials author jamie samson posted on february 10, 2018 leave a comment on creating pretty dials locator arrows in r when creating advanced visualisations in r, determining the coordinates of where to put your arrows or text can be a tricky thing. luckily, there is an awesome function in r called ‘ locator ‘. ##make a plot plot(1:10,1:10) ##place locations of two arrows loc.arrow<-locator(4) ##once this line is run, the console run line should be flashing. #click on a start and stop point of the where the first arrow should go, ##then the start and stop point on the second arrow. ##the console run line should then stop flashing ##run the loc.arrow line ##in this case loc.arrow $x [1] 2.828149 2.798691 5.332089 7.070118 $y [1] 4.646730 8.367149 7.477484 4.201897 #adding the arrows to the plot with(loc.arrow, arrows(x0=x[seq(1,4,by=2)], x1=x[seq(2,4,by=2)], y0=y[seq(1,4,by=2)], y1= y[seq(2,4,by=2)])) author jamie samson posted on february 10, 2018 february 10, 2018 leave a comment on locator arrows in r about i am head of data science and insights at www.mindfolio.com. i am a lover of r and consider myself an rtist in data visualisations. click here to read my full pr

URL analysis for jamiesamson.co.uk

https://connrsseur.wordpress.com/2018/02/10/creating-pretty-dials/#respond
https://connrsseur.wordpress.com/2018/02/18/all-about-that-base-some-cool-and-useful-functions-for-base-plots-and-beyond/
https://connrsseur.wordpress.com/2018/02/11/storytime-with-papa-jamie/
https://connrsseur.wordpress.com/2018/02/18/all-about-that-base-some-cool-and-useful-functions-for-base-plots-and-beyond/#respond
https://connrsseur.wordpress.com/2018/02/10/creating-pretty-dials/
https://connrsseur.wordpress.com/2018/02/10/locator-arrows-in-r/#respond
https://connrsseur.wordpress.com/2018/05/11/password-protectish-your-shiny-app/
https://connrsseur.wordpress.com/?domain=www.jamiesamson.co.uk/#content
https://connrsseur.wordpress.com/2018/02/11/storytime-with-papa-jamie/#respond
https://connrsseur.wordpress.com/2018/05/11/password-protectish-your-shiny-app/#respond
jamiesamson.co.uk

Whois Information

Whois is a protocol that is access to registering information. You can reach when the website was registered, when it will be expire, what is contact details of the site with the following informations. In a nutshell, it includes these informations;

Error for "jamiesamson.co.uk".

the WHOIS query quota for 2600:3c03:0000:0000:f03c:91ff:feae:779d has been exceeded
and will be replenished in 209 seconds

WHOIS lookup made at 13:23:58 29-Sep-2017

--
This WHOIS information is provided for free by Nominet UK the central registry
for .uk domain names. This information and the .uk WHOIS are:

Copyright Nominet UK 1996 - 2017.

You may not access the .uk WHOIS or use any data from it except as permitted
by the terms of use available in full at http://www.nominet.uk/whoisterms,
which includes restrictions on: (A) use of the data for advertising, or its
repackaging, recompilation, redistribution or reuse (B) obscuring, removing
or hiding any or all of this notice and (C) exceeding query rate or volume
limits. The data is provided on an 'as-is' basis and may lag behind the
register. Access may be withdrawn or restricted at any time.

  REFERRER http://www.nominet.org.uk

  REGISTRAR Nominet UK

SERVERS

  SERVER co.uk.whois-servers.net

  ARGS jamiesamson.co.uk

  PORT 43

  TYPE domain

DISCLAIMER
This WHOIS information is provided for free by Nominet UK the central registry
for .uk domain names. This information and the .uk WHOIS are:
Copyright Nominet UK 1996 - 2017.
You may not access the .uk WHOIS or use any data from it except as permitted
by the terms of use available in full at http://www.nominet.uk/whoisterms,
which includes restrictions on: (A) use of the data for advertising, or its
repackaging, recompilation, redistribution or reuse (B) obscuring, removing
or hiding any or all of this notice and (C) exceeding query rate or volume
limits. The data is provided on an 'as-is' basis and may lag behind the
register. Access may be withdrawn or restricted at any time.

  REGISTERED no

DOMAIN

  NAME jamiesamson.co.uk

NSERVER

  NS0.PHASE8.NET 81.88.63.114

  NS1.PHASE8.NET 85.233.160.68

  NS2.PHASE8.NET 85.233.164.62

Mistakes

The following list shows you to spelling mistakes possible of the internet users for the website searched .