Shiny

问题 I want to get User's IP, User's window ID and User's Server Access time I can get User's IP with below code but Other things can't get.... getting User's IP code is ip <- session$request$REMOTE_ADDR at server.R How to get User's window ID and User's Server Access time ???? 回答1: Long-story-short, there is a limit to what "you" (the app and therefore you, the dev) can know about the connection. I've put in similar requests for some more with RStudio professional support, and what I have below

问题 I want to get User's IP, User's window ID and User's Server Access time I can get User's IP with below code but Other things can't get.... getting User's IP code is ip <- session$request$REMOTE_ADDR at server.R How to get User's window ID and User's Server Access time ???? 回答1: Long-story-short, there is a limit to what "you" (the app and therefore you, the dev) can know about the connection. I've put in similar requests for some more with RStudio professional support, and what I have below

问题 The following shiny app uses modules, it works: library(shiny) LHSchoices <- c("X1", "X2", "X3", "X4") LHSchoices2 <- c("S1", "S2", "S3", "S4") #------------------------------------------------------------------------------# # MODULE UI ---- variablesUI <- function(id, number) { ns <- NS(id) tagList( fluidRow( column(6, selectInput(ns("variable"), paste0("Select Variable ", number), choices = c("Choose" = "", LHSchoices) ) ), column(6, numericInput(ns("value.variable"), label = paste0("Value

问题 With the following code, it is possible to create UI objects in Shiny. library(shiny) LHSchoices <- c("X1", "X2", "X3", "X4") #------------------------------------------------------------------------------# # MODULE UI ---- variablesUI <- function(id, number) { ns <- NS(id) tagList( fluidRow( column(6, selectInput(ns("variable"), paste0("Select Variable ", number), choices = c("Choose" = "", LHSchoices) ) ), column(6, numericInput(ns("value.variable"), label = paste0("Value ", number), value

问题 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 trying to create a Shiny App which can be used in the R workspace to create a user friendly front end to some code- so that someone can just type in and click some boxes instead of creating lists and dataframes themselves- and then what they input will be stored in the workspace in R to do the code. I have basically adapted someone else's code but can't work out how I save the dynamically created UI called col - which makes text inputs so if people type something in this is saved. When I

问题 I am trying to create a Shiny App which can be used in the R workspace to create a user friendly front end to some code- so that someone can just type in and click some boxes instead of creating lists and dataframes themselves- and then what they input will be stored in the workspace in R to do the code. I have basically adapted someone else's code but can't work out how I save the dynamically created UI called col - which makes text inputs so if people type something in this is saved. When I

问题 I am trying to create a Shiny App which can be used in the R workspace to create a user friendly front end to some code- so that someone can just type in and click some boxes instead of creating lists and dataframes themselves- and then what they input will be stored in the workspace in R to do the code. I have basically adapted someone else's code but can't work out how I save the dynamically created UI called col - which makes text inputs so if people type something in this is saved. When I

问题 I have written the following R Shiny app. The user selects farm from a drop-down menu and a single value of year from a slider . I would like the user to be able to select a range of values for month , but the second slider is only selecting the end points of month , not the range . Here is what the month slider is selecting, as an example with farm == 1 and year == 2 from the data.frame fruit created within the app below: > fruit[fruit$farm == 1 & fruit$year == 2 & fruit$month %in% c(4,9),]