Update metadata for 0.1.14

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: shiny
 Type: Package
 Title: Web Application Framework for R
-Version: 0.1.12
-Date: 2012-11-21
+Version: 0.1.14
+Date: 2012-11-24
 Author: RStudio, Inc.
 Maintainer: Joe Cheng <joe@rstudio.org>
 Description: Shiny makes it incredibly easy to build interactive web

NEWS

@@ -1,3 +1,15 @@
+shiny 0.1.14
+--------------------------------------------------------------------------------
+
+* Fix slider animator, which broke in 0.1.10
+
+
+shiny 0.1.13
+--------------------------------------------------------------------------------
+
+* Fix temp file leak in reactivePlot
+
+
 shiny 0.1.12
 --------------------------------------------------------------------------------
 

R/shinywrappers.R

@@ -55,6 +55,7 @@ reactivePlot <- function(func, width='auto', height='auto', ...) {
       return(NULL)
     
     do.call(png, c(args, filename=png.file, width=width, height=height))
+    on.exit(unlink(png.file))
     tryCatch(
       func(),
       finally=dev.off())

R/slider.R

@@ -101,13 +101,13 @@ slider <- function(inputId, min, max, value, step = NULL, ...,
   }
   
   # build slider
-  sliderFragment <- tags$input(
+  sliderFragment <- list(tags$input(
     id=inputId, type="slider", 
     name=inputId, value=paste(value, collapse=';'), class="jslider",
     'data-from'=min, 'data-to'=max, 'data-step'=step,
     'data-skin'='plastic', 'data-round'=round, 'data-locale'=locale,
     'data-format'=format, 'data-scale'=ticks,
-    'data-smooth'=FALSE)
+    'data-smooth'=FALSE))
 
   if (identical(animate, TRUE))
     animate <- animationOptions()