shiny-server

问题 I am developing an app in Shiny and I got stuck in summing the values entered in dynamically created textBox. I want to know how to access the value entered in dynamically created textBox. The RCode used is as follows: library(shiny) ui <- fluidPage ( fluidRow( column(3,numericInput("count", "No. of boxes",value = 4, min = 2, max = 10), actionButton("View","view") ), ), fluidRow( uiOutput("inputGroup") ), fluidRow( column(3,wellPanel(textOutput("text3"))) ) ) sum = 0 sumN <- function(x){ sum

问题 I'm trying to build an app in which I can select the data file (input$dataset), then add a new datetime column formatting date and time previous columns to make plots with ggplot2. I use 'within' that previously worked in batch scripts and in Rstudio. But now I get this error message: no applicable method for 'within' applied to an object of class "reactive" How can I apply this method to a reactive object? Should I use another command? cbind? ddply? datos=reactive({ read.csv(input$dataset

问题 Any ideas how I can add HTTPS to Shiny apps? I came across a few guides below but not sure whether they are reliable or not. Adding Authentication to Shiny Server in 4 Simple Steps ADD AUTHENTICATION TO SHINY SERVER WITH NGINX Shiny https: Securing Shiny Open Source with SSL I probably should follow the one from r-bloggers because I have my Shiny server installed in Linode hosting servers. Any ideas? EDIT: I want to add https to my app's url, eg - currently I access my app via http:/

问题 Currently I have a function [degtest] which is created in the shiny server, that returns a list, return(list(datatable=datatable, predicttable=predicttable, esttable=esttable) I want this list to be accessible after the function has run so that I can use different parts of the list to be rendered separately. outlist <- reactive({ if(is.null(input$file2)){return(NULL)} if(input$d2 == 0){return(NULL)} with(data = reactdata$degdata, degtest(reactdata$degdata[,input$selectTemp], reactdata$degdata

问题 I am running shiny example in https://github.com/rstudio/shinyapps/blob/master/guide/guide.md . It works fine on my computer, but when i try to deploy on shiny server using RStudio, R console says: Application successfully deployed to http://epidemiologia-asppalermo.shinyapps.io/shinyprova" On my browser I get: "ERROR: object 'dataset' not found". In my working directory there are the following objects: diamonds (dataframe) dataset (dataframe, same as diamonds) server.R ui.R . I use R 3.1.0,

问题 I have a rather complex Shiny application and something weird happens: When I print out some of my intermediate steps the App makes, everything gets printed out twice. That means, everything gets evaluated etc. twice. I know without seeing the progamme its rather hard to tell what causes the problem, but maybe someone can pin point me (based on experierence/knowledge) what might be the problem. 回答1: Like I mentioned in the comment, isolate() should solve your problem. Beyond the documentation

问题 I'm fairly new to R, Shiny, Shiny Server and Ubuntu 12.04. After a long day I've got just about everything working except for actually having shiny-server host my app. I'm trying to host my app locally. This is my error: Error in library(ggplot2) : there is no package called ‘ggplot2’ Calls: runApp ... startAppDir -> sys.source -> eval -> eval -> library Execution halted And here is some relevant info generated by >sessionInfo(): R version 3.0.3 (2014-03-06) Platform: x86_64-pc-linux-gnu (64

问题 I am trying to build a app with shiny+gridSVG. This problem happened constantly and I have no idea about it. My server.R: library(grid) library(lattice) library(gridSVG) shinyServer(function(input, output) { data = reactive({ inFile = input$file1 if (is.null(inFile)) return(NULL) read.csv(inFile$datapath, header=input$header, sep=input$sep, quote=input$quote) }) featurelist = reactive({ return (colnames(data())) }) output$classUI = renderUI({ selectInput("classlabel","Classify by:",

问题 I want to CRUD(Create, read,update and delete) in a table in shiny app. it update and delete perfectly but when I want to add new record it does not show the input from slider when the textinput is filled. Sometimes it only shows the default of sliderInput which is 2 when the value of name is NULL. ui <- fluidPage( #use shiny js to disable the ID field shinyjs::useShinyjs(), #DT::dataTableOutput("responses"), shinyjs::disabled(textInput("id", "Id", "0")), textInput("name", "Name", ""),

问题 I am creating a shiny app. The goal is to create a custom filter initially from a dataset. After creating that filter, I want the options from one of the columns to dynamically change in the selectInput tab. The problem I am having is that when I reference the new dataset in the ui section of the shiny app, it doesn't recognize that dataframe. Below are my ui and server parts that work but I need to manually add the selectInput values. I want it to change automatically. Original App: ui # ui