这是我的代码:
x<-c(1,2)
x
names(x)<- c("bob","ed")
x$ed
为什么我会收到错误:
x<-c(1,2)
x
names(x)<- c("bob","ed")
x$ed
如何使用R Shiny声明全局变量,以便您不需要多次运行相同的代码片段？作为一个非常简单的例子,我有两个使用相同精确数据的图,但我只想计算数据ONCE.
这是ui.R文件:
library(shiny)
# Define UI for application that plots random distributions
shinyUI(pageWithSidebar(
# Application title
headerPanel("Hello Shiny!"),
# Sidebar with a slider input for number of observations
sidebarPanel(
sliderInput("obs",
"Number of observations:",
min = 1,
max = 1000,
value = 500)
),
# Show a plot of the generated distribution
mainPanel(
plotOutput("distPlot1"),
plotOutput("distPlot2")
)
))
这是server.R文件:
library(shiny)
shinyServer(function(input, output) {
output$distPlot1 <- renderPlot({
dist <- rnorm(input$obs)
hist(dist)
})
output$distPlot2 <- renderPlot({
dist <- rnorm(input$obs) …有谁知道是否可以通过Outlook在R中发送电子邮件.sendmailR的所有示例都使用gmail服务器.我不能这样做.有任何想法吗？
谢谢!
在Web浏览器中,您将参数传递给网站
www.mysite.com/?parameter=1
我有一个闪亮的应用程序,我想在计算中使用传入网站的参数作为输入.那么可以像www.mysite.com/?parameter=1这样做,然后使用input!参数吗？
你能提供任何示例代码或链接吗？
谢谢
我想将其后的字符串拆分为句点.我试着strsplit()用"."的split说法,但没有得到我想要的结果.
s <- "I.want.to.split"
strsplit(s, ".")
[[1]]
[1] "" "" "" "" "" "" "" "" "" "" "" "" "" "" ""
我想要的输出是s在列表中拆分为4个元素,如下所示.
[[1]]
[1] "I" "want" "to" "split"
我该怎么办？
我想制作一个空的矢量,POSIXct以便我可以放入POSIXct其中:
vec <- vector("POSIXct", 10)
vec
vec[1] <- "2014-10-27 18:11:36 PDT"
vec
这不起作用.有任何想法吗？
我想减去POSIXct.我可以这样做,但取决于第一行(我猜？),差异将以秒或分钟为单位.下面你可以看到第一个差异以秒为单位,第二个差异以分钟为单位,因为我改变了第一行的时差:
#diff in seconds because 1st row time diff is small?
t1<- as.POSIXct(c("2015-02-02 20:18:03 00:00:00", "2015-02-02 20:17:02 00:00:00"),"GMT")
t2<- as.POSIXct(c("2015-02-02 20:18:02 00:00:00","2015-02-02 20:18:02 00:00:00"),"GMT")
d<-data.frame(t1= t1, t2= t2)
d$t1-d$t2
#diff in seconds because 1st row time diff is larger?
t1<- as.POSIXct(c("2015-02-02 20:13:03 00:00:00", "2015-02-02 20:17:02 00:00:00"),"GMT")
t2<- as.POSIXct(c("2015-02-02 20:18:02 00:00:00","2015-02-02 20:18:02 00:00:00"),"GMT")
d<-data.frame(t1= t1, t2= t2)
d$t1-d$t2
结果:
> #diff in seconds because 1st row time diff is small?
> t1<- as.POSIXct(c("2015-02-02 20:18:03 00:00:00", "2015-02-02 20:17:02 00:00:00"),"GMT")
> t2<- as.POSIXct(c("2015-02-02 …我有一些点的情节,我想用段来连接它们
dummy = data.frame(GROUP=c("A","B","C","D"),
X = c(80,75,68,78),
Y=c(30, 32,36,33)
)
df= data.frame(x1 = c(80), x2 =c(78) , y1=c(30), y2 =c(33))
df
library(ggplot2)
ggplot(dummy,aes(x=X,y=Y,color=GROUP)) +
geom_point() +
geom_segment(aes(x=x1,y=y1,xend= x2, yend =y2), data = df)
但是我得到了这个错误
Error in eval(expr, envir, enclos) : object 'GROUP' not found
我在这做错了什么？
我遇到了一个问题因为在加载UI之前首先调用了observe.
这是我的ui.R
sidebarPanel(
selectInput("Desk", "Desk:" , as.matrix(getDesksUI())),
uiOutput("choose_Product"), #this is dynamically created UI
uiOutput("choose_File1"), #this is dynamically created UI
uiOutput("choose_Term1"), #this is dynamically created UI ....
这是我的Server.R
shinyServer(function(input, output,session) {
#this is dynamic UI
output$choose_Product <- renderUI({
selectInput("Product", "Product:", as.list(getProductUI(input$Desk)))
})
#this is dynamic UI
output$choose_File1 <- renderUI({
selectInput("File1", "File 1:", as.list(getFileUI(input$Desk, input$Product)))
})
#this is dynamic UI and I want it to run before the Observe function so the call
# to getTerm1UI(input$Desk, input$Product, input$File1) has non-null parameters
output$choose_Term1 …我正在尝试安装重新思考
httr::set_config( httr::config( ssl_verifypeer = 0L ) )
with_config(use_proxy("http://myco.com:5555"), install_github("rmcelreath/rethinking", lib ="C://TOOLS/R-3.4.0/library"))
我收到错误消息:
Downloading GitHub repo rmcelreath/rethinking@master
from URL https://api.github.com/repos/rmcelreath/rethinking/zipball/master
Installing rethinking
Error in if (file.exists(dest) && file.mtime(dest) > file.mtime(lib) && :
missing value where TRUE/FALSE needed
Error in if (file.exists(dest) && file.mtime(dest) > file.mtime(lib) && :
missing value where TRUE/FALSE needed
我的版本的一些信息:
> packageVersion("devtools")
[1] ‘1.12.0’
> packageVersion("httr")
[1] ‘1.2.1’
> R.Version()$version.string
[1] "R version 3.4.0 (2017-04-21)"
你能建议如何让安装工作吗？
谢谢.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
3: installed.packages()
2: as.data.frame(installed.packages(), stringsAsFactors = F)
1: (function …