shiny-reactivity

问题 I am trying to create this dashboard with following structure. It basic structure has 3 levels (Menu, sub Menu and radioGroupButton selection) SideBar: Menu1: has 2 sub menus (Sub Menu 1 and Sub Menu2) Menu2 has 2 sub menus (Sub Menu 3 and Sub Menu4) The body has radioGroupButton that has 2 choices dashBoardBody: RadioGroupButton: Choice 1 and Choice 2 So when the user clicks Sub Menu1 and clicks Choice 1 then I need to display #A1 Sub Menu1 and clicks Choice 2 then I need to display #A2 Sub

问题 As an extension of this example: https://shiny.rstudio.com/gallery/creating-a-ui-from-a-loop.html Say you would like the for loop to be of a length determined by a numeric input. So for example, extending the linked example (using just the second part of it): ui <- fluidPage( title = 'Creating a UI from a dynamic loop length', sidebarLayout( sidebarPanel( # Determine Length of Loop numericInput(inputId = "NumLoop", "Number of Loops", value = 5, min = 1, max = 5, step = 1) ), mainPanel( # UI

问题 As an extension of this example: https://shiny.rstudio.com/gallery/creating-a-ui-from-a-loop.html Say you would like the for loop to be of a length determined by a numeric input. So for example, extending the linked example (using just the second part of it): ui <- fluidPage( title = 'Creating a UI from a dynamic loop length', sidebarLayout( sidebarPanel( # Determine Length of Loop numericInput(inputId = "NumLoop", "Number of Loops", value = 5, min = 1, max = 5, step = 1) ), mainPanel( # UI

问题 I am pretty new to R and was trying to build a small utility just for my learning. I have 3 fields in my excel workbook named: Country State Cities All these fields should come as a drop down in UI. What I want to achieve is: 'when I make a selection for Country, a new drop down for State should get created with a list of States that falls under the Country selected. And based on the state selected the underlying cities should get populated in the drop down' I found a few examples online, but

问题 I am pretty new to R and was trying to build a small utility just for my learning. I have 3 fields in my excel workbook named: Country State Cities All these fields should come as a drop down in UI. What I want to achieve is: 'when I make a selection for Country, a new drop down for State should get created with a list of States that falls under the Country selected. And based on the state selected the underlying cities should get populated in the drop down' I found a few examples online, but

问题 I have an R Shiny app with lots of reactive values in it, and one of them in particular is not reacting as I'd like it to. Here's the minimal reprex of what I'm working with (explanation follows): if(interactive()){ ## load required packages library(shiny) library(tidyverse) library(dplyr) source("https://raw.githubusercontent.com/samhoppen/2020_FF_Analysis/master/Functions/set_vor.R") projections <- read_csv("https://raw.githubusercontent.com/samhoppen/2020_FF_Analysis/master/Test_Data

问题 I have an R Shiny app with lots of reactive values in it, and one of them in particular is not reacting as I'd like it to. Here's the minimal reprex of what I'm working with (explanation follows): if(interactive()){ ## load required packages library(shiny) library(tidyverse) library(dplyr) source("https://raw.githubusercontent.com/samhoppen/2020_FF_Analysis/master/Functions/set_vor.R") projections <- read_csv("https://raw.githubusercontent.com/samhoppen/2020_FF_Analysis/master/Test_Data

问题 I want to use the output of ggtern() in a shiny app. However it seems to fail due to some constraints. This is what it should look like: This is the actual shiny output: See here for a reproducible example: library(shiny) library(ggtern) ui <- fluidPage( mainPanel( plotOutput("ggtern") ) ) server <- function(input, output) { output$ggtern <- renderPlot({ ggtern(data.frame(x=10, y=30, z=60), aes(x, y, z)) + geom_point() }) } shinyApp(ui = ui, server = server) Do I overlook something? 回答1:

问题 I want to use the output of ggtern() in a shiny app. However it seems to fail due to some constraints. This is what it should look like: This is the actual shiny output: See here for a reproducible example: library(shiny) library(ggtern) ui <- fluidPage( mainPanel( plotOutput("ggtern") ) ) server <- function(input, output) { output$ggtern <- renderPlot({ ggtern(data.frame(x=10, y=30, z=60), aes(x, y, z)) + geom_point() }) } shinyApp(ui = ui, server = server) Do I overlook something? 回答1:

问题 I want to use the output of ggtern() in a shiny app. However it seems to fail due to some constraints. This is what it should look like: This is the actual shiny output: See here for a reproducible example: library(shiny) library(ggtern) ui <- fluidPage( mainPanel( plotOutput("ggtern") ) ) server <- function(input, output) { output$ggtern <- renderPlot({ ggtern(data.frame(x=10, y=30, z=60), aes(x, y, z)) + geom_point() }) } shinyApp(ui = ui, server = server) Do I overlook something? 回答1: