Update package metadata for v0.2.0

Require Shiny at app startup
Some of our examples omit library(shiny) from the top of ui.R and server.R, which worked fine before but not with the namespace fix from yesterday. Requiring shiny at startup fixes the problem.
2026-01-11 07:58:11 -05:00 · 2012-11-27 16:32:27 -08:00 · 2012-11-27 16:29:01 -08:00 · 2012-11-26 21:48:12 -08:00 · 2012-11-26 21:45:28 -08:00 · 2012-11-24 01:47:47 -08:00
6 changed files with 27 additions and 11 deletions
--- a/4
+++ b/4
@@ -1,8 +1,8 @@
 Package: shiny
 Type: Package
 Title: Web Application Framework for R
-Version: 0.1.13
-Date: 2012-11-23
+Version: 0.2.0
+Date: 2012-11-27
 Author: RStudio, Inc.
 Maintainer: Joe Cheng <joe@rstudio.org>
 Description: Shiny makes it incredibly easy to build interactive web
--- a/13
+++ b/13
@@ -1,3 +1,16 @@
+shiny 0.2.0
+--------------------------------------------------------------------------------
+
+* Fix subtle name resolution bug--the usual symptom being S4 methods not being
+  invoked correctly when called from inside of ui.R or server.R
+
+
+shiny 0.1.14
+--------------------------------------------------------------------------------
+
+* Fix slider animator, which broke in 0.1.10
+
+
 shiny 0.1.13
 --------------------------------------------------------------------------------

--- a/R/shiny.R
+++ b/R/shiny.R
@@ -412,7 +412,7 @@ dynamicHandler <- function(filePath, dependencyFiles=filePath) {
      if (file.exists(filePath)) {
        local({
          cacheContext$with(function() {
-            source(filePath, local=TRUE)
+            source(filePath, local=new.env(parent=.GlobalEnv))
          })
        })
      }
@@ -659,7 +659,7 @@ startApp <- function(port=8101L) {
  serverFileTimestamp <- NULL
  local({
    serverFileTimestamp <<- file.info(serverR)$mtime
-    source(serverR, local=TRUE)
+    source(serverR, local=new.env(parent=.GlobalEnv))
    if (is.null(.globals$server))
      stop("No server was defined in server.R")
  })
@@ -733,7 +733,7 @@ startApp <- function(port=8101L) {
          shinyServer(NULL)
          local({
            serverFileTimestamp <<- mtime
-            source(serverR, local=TRUE)
+            source(serverR, local=new.env(parent=.GlobalEnv))
            if (is.null(.globals$server))
              stop("No server was defined in server.R")
          })
@@ -813,6 +813,8 @@ runApp <- function(appDir=getwd(),
  setwd(appDir)
  on.exit(setwd(orig.wd))
  
+  require(shiny)
+  
  ws_env <- startApp(port=port)
  
  if (launch.browser) {
--- a/R/slider.R
+++ b/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()
--- a/inst/examples/10_download/server.R
+++ b/inst/examples/10_download/server.R
@@ -12,7 +12,8 @@ shinyServer(function(input, output) {
  
  output$downloadData <- downloadHandler(
    filename = function() { paste(input$dataset, '.csv', sep='') },
-    content = function(conn) {
-      write.csv(datasetInput(), conn)
-    })
+    content = function(con) {
+      write.csv(datasetInput(), con)
+    }
+  )
 })
--- a/inst/examples/10_download/ui.R
+++ b/inst/examples/10_download/ui.R
@@ -1,5 +1,5 @@
 shinyUI(pageWithSidebar(
-  headerPanel('Download Example'),
+  headerPanel('Downloading Data'),
  sidebarPanel(
    selectInput("dataset", "Choose a dataset:", 
                choices = c("rock", "pressure", "cars")),
Author	SHA1	Message	Date
Joe Cheng	58318fec46	Update package metadata for v0.2.0	2012-11-27 16:32:27 -08:00
Joe Cheng	a49941113e	Require Shiny at app startup Some of our examples omit library(shiny) from the top of ui.R and server.R, which worked fine before but not with the namespace fix from yesterday. Requiring shiny at startup fixes the problem.	2012-11-27 16:29:01 -08:00
Joe Cheng	595801cb99	Trivial style copy edits to example 10_download	2012-11-26 21:48:12 -08:00
Joe Cheng	0b469f09df	Fix subtle name resolution bugs See in particular: http://stackoverflow.com/questions/13575353/how-does-the-shiny-r-package-deal-with-data-frames Also reported at different times by Dirk Eddelbuettel and Jay Emerson. The observed behavior is that S3/S4 method dispatch does not always seem to work; the desired methods are not invoked despite appearing to be in the search path. The problem was that sourcing files with local=TRUE creates a new environment based on the parent frame, which in our case is Shiny's package environment. What we really want is to read from the global environment but write to a throwaway environment. The correct way to do that is to make a new environment with .GlobalEnv as the parent.	2012-11-26 21:45:28 -08:00
Joe Cheng	1e1f4e4a47	Update metadata for 0.1.14	2012-11-24 01:47:47 -08:00
Joe Cheng	c63e2ae7c8	Fix slider animation controls	2012-11-24 00:30:44 -08:00