Shiny

问题 In my shiny application, I have 4 radio buttons which I want to render as two columns and two rows. But, when I run the app, the title label takes the first position making it three rows in first col and two rows in second col. The problem here is, the first radio button in the second column aligns with the label instead of the first radio button in column one. How do i rectify this? The code so far is as follows: library(shiny) radioLab <-list(tags$div(align = 'left', class = 'multicol',

问题 I am trying to create a dynamic conditional panel. So my conditions are as follows: Input in UI: selectInput('inpt','Input Number', seq(1,50,1), selectize = FALSE) My conditional panel UI input is: conditionalPanel( "input.inpt == 2", box( selectInput("id1", "Select number", seq(1, 24, 1), selected = 1), selectInput("id2", "Select number", seq(1, 24, 1), selected = 1), width = 2, status = "primary" ) ), conditionalPanel( "input.inpt == 3", box( selectInput("id1", "Select number", seq(1, 24, 1

问题 I am trying to create a dynamic conditional panel. So my conditions are as follows: Input in UI: selectInput('inpt','Input Number', seq(1,50,1), selectize = FALSE) My conditional panel UI input is: conditionalPanel( "input.inpt == 2", box( selectInput("id1", "Select number", seq(1, 24, 1), selected = 1), selectInput("id2", "Select number", seq(1, 24, 1), selected = 1), width = 2, status = "primary" ) ), conditionalPanel( "input.inpt == 3", box( selectInput("id1", "Select number", seq(1, 24, 1

问题 I have a Shiny application in a Docker container hosted on Microsoft Azure WebApp. The application doesn't work anymore when log in with Azure Active Directory is activated. The application page is accessible but a error 500 is returned on websocket content as shown on the Firefox network trace. This error is not present without log in with AAD. I've tried adding the following options to /etc/shiny-server/shiny-server.conf : sanitize_errors off; disable_protocols websocket xdr-polling; This

问题 I'm trying to make an interactive chart that plots financial stock data on a shiny app. My attempt is to update continuously the data, hence the chart. I managed this using a package called Highcharter. Below it's shown a part of code in the server part (getDataIntraday() receive two input and returns updated xts). getID <- reactive({ invalidateLater(60000) y <- getDataIntraDay(input$text, input$radio) return(y) }) output$plot1 <- renderHighchart({ y <- getID() highchart() %>% hc_credits

问题 I'm trying to make an interactive chart that plots financial stock data on a shiny app. My attempt is to update continuously the data, hence the chart. I managed this using a package called Highcharter. Below it's shown a part of code in the server part (getDataIntraday() receive two input and returns updated xts). getID <- reactive({ invalidateLater(60000) y <- getDataIntraDay(input$text, input$radio) return(y) }) output$plot1 <- renderHighchart({ y <- getID() highchart() %>% hc_credits

问题 I'm trying to make an interactive chart that plots financial stock data on a shiny app. My attempt is to update continuously the data, hence the chart. I managed this using a package called Highcharter. Below it's shown a part of code in the server part (getDataIntraday() receive two input and returns updated xts). getID <- reactive({ invalidateLater(60000) y <- getDataIntraDay(input$text, input$radio) return(y) }) output$plot1 <- renderHighchart({ y <- getID() highchart() %>% hc_credits

问题 I have a plot of waves where I need to identify each peak in the curve: I would like to do the following: Reactively add points to the plot where I click to mark the presence of each peak. ui.R plotOutput("plot1", click = "plot_click") server.R output$plot1 <- renderPlot({ plot(x,y) points(x=input$plot_click$x,y=input$plot_click$y) }) The problem here is that although the 'plot_click' mechanism identifies the x and y position of the points- the 'points()' command only causes points to appear

问题 I have a plot of waves where I need to identify each peak in the curve: I would like to do the following: Reactively add points to the plot where I click to mark the presence of each peak. ui.R plotOutput("plot1", click = "plot_click") server.R output$plot1 <- renderPlot({ plot(x,y) points(x=input$plot_click$x,y=input$plot_click$y) }) The problem here is that although the 'plot_click' mechanism identifies the x and y position of the points- the 'points()' command only causes points to appear

问题 In my Shiny app I want to open several URL's with a short delay between opening. Here is some example code that works just fine when I run the app in my RStudio. library(shiny) URLs <- c("http://www.google.com", "http://www.stackoverflow.com") ui <- fluidPage( actionButton( "click", "Click here to open several browser tabs" ) ) server <- function(input, output){ observeEvent(input$click, { for (i in URLs){ browseURL(i) Sys.sleep(1) #Short delay of 1 second } }) } shinyApp(ui, server) However,