Shiny

问题 First of all my question is very related to How to host Shiny apps on windows server? But, it seems that i need some more reputation to comment in other posts.... My problem/question: I have a shiny app that i want to deploy and make available for people in my department. The paid version of shinyapps.io is not an option for now at least, so i am looking for alternatives. I am working on Windows and this is a problem from what i understand in order to host my own server. I tried the solution

问题 I am building a shiny app and hosting it on the server. There are date and time inputs. The default value is Sys.Date(). Now when the user accesses it, the default value is taken as server date and time rather than the users. Please tell me how can I get the user's current time and date and use them as default values into my input box. Current input scenario: dateInput("dateto", "Date To:", format = "mm/dd/yyyy", value = Sys.time()), textInput("dateto_hour", "HH:MM", value = gsub("(.*):.*","\

问题 I want to create a web application where a user inputs a set of identifiers, and a set of dots on a map related to those identifiers appear. Trouble is, this data can number in the tens to hundreds of thousands to even potentially millions. Given this possibility, I want to take a light tack. Below is my ideal aggregation behavior. At low zoom levels, I want to aggregate these dots into counts by state (appropriate symbology size/color indicating higher intensity, with the dot centered on the

问题 My shiny app will reads content from a local file in my desktop every 5 mins because the file's content get updated every 5 mins too. And my shiny app basically read in the new content and append the data to the existing dataframe and plot the new content out every 5 mins. Question : Ultimately, I would like to host this online. If I host this on shinyapps.io , would I still be able to read the local file in my desktop that is updated every 5 minutes? If not, what can I do? 回答1: I haven't

问题 When we have a all missing columns in the data frame, typically we don't want the user to select them to plot. There are many ways to do this but is it possible to let the items in the selectInput have conditional colors. For example, how to let all missing column names (like the var2 column in my sample code) in the selectInput item list go grey. In other words, how to rewrite the selectInput for us to pass in a indicator vector for the conditional formatting. library(shiny) server <-

问题 When we have a all missing columns in the data frame, typically we don't want the user to select them to plot. There are many ways to do this but is it possible to let the items in the selectInput have conditional colors. For example, how to let all missing column names (like the var2 column in my sample code) in the selectInput item list go grey. In other words, how to rewrite the selectInput for us to pass in a indicator vector for the conditional formatting. library(shiny) server <-

问题 I've written an R shiny application and am styling it before I complete it. I've written a small amount of HTML and want to change things such as the background colour using CSS. After consulting online I found I needed to seperate my css using the class argument, however when I specify a class for each page, it brings back no CSS at all. Below is a shortened version of my R shiny application. Any help would be greatly appreciated. library(shiny) setwd("C:\\Users\\FRSAWG\\Desktop\\Application

问题 When I try to deploy my (reticulate-powered) Shiny app to shinyapps.io, I get the following error: Error in value[[3L]](cond) : invalid version specification ‘20.1b1’ Calls: local ... tryCatch -> tryCatchList -> tryCatchOne -> <Anonymous> Execution halted While it is not explicit, I suppose the error is refering to the pip version, which I never explicitly specify. This is the part of the code that precedes the ui and server functions: library(reticulate) library(shiny) virtualenv_create

问题 I have created a table which looks as per screenshot. How could I add an excel like filter button where I could select multiple specific items of the list? And code is the following: DT::datatable(current_list, rownames = FALSE, filter = 'top', options = list(pageLength = 50,lengthChange = FALSE,autoWidth = FALSE,escape=FALSE, searching = TRUE, columnDefs = list(list(className = 'dt-center', targets = 0:1), list(width = '30px', targets = 0:0), list(width = '270px', targets = 1:1) ) ) ) 回答1:

问题 I have created a table which looks as per screenshot. How could I add an excel like filter button where I could select multiple specific items of the list? And code is the following: DT::datatable(current_list, rownames = FALSE, filter = 'top', options = list(pageLength = 50,lengthChange = FALSE,autoWidth = FALSE,escape=FALSE, searching = TRUE, columnDefs = list(list(className = 'dt-center', targets = 0:1), list(width = '30px', targets = 0:0), list(width = '270px', targets = 1:1) ) ) ) 回答1: