Shiny

问题 I have the shiny app below in which I use shinycustomLoader and shinycssLoader to create loading messages. I would like to know if there is a way to add more than one messages after spcific amount time. Foe example the first message will be "Analyzing" and after 15 seconds of loading it will be replaced by "Almost there" . If there is another method or package that can do this I would be happy to know. library(shiny) library(shinycssloaders) library(shinycustomloader) ui <- fluidPage(

问题 Working with a Shiny Dashboard, ui.r, server.r and several r scripts that contain functions. Base problem is: I have two data sets that I bring into the server.r and I pass those to a function the prepares/cleanses the data sets and then binds them together and should return a complete dataframe. The dataFrame should be reactive. Here is what I have so far: In the server.r I load the data prior to the function(input, output, session). Then I have: ################server.r code ###############

问题 Working with a Shiny Dashboard, ui.r, server.r and several r scripts that contain functions. Base problem is: I have two data sets that I bring into the server.r and I pass those to a function the prepares/cleanses the data sets and then binds them together and should return a complete dataframe. The dataFrame should be reactive. Here is what I have so far: In the server.r I load the data prior to the function(input, output, session). Then I have: ################server.r code ###############

问题 I have a shiny app that takes a dataframe, and applies group_by from dplyr . I can make it accept a single group, but I would like the selectInput to accept multiple grouping variables. I can get around this problem by adding another selectInput , and then passing that to the group_by statement, but I'd like this to extend to an arbitrary number of variables. Therefore I need the single selectInput to accept multiple arguments. Just adding multiple = TRUE does not pass the variables in a way

问题 I have a shiny app that takes a dataframe, and applies group_by from dplyr . I can make it accept a single group, but I would like the selectInput to accept multiple grouping variables. I can get around this problem by adding another selectInput , and then passing that to the group_by statement, but I'd like this to extend to an arbitrary number of variables. Therefore I need the single selectInput to accept multiple arguments. Just adding multiple = TRUE does not pass the variables in a way

问题 My UI code is the following: ui <- navbarPage( theme = shinytheme("paper"), title = div(img(src="ballerlablogo.png", style="margin-top: -14px;", height = 50)), ... ) which works well, but then the title on webpage tab looks like this: is there a way to have the page title be "Baller Lab" without getting rid of the image in the navbar or adding the "baller lab" text in the navbar? Here is a link to the site: BallerLab.us 回答1: With fluidPage you can use tags$head to modify the title on the

问题 My UI code is the following: ui <- navbarPage( theme = shinytheme("paper"), title = div(img(src="ballerlablogo.png", style="margin-top: -14px;", height = 50)), ... ) which works well, but then the title on webpage tab looks like this: is there a way to have the page title be "Baller Lab" without getting rid of the image in the navbar or adding the "baller lab" text in the navbar? Here is a link to the site: BallerLab.us 回答1: With fluidPage you can use tags$head to modify the title on the

问题 My UI code is the following: ui <- navbarPage( theme = shinytheme("paper"), title = div(img(src="ballerlablogo.png", style="margin-top: -14px;", height = 50)), ... ) which works well, but then the title on webpage tab looks like this: is there a way to have the page title be "Baller Lab" without getting rid of the image in the navbar or adding the "baller lab" text in the navbar? Here is a link to the site: BallerLab.us 回答1: With fluidPage you can use tags$head to modify the title on the

问题 The bounty expires in 2 days . Answers to this question are eligible for a +50 reputation bounty. user5249203 is looking for a canonical answer . ----- shiny minimal example require(shiny) require(visNetwork) server <- function(input, output) { output$network <- visNetwork::renderVisNetwork({ edges <- data.frame( from = sample(1:10, 8), to = sample(1:10, 8), label = paste("interaction type", 1:8), length = c(100, 500), width = c(4, 1), arrows = c("to", "from", "middle", "middle;to"), dashes =

问题 The bounty expires in 2 days . Answers to this question are eligible for a +50 reputation bounty. user5249203 is looking for a canonical answer . ----- shiny minimal example require(shiny) require(visNetwork) server <- function(input, output) { output$network <- visNetwork::renderVisNetwork({ edges <- data.frame( from = sample(1:10, 8), to = sample(1:10, 8), label = paste("interaction type", 1:8), length = c(100, 500), width = c(4, 1), arrows = c("to", "from", "middle", "middle;to"), dashes =