shinyapps

问题 I have randomly generated a reproducible example of range . And I wish that my input will store in the Global Environment ( selectednumbers ). So when I run the shinyApp , let's say I choose the slidebarInput between 1 and 100 , the verbatimTextOutput will shows (which I satisfied): [1] 1 2 3 6 8 11 15 17 20 21 22 27 But when I checked for the selectednumbers (Global Environment), it shows (which I don't want): [1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 [21] 21 22 23 24 25 26 27

问题 I have a very simple Shiny app as below - library(shiny) ui <- fluidPage( div(id = "01", style = "cursor:pointer; height: 300px; width: 300px; text-align: center; background-color: green", HTML("01")), div(id = "02", style = "cursor:pointer; height: 300px; width: 300px; text-align: center; background-color: blue", HTML("02")), div(id = "03", style = "cursor:pointer; height: 300px; width: 300px; text-align: center; background-color: red", HTML("03")), plotOutput("plot") ) shinyApp(ui, server =

问题 I have a very simple Shiny app as below - library(shiny) ui <- fluidPage( div(id = "01", style = "cursor:pointer; height: 300px; width: 300px; text-align: center; background-color: green", HTML("01")), div(id = "02", style = "cursor:pointer; height: 300px; width: 300px; text-align: center; background-color: blue", HTML("02")), div(id = "03", style = "cursor:pointer; height: 300px; width: 300px; text-align: center; background-color: red", HTML("03")), plotOutput("plot") ) shinyApp(ui, server =

问题 I'm trying to insert a shinyAmBarCharts chart within a flexdashboard with Shiny runtime. The final goal would be to use the modifiable chart as an input to other charts/models. So far I've been unsuccessful, because the amBarChart does not render in the dashboard. This is a sample code: --- title: "shinyAmBarCharts" output: flexdashboard::flex_dashboard: orientation: columns vertical_layout: fill runtime: shiny --- ```{r setup, include=FALSE} library(flexdashboard) library(shiny) library

问题 I'm trying to insert a shinyAmBarCharts chart within a flexdashboard with Shiny runtime. The final goal would be to use the modifiable chart as an input to other charts/models. So far I've been unsuccessful, because the amBarChart does not render in the dashboard. This is a sample code: --- title: "shinyAmBarCharts" output: flexdashboard::flex_dashboard: orientation: columns vertical_layout: fill runtime: shiny --- ```{r setup, include=FALSE} library(flexdashboard) library(shiny) library

问题 I'm trying to insert a shinyAmBarCharts chart within a flexdashboard with Shiny runtime. The final goal would be to use the modifiable chart as an input to other charts/models. So far I've been unsuccessful, because the amBarChart does not render in the dashboard. This is a sample code: --- title: "shinyAmBarCharts" output: flexdashboard::flex_dashboard: orientation: columns vertical_layout: fill runtime: shiny --- ```{r setup, include=FALSE} library(flexdashboard) library(shiny) library

问题 I'm trying to build an app, which is doing something similar to this post. I want point coordinates to be copied to a clipboard by every click. I've just copied it as an example with a small modification in observeEvent . library(shiny) library(dygraphs) library(clipr) ui = fluidPage( mainPanel( dygraphOutput("dygraph"), br(), textOutput("clicked", inline = TRUE) ) ) server = function(input, output) { output$dygraph <- renderDygraph({ dygraph(ldeaths) }) output$clicked <- renderText({

问题 I'm trying to build an app, which is doing something similar to this post. I want point coordinates to be copied to a clipboard by every click. I've just copied it as an example with a small modification in observeEvent . library(shiny) library(dygraphs) library(clipr) ui = fluidPage( mainPanel( dygraphOutput("dygraph"), br(), textOutput("clicked", inline = TRUE) ) ) server = function(input, output) { output$dygraph <- renderDygraph({ dygraph(ldeaths) }) output$clicked <- renderText({

问题 I'm using the renderPrint function in a ShinyApp to show calculation results. The results come with a [1],[2] etc in front. Is there a way to get rid of that? Also, can one change fonts of the output? 回答1: You could use renderText instead of renderPrint . Or maybe withMathJax() could also be an option? For styling your app, there are several ways to do that. You can read about that here. I include the css directly in the app in the following example. For small adaptations thats maybe the

问题 with some CSS code found in different old posts on Stackoverflow I managed to change the placeholder colour of every selectizeInput and selectInput widget of my shinyapp, but it seems that this code doesn't work for the textInput widgets. Below you can find a basic reproducible example: library(shiny) ui <- fluidPage( tags$style(HTML("::placeholder { /* Chrome, Firefox, Opera, Safari 10.1+ */ color: red; opacity: 1; /* Firefox */} :-ms-input-placeholder { /* Internet Explorer 10-11 */ color: