shinyapps

问题 I have the following code (placed at the top of my app.R file, just after my library() calls): dir.create('r-lib') download.file('https://cran.r-project.org/src/contrib/extrafontdb_1.0.tar.gz','r-lib/extrafontdb_1.0.tar.gz') .libPaths(c('r-lib', .libPaths())) install.packages('r-lib/extrafontdb_1.0.tar.gz',type = 'source',repos = NULL) dir.create('~/.fonts') download.file("https://github.com/** GIT USER NAME **/fonts/archive/master/fonts.zip", destfile = "fonts.zip") unzip("fonts.zip", exdir

问题 It seems that the current version of GEOS available on shinyapps.io is not at the right level. This is the error message I am getting when trying to deploy my app: ** package ‘lwgeom’ successfully unpacked and MD5 sums checked ** using staged installation configure: CC: gcc configure: CXX: g++ -std=gnu++11 configure: pkg-config proj exists, will use it configure: PROJ: 4.9.2 checking for pj_init_plus in -lproj... yes checking PROJ: epsg found and readable... yes configure: POSTGIS_PROJ

问题 Does anyone here have an example of showing an image when hovered on a plot or any package which can do this? I have tried something but it will show url only but not the image.I know this code is just encasing the URL. How can I build a div to show the image. library(shiny) library(shinydashboard) library(DT) library(dplyr) library(plotly) # Data ------------------------------------------------------------------ dt <- data.frame(fruits = c("apple","banana","oranges"), rank = c(11, 22, 33),

问题 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 am attempting to rbind two data frames in shiny so I can plot them together but I receive an error "replacement has 1 row, data has 0" when I do. I've included my full app below - and I'm assuming the error occurs in these server lines: # create new cases and new deaths data frames and add a New "NAME" value to each row ncdf <- cd[,c(1,4)] nddf <- cd[,c(1,5)] ncdf$name <- "New Cases" nddf$name <- "New Deaths" The app works locally even with the error but when I try to upload it to shinyapps

问题 I would like to change the colour of each individual option of the selectizeInput menu in my Shiny app. In the following example code below I am able to change the colour to blue for all the menu options but how can I change it for each individual option? e.g. make "a" red, "b" blue, "c" green etc. Thanks very much! shinyApp( ui = shinyUI(fluidPage( tags$head( tags$style(HTML(" .item { background: #2196f3 !important; color: white !important; } .selectize-dropdown-content .active { background:

问题 Following on from this post can anyone please tell me if it's possible to implement a way to search an interactive Shiny DT datatable where keywords are separated by spaces and not pipes? Users of my apps will have lists of genes separated by spaces and adding pipes will defeat the point of making the app user friendly. Example code: ## example taken from https://rstudio.github.io/DT/007-search.html library(DT) mtcars2 = mtcars[, c(1:5, 9)] mtcars2$am = factor(mtcars$am, c(0, 1), c('automatic

问题 Following on from this post can anyone please tell me if it's possible to implement a way to search an interactive Shiny DT datatable where keywords are separated by spaces and not pipes? Users of my apps will have lists of genes separated by spaces and adding pipes will defeat the point of making the app user friendly. Example code: ## example taken from https://rstudio.github.io/DT/007-search.html library(DT) mtcars2 = mtcars[, c(1:5, 9)] mtcars2$am = factor(mtcars$am, c(0, 1), c('automatic

问题 I have a list (in .csv file) from 1 to 100, but with difference between the every term is not the same. For example, 1, 2, 4, 7, 8, 11, 13, 17, 18, 19,..., 95, 99, 100. After that, the range I selected will store in the selected_value (Global Environment). And here is my code : library(shiny) ui <- fluidPage( fluidRow( column(4, sliderInput("slider","Slider Range", min = 0, max = 100, value = c(40, 60)))), fluidRow( column(4, verbatimTextOutput("range")))) server <- function(input, output) {