De acuerdo Carlos pero en mi ordenador no funciona y me da el error que he 
comentado.

Muchas gracias por tu colaboración.

Saludos,

Juan


El 04/03/2018 a las 20:09, Carlos J. Gil Bellosta escribió:
Corre perfectamente en mi máquina si borro la última línea 
(print(environment(show))).

Simplemente, he creado un directorio vacío (/tmp/prueba), he copiado el código 
(menos esa última línea) en el fichero /tmp/prueba/app.R. En una sesión de R he 
hecho

library(shiny)
runApp("/tmp/prueba")

Y ha funcionado perfectamente.

Un saludo,

Carlos J. Gil Bellosta
http://www.datanalytics.com

El dom., 4 mar. 2018 a las 19:57, Juan Antonio Gil 
(<j...@edu.uned.es<mailto:j...@edu.uned.es>>) escribió:

Carlos el código es el ejemplo de shiny:

#
# This is a Shiny web application. You can run the application by clicking
# the 'Run App' button above.
#
# Find out more about building applications with Shiny here:
#
#    http://shiny.rstudio.com/
#

#setwd("C:/curso 2017-18/curso R/shiny/prueba1")
library(shiny)

# Define UI for application that draws a histogram
ui <- fluidPage(

   # Application title
   titlePanel("Old Faithful Geyser Data"),

   # Sidebar with a slider input for number of bins
   sidebarLayout(
      sidebarPanel(
         sliderInput("bins",
                     "Number of bins:",
                     min = 1,
                     max = 50,
                     value = 30)
      ),

      # Show a plot of the generated distribution
      mainPanel(
         plotOutput("distPlot")
      )
   )
)

# Define server logic required to draw a histogram
server <- function(input, output) {

   output$distPlot <- renderPlot({
      # generate bins based on input$bins from ui.R
      x    <- faithful[, 2]
      bins <- seq(min(x), max(x), length.out = input$bins + 1)

      # draw the histogram with the specified number of bins
      hist(x, breaks = bins, col = 'darkgray', border = 'white')
   })
}

# Run the application
shinyApp(ui = ui, server = server)
print(environment(show))


El código funciona en otro ordenador con windows 10 con R de 32 bits. Donde no 
funciona es R de 64 bits
Respecto al directorio no es el problema, está probado.

Saludos,

Juan



El 04/03/2018 a las 19:48, Carlos J. Gil Bellosta escribió:
Hola, ¿qué tal?

Sin ver el código, es difícil de diagnosticar. Si funcionaba en otro ordenador, 
todavía más.

Buscando ese error por internet decía que puede ocurrir si se ejecuta la app 
desde un directorio que no es el de trabajo. Es raro, pero si, como dices, en 
otro ordenador funcionaba... Pero es puramente especulativo.

Un saludo,

Carlos J. Gil Bellosta
http://www.datanalytics.com



El dom., 4 mar. 2018 a las 19:18, Juan Antonio Gil 
(<j...@edu.uned.es<mailto:j...@edu.uned.es>>) escribió:
Estimados compañeros tengo un problema con shiny. Es un problema local de mi 
ordenador, porque en otro va si problemas pero no consigo saber ¿cómo 
arreglarlo?. He instalado incluso la nueva versión de Rstudio. Os explico:

1) lanzo el programa app.R, el ejemplo de shiny e intenta mostrar los 
resultados pero si hago: print(environment(show)) da como resultado

Error in func(fname, ...) : app.R did not return a shiny.appobj object.

pero he mirado en internet el error y no consigo descifrar el problema.

¿Qué puede ser?


Saludos,

Juan



--
Juan Antonio Gil Pascual
Matemático, estadístico, especialista en Text Mining
correo: 
jm...@telefonica.net<mailto:jm...@telefonica.net><mailto:jm...@telefonica.net<mailto:jm...@telefonica.net>>
web: www.jgil.acta.es<http://www.jgil.acta.es><http://www.jgil.acta.es>

AVISO LEGAL. Este mensaje puede contener informació...{{dropped:16}}

_______________________________________________
R-help-es mailing list
R-help-es@r-project.org<mailto:R-help-es@r-project.org>
https://stat.ethz.ch/mailman/listinfo/r-help-es


--
Juan Antonio Gil Pascual
Matemático, estadístico, especialista en Text Mining
correo: jm...@telefonica.net<mailto:jm...@telefonica.net>

web: www.jgil.acta.es<http://www.jgil.acta.es>

AVISO LEGAL. Este mensaje puede contener información reservada y confidencial. 
Si usted no es el destinatario no está autorizado a copiar, reproducir o 
distribuir este mensaje ni su contenido. Si ha recibido este mensaje por error, 
le rogamos que lo notifique al remitente.
Le informamos de que sus datos personales, que puedan constar en este mensaje, 
están incorporados a un fichero titularidad de la UNED cuya finalidad es la de 
mantener el contacto con usted. En cualquier momento podrá ejercer sus derechos 
de acceso, rectificación, cancelación y oposición ante la UNED, Departamento de 
Política Jurídica de Seguridad de la 
Información<http://portal.uned.es/portal/page?_pageid=93,24432769,93_24432770&_dad=portal&_schema=PORTAL>,
 o a través de la Sede electrónica<https://sede.uned.es/> de la Universidad.


--
Juan Antonio Gil Pascual
Matemático, estadístico, especialista en Text Mining
correo: jm...@telefonica.net<mailto:jm...@telefonica.net>
web: www.jgil.acta.es<http://www.jgil.acta.es>

AVISO LEGAL. Este mensaje puede contener información reservada y confidencial. 
Si usted no es el destinatario no está autorizado a copiar, reproducir o 
distribuir este mensaje ni su contenido. Si ha recibido este mensaje por error, 
le rogamos que lo notifique al remitente.
Le informamos de que sus datos personales, que puedan constar en este mensaje, 
están incorporados a un fichero titularidad de la UNED cuya finalidad es la de 
mantener el contacto con usted. En cualquier momento podrá ejercer sus derechos 
de acceso, rectificación, cancelación y oposición ante la UNED, Departamento de 
Política Jurídica de Seguridad de la 
Información<http://portal.uned.es/portal/page?_pageid=93,24432769,93_24432770&_dad=portal&_schema=PORTAL>,
 o a través de la Sede electrónica<https://sede.uned.es/> de la Universidad.

        [[alternative HTML version deleted]]

_______________________________________________
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Responder a