Shiny

问题 I am having issues when trying to publish my Shiny app. Here is the code for the app I published: UI: library(shiny) library(ggplot2) library(dplyr) ui <- fluidPage( titlePanel("Visualizing Pitcher Statistics"), sidebarLayout( sidebarPanel( helpText("Data from Baseball Prospectus"), helpText("by Julien Assouline"), sliderInput("yearinput", "YEAR", min = 1970, max = 2016, value = c(2000, 2016), animate = TRUE), selectInput("xcol", "X Axis", choices = c("YEAR","AGE","NAME","G","GS","PITCHES",

问题 I have a shiny app running on AWS with Ubuntu. It uses mathjax and has been running perfectly for several weeks. Today it just stopped rendering the mathjax code. I did not make any changes to the system or the code. When I test the app locally I have the same issue. Anyone had similar problems? http://ec2-54-76-89-164.eu-west-1.compute.amazonaws.com:3838/Quizii Rekentoets 来源： https://stackoverflow.com/questions/25705703/mathjax-in-shiny-suddenly-stopped-working

问题 I am using assign in for loop to create new variables that I want to use in more than one outputs in shiny ui. Following is a sample code: library(shiny) ui <- fluidPage( mainPanel(fluidRow(textOutput("a")), fluidRow(textOutput("b"))) ) server <- function(input, output) { m <- reactive({1:5}) output$a <- renderPrint({ for (i in 1:length(m())){ assign(paste0("h",i), "u") } list(h1,h2) }) output$b <- renderPrint({ list(h1,h2) }) } shinyApp(ui = ui, server = server) Problem Each output in server

问题 I have a plotly plot in R Shiny. I want to be able to click many points and have them displayed in a table. The plot is working great and I can get 1 plotly_click (via event_data()) to show in a table. How can a grow a vector of many event_data points. Here is some sample code. I was trying to save the event in d_save. Thanks. library(shiny) library(plotly) data1 <- data.frame(cbind(seq(1,1000,1),seq(1,1000,1)*5)) colnames(data1) <- c('index','data') data_points <- data.frame(cbind(seq(1,1000

问题 I am planing on getting stock data from yahoo finance at the end of each business day (using quantmod). this data is then used to update my shiny app. Now I have to do this manually, I update my csv file which I than upload to shinyapps.io each day. This csv is used for the app. Is there a way to fully automate this in shiny/shinyapps.io ? Now I know that this has been asked here before, at least in a similar setting. However there has not been a helpful answer provided to setting up a cron

问题 I am looking for a code snippet using which, I can enable/disable sidebar toggle button in shinydashboard header. library(shiny) library(shinydashboard) library(shinyjs) ui <- shinyUI(dashboardPage( dashboardHeader(), dashboardSidebar(), dashboardBody( useShinyjs() ) )) server <- shinyServer(function(input, output, session) { addClass(selector = "body", class = "sidebar-collapse") # Hide Side Bar }) shinyApp(ui = ui, server = server) Let me know if anybody can help??? 回答1: I have found a

问题 I am fairly new to Shiny (and R for that matter) but I have managed to get an app up and running. I am however quite confused regarding the "execution order" that takes place when RStudio actually runs the two scripts server.R and ui.R To my mind there are 4 sections of code (2 for server.R script and 2 for ui.R script): server.R: ###### SECTION 1 shinyServer(function(input, output, session) { ###### SECTION 2 }) ui.R: ###### SECTION 1 shinyUI(fluidPage( ###### SECTION 2 ) ) My question is,

问题 Not certain why this simple code is not working. The goal is to upload an image from a device and view as shiny output. I keep getting an error, *****Error: invalid filename argument***** library(jpeg) library(shiny) library(magick) library(magrittr) ui <- fluidPage( #-------------------------------------Header Panel--------------------------------------------------# titlePanel('Invoice Recognition & Interpretation -IRI'), #--------------------------------Sidebar : Image Upload---------------

问题 I need to upload multiple csv files (dummy multiple files) and apply some operations to each of the files, and then merge the resultant dataframes into one dataframe and download the output as csv file. My raw R code works but I need to put it on shiny in order to automate the process, but somehow when I uploaded two files, I got this error: "subscript out of bounds". Help will be appreciated. This is my original raw R Code that worked: files = list.files("G:/JSON to CSV/merge") numfiles =

问题 My app works correctly locally on my computer when I use runApp(). The problem is when I want to deploy it it gives me an error that it can't find a function: ERROR: no se pudo encontrar la función "dmy" which translates to: ERROR: Could not find the function "dmy". I know this function is part of lubridate (which I have locally) and I know I should install it in the server but I can't. I've looked around and I can't find where library(lubridate) should go. Here is my code (sorry for the bad