Question: I'm trying to use the following style to create a text-stroke using text-shadow:

```
.text-stroke {
text-shadow: -1px -1px 0 white,
1px -1px 0 white,
-1px 1px 0 white,
1px 1px 0 white;
}

```

It doesn't work for the mobile versions of Firefox and Chrome. Is there anything I can do to make it work in mobile?

Answer: 
How about something like this? You may need to `install.packages("ggplot2")`

```
library(ggplot2)
my_df <- data.frame(uni=runif(100),
                    norm=rnorm(100),
                    bino=rbinom(100, 20, 0.5))
get_histogram <- function(df, varname, binwidth=1, save=T) {
    stopifnot(varname %in% names(df))
    title <- sprintf("Histogram of %s", varname)
    p <- (ggplot(df, aes_string(x=varname)) +
          geom_histogram(binwidth=binwidth) +
          ggtitle(title))
    if(save) {
        filename <- sprintf("histogram_%s.png", gsub(" ", "_", varname))
        ggsave(filename, p, width=10, height=8)
    }
    return(p)
}
for(var in names(my_df))
    get_histogram(my_df, var, binwidth=0.5)  # If you want to save them
get_histogram(my_df, "uni", binwidth=0.1, save=F)  # If you want to look at a specific one

```
So I ended up with 2 functions, one that can iterate over data frames, and another that takes a single vectors. Using parts of Adrian's [thanks!] solution: 

`hist_dataframe <- function(variable, col ="gold1", ...) {
 stopifnot(colName %in% colnames(df))
 variable = df[,colName]
 stopifnot(length (variable) >1 )
 plotname = paste(substitute(df),'__', colName, sep="")
 FnP = paste (getwd(),'/',plotname, '.hist.pdf', collapse = "", sep=""); print (FnP)
 hist (variable, main = plotname)
 dev.copy2pdf (file=FnP )
}`

And the one for simple vectors stays as in Q.