我有lme函数的输出R.
library(nlme)
fm2 <- lme(distance ~ age + Sex, data = Orthodont, random = ~ 1)
str(fm2)
如您所见,output(fm2)的一些元素是矩阵,例如fm2$varFix
我正在寻找一个接受一个对象并将所有子矩阵转换成的函数data.frames.
我正在寻找这个问题的解决方案:我有一个这样的列表列表
sample = list("element1" = list("term1"=0.5, "term2"=1, "term3"= 4, "term1"= 0.5), "element2" = list("term23"=5, "term1"=2, "term23"=4))
对于外部列表的每个列表,我想对具有相同名称的值求和.所以期望的输出是
desired_output = list("element1" = list("term1"=1, "term2"=1, "term3"= 4), "element2" = list("term23"=9, "term1"=2))
实际上,我想过用这样的东西
result = lapply(sample, function(l) aggregate(l, by = list(names(l)), FUN = sum))
但这给了我一个错误.有关于此的任何想法？提前致谢.
假设原始数据如下：
Competitor Region ProductA ProductB
Comp1 A £10 £15
Comp1 B £11 £16
Comp1 C £11 £15
Comp2 A £9 £16
Comp2 B £12 £14
Comp2 C £14 £17
Comp3 A £11 £16
Comp3 B £10 £15
Comp3 C £12 £15
（参考：Python-根据列值将数据框拆分为多个数据框，并使用这些值命名）
我希望获得基于列值的子数据框列表，例如Region，例如：
df_A :
Competitor Region ProductA ProductB
Comp1 A £10 £15
Comp2 A £9 £16
Comp3 A £11 £16
在Python中，我可以这样做：
for region, df_region in df.groupby('Region'):
print(df_region)
如果df是Pyspark df，我可以做同样的迭代吗？
在Pyspark中，一旦执行df.groupBy（“ Region”），我就会获得GroupedData。我不需要像count，mean等之类的任何聚合。我只需要子数据帧的列表，每个子数据帧都有相同的“ Region”值。可能？
当我在一个非常简单的闪亮应用程序中按下操作按钮时，我试图调用另一个闪亮的应用程序。另一个应用程序位于一个带有 ui.R 和 server.R 文件的名为 Benefits 的文件夹中，但是当我单击该按钮时，什么也没有发生。有可能我正在尝试做什么吗？
干杯。
library(shiny)
shinyUI(fluidPage(
# Application title
titlePanel("RunnApp"),
mainPanel(
actionButton("goButton", "Go!")
)
))
library(shiny)
shinyServer(function(input, output) {
ntext <- eventReactive(input$goButton, {
runApp("benefits")
})
})
我需要我的 Shiny 模块来隐藏/显示命名空间之外的 div。我尝试将 div id 传递给模块服务器函数并使用shinyjs 来显示/隐藏它，但这不起作用。我没有收到错误，它只是不显示/隐藏 div。
我知道闪亮的模块文档说模块无法访问命名空间之外的输出。不过，文档确实为模块提供了一种使用反应式访问命名空间之外的输入的方法。
有谁知道是否有办法让 Shiny 模块访问命名空间之外的输出？
这是我想做的：
### ui.R ###
header <- dashboardHeader(
title = a(href = 'http://google.com')
)
dashboardPage(
skin = 'black',
header,
dashboardSidebar(
sidebarMenu( id='tabs',
menuItem('Edit Existing Client', tabName = 'client-info')
)),
dashboardBody(
useShinyjs(),
fluidRow(
tabItems(
tabItem(tabName = "client-info",
div(selectClientModuleUI("clientinfons")),
div(id='editclientinfo', uiOutput('editclientstuff'))
)
)
)
)
)
### server.R ###
shinyServer(function(session,input, output) {
output$editclientstuff <- renderUI({
div(
fluidRow(
column(6,
textInput('editname', "Display name", value ='Testing name')
),
column(6,
numericInput('editastart','Start', value ='3')
) …我正在努力import pandas as pd.我得到ModuleNotFoundError: No module named 'pandas.rpy'.为什么？我使用pandas 0.20.1 + python 3.6 x64 + Windows 7.
例:
import os
os.environ['R_HOME'] = 'C:\Program Files\R\R-3.4.0'
os.environ['R_USER'] = 'bob'
import rpy2.robjects as robjects
import pandas.rpy.common as com
import pandas as pd
返回:
Traceback (most recent call last):
File "C:\doc\GitHub\proj\src\open_rdata.py", line 19, in <module>
import pandas.rpy.common as com
ModuleNotFoundError: No module named 'pandas.rpy'
我有一个很长的.txt文件,其中包含我想在我的Rmarkdown文件中使用的包和设置.我还想根据R计算的输出向标题添加语句.在这种特殊情况下,我想添加一个位于另一个目录中的titlegraphic,如下所示:
working directory
|--- reports
|----| my_report.Rmd
|--- www
|----| image.png
所以Rmarkdown文件的标题如下所示:
output:
beamer_presentation:
keep_tex: true
includes:
in_header: header.txt
header-includes:
- \titlegraphic{\includegraphics[width=0.3\paperwidth]{`r paste0("dirname(getwd()),"image.png")`}}
如果只包含其中一个语句(in_header或header-includes),它们可以正常工作.但是当我同时使用它们时,header-includes的内容似乎被覆盖了.下面的文件中给出了一个示例,在检查生成的.tex文件时,我发现它\usepackage{fancyhdr}位于标题中,但没有提到`\ titlegraphic'表达式.
header.txt
\usepackage{fancyhdr}
example.Rmd
title: Example 1
output:
beamer_presentation:
keep_tex: true
includes:
in_header: header.txt
header-includes:
\titlegraphic{\includegraphics[width=0.3\paperwidth]{`r paste0("just_an_example_","logo.png")`}}
---
### This is a test
这是代码片段，问题是：如何observeEvent()在 a 中reactive()更改a值？
编辑：真正的问题是，“没有reactiveValues()吗？
ui <- fluidPage(
actionButton("btn_change", "Change Values"),
actionButton("btn_print","Print values")
)
server <- function(input, output) {
a <- 1
data <- reactive({
observeEvent(input$btn_change, {
a <- a + 1
})
a
})
observeEvent(input$btn_print, {
print(paste("data = ", data()))
})
}
shinyApp(ui, server)
我有一个Shiny应用程序 - 简化示例 - 我希望侧边栏在导航到标签项时动态隐藏.事实上,用户将主要通过手机连接到应用程序.
在shinydashboard默认的隐藏侧边栏的帮助下,我知道如何在到达应用程序时默认隐藏侧边栏,但始终显示侧边栏.
这是我的实际代码:
### Load librairies
library(shiny) ; library(shinydashboard) ; library(shinyjs)
library(dplyr)
### Load data
Weather <- c("cold", "rain", "snow","heat","sun")
Answer <- c("Take a coat","Take an umbrella","Take gloves","Take a swimsuit","Take solair cream")
Mydata <- data.frame( Weather, Answer, stringsAsFactors = FALSE)
remove(Weather, Answer)
### Shiny
Entete <- dashboardHeader(title = "My app")
BarreLaterale <- dashboardSidebar(
sidebarMenu(menuItem(text = "Home", tabName = "MyHome", icon = icon("home"))),
sidebarMenu(menuItem(text = "My search", tabName = "Search", icon = …有没有一种方法可以禁用/启用对仪表板侧栏的单击，以防止用户导航到其他具有光泽的视图？
我遇到了此解决方案“ 从服务器端禁用/启用侧边栏 ”，但是它所做的只是折叠/取消折叠侧边栏。
但是我正在寻找一种解决方案，通过它可以启用/禁用对它的单击，以更好地控制何时允许用户访问以导航到其他视图。
一个用例是：如果我希望用户先导航第一页上的所有输入，然后他/她就可以导航到其他部分。