小编Pro*_*eus的帖子

如何将EC2托管的Shiny应用程序安全地集成到asp.net项目中

我有两个申请.

  1. R闪亮的应用程序托管在EC2上
  2. Asp.net应用程序托管在Azure上.

asp.net应用程序预先形成用户身份验证,用于组织整个数据科学管道.用户提供数据,数据科学家转换数据并提供闪亮的应用程序.最后,用户在asp.net应用程序中打开Shiny应用程序.

我遇到的问题是我不知道如何安全地集成我在asp.net应用程序中开发的Shiny应用程序.

我可以像这样解决问题:

在此输入图像描述

基本上,我可以创建一个简单的iframe,其中包含指向EC2实例的公共域的链接.但是,这并不安全.任何人都可以通过简单的页面源点击找到并访问该URL.

我考虑的另一个选择是限制EC2安全组中的IP地址.但是,问题是asp.net应用程序应该由不同的实体/独立用户使用.因此,安全性需要更加精细[用户是否可以访问应用程序,应用程序内的项目,项目中的容器?]而不仅仅是服务器IP地址.

此外,我曾考虑在实际的Shiny应用程序中提供第二级身份验证,但这首先实际上失去了asp.net身份验证的重点.

我应该继续研究的方向或暗示?

asp.net amazon-ec2 amazon-web-services shiny shiny-server

8
推荐指数
1
解决办法
142
查看次数

当我有唯一的名字时,tidyr :: gather()会出错

我有来自tidyr包的gather()函数的问题.

sample
# A tibble: 5 × 6
  market_share      Y2012      Y2013      Y2014      Y2015      Y2016
         <chr>      <dbl>      <dbl>      <dbl>      <dbl>      <dbl>
1          KAB 0.23469425 0.23513725 0.23187590 0.22940831 0.22662625
2          BGD 0.21353096 0.21352769 0.20910574 0.20035900 0.19374223
3          NN 0.16891699 0.16204919 0.16272993 0.16388675 0.16154017
4         OG 0.07648682 0.07597078 0.07945966 0.07780233 0.08069057
5         Ha 0.05092648 0.05480555 0.06434457 0.07127716 0.08054208
Run Code Online (Sandbox Code Playgroud)

如果我尝试:

sample2 <- gather(sample, market_share, period, Y2012:Y2016)
Error: Each variable must have a unique name.
Problem variables: 'market_share'
Run Code Online (Sandbox Code Playgroud)

但是,每个变量似乎都有一个唯一的名称.

Ha  KAB  BGD  NN OG 
   1 …
Run Code Online (Sandbox Code Playgroud)

r tidyr

7
推荐指数
1
解决办法
6391
查看次数

RMarkdown按钮显示或隐藏代码

我经常写降价文件,技术人员和高管都会阅读.

从这个意义上说,我想知道是否有可能在HTML中创建一个隐藏或显示最终输出中的代码块的按钮?

目前,我正在创建两个单独的文件,我认为这是一个不太优雅的解决方案.

任何人?

markdown r

7
推荐指数
1
解决办法
3199
查看次数

flexdashboard - 改变tittle bar颜色

我想改变flexdashboard的细条颜色.

我找到了一个删除它的例子 - SE 在这里,但鉴于我不知道任何CSS/JQuery,我不得不问.

我想将bar collor更改为红色,将文本更改为黑色.

任何人?

编辑(以下示例):

---
title: "DB: Contact information"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
---

<style>                     
.navbar {
  background-color:crimson;
  border-color:black;
}
.navbar-brand {
color:black!important;
}


</style>   


Dashboard
=====================================  

Test. Test. Test. 

Column {data-width=650}
-----------------------------------------------------------------------

### Clustered Data
Run Code Online (Sandbox Code Playgroud)

结果: 在此输入图像描述

r flexdashboard

7
推荐指数
1
解决办法
5066
查看次数

R flexdashboard 和登录表单

我有一个 flexdashboard,它没有托管在服务器上,我将它用作本地 html 文件。

但是,我需要对 HTML 的内容进行密码保护。我知道我可以使用 win-zip,但我想知道是否可以将简单的登录表单与全局用户名和密码集成在一起。

我的尝试:

    ---
title: "Dashboard"
output: 
  flexdashboard::flex_dashboard:
    vertical_layout: scroll
    logo: logo.jpg
shiny: include
---

```{r}
branch <- "test"
num_entries <- 3
```

<style>                     
.navbar {
  background-color:red;
  border-color:black;
}

.navbar-inverse .navbar-nav>.active>a, .navbar-inverse .navbar-nav>.active>a:hover, .navbar-inverse .navbar-nav>.active>a:focus {
color: black;
background-color: #feb0b0;
}

.navbar-inverse .navbar-nav > li > a:hover, .navbar-inverse .navbar-nav > li > a:focus {
background-color: #feb0b0
}

</style>           


<script type = "text/javascript">

// Note: Like all Javascript password scripts, this is hopelessly insecure as …
Run Code Online (Sandbox Code Playgroud)

html javascript php r flexdashboard

7
推荐指数
0
解决办法
1094
查看次数

在 Rmarkdown 文本中使用变量

我正在创建一个 Rmarkdown 文档。

我的代码块检查数据集中的列/行数并将信息保存在变量中。

{r, echo=FALSE, warning=FALSE}
df_dimenzions <- dim(demo)
Run Code Online (Sandbox Code Playgroud)

我想使用存储在rmarkdown text变量中的数据/信息。

例如...在代码块之外,写明文如:
列数为{{df_dimensions[1]}},行数
为{{df_dimension[2]}}

在 rmarkdown 中可能有这样的事情吗?同样,我要求在 rmarkdown 中处理的数据,而不是存储在文档之外?

另外,我知道我可以用代码块粘贴一个连接的字符串。这不是我想要达到的目标。

markdown yaml r r-markdown

6
推荐指数
1
解决办法
6082
查看次数

ggplot2删除轴标签

我有以下数据集:

dput(head(active_clients))
structure(list(Date = structure(c(1422662400, 1425081600, 1427760000, 
1430352000, 1433030400, 1435622400), class = c("POSIXct", "POSIXt"
), tzone = "UTC"), value = c(65139, 66615, 66669, 67081, 67277, 
67366), month = 1:6, year = c(2015L, 2015L, 2015L, 2015L, 2015L, 
2015L), year_month = c("1/15", "2/15", "3/15", "4/15", "5/15", 
"6/15"), year2 = c("15", "15", "15", "15", "15", "15")), .Names = c("Date", 
"value", "month", "year", "year_month", "year2"), row.names = c(NA, 
-6L), class = c("tbl_df", "tbl", "data.frame"))
Run Code Online (Sandbox Code Playgroud)

我正在使用ggplot2绘制以下线/点图.

t <- ggplot(active_clients)  +
  geom_point(aes(as.factor(year_month), 
                 value), 
             size = 2, …
Run Code Online (Sandbox Code Playgroud)

r ggplot2 plotly ggplotly

4
推荐指数
2
解决办法
3万
查看次数

条件格式 DT 中的样式

我想根据 B 列中的值对 A 列中的行进行着色。

下面的代码基于 vignette Link中的示例,但仅显示两列的条件:mobile_number 和 mobile_flag。

数据:

head(test[, c("EMBG","mobile_number", "home_number",  "mobile_flag", "home_number_flag")])
          EMBG mobile_number      home_number mobile_flag
1 101001455126   075-201-543      02/2446-275     correct
2 101010455015   55555555555      55555555555   incorrect
3 101014455095             0                0   incorrect
4 101947455134   075/482-356      02/2460-020     correct
5 101952450264  070 22 16 18 ----------------     correct
6 101953450012             0      02/2446-276   incorrect
  home_number_flag
1          correct
2        incorrect
3        incorrect
4          correct
5        incorrect
6          correct
Run Code Online (Sandbox Code Playgroud)

我的DT表:

> datatable(test) %>% formatStyle(
+   'mobile_number', 'mobile_flag',
+   backgroundColor = styleEqual(c("correct", "incorrect"), …
Run Code Online (Sandbox Code Playgroud)

r dt htmlwidgets

3
推荐指数
1
解决办法
6490
查看次数

R Markdown更改CSS中各节的背景颜色

我想知道是否有可能用CSS更改基于rmarkdown的flexdashboard的背景颜色。

特别是,我有一个这样的文档结构:

---
  title: "Test"
output: 
  flexdashboard::flex_dashboard:
  vertical_layout: scroll
logo: logo.jpg
self_contained: no
---
  Overview {data-orientation=rows data-icon="ion-ios-home"}
=====================================  

  Row
-------------------------------------
  ### Plot 1

  ### Plot 2

  Row
-------------------------------------

  ### Plot 3

  ### Plot 4
Run Code Online (Sandbox Code Playgroud)

我想做的是更改由“行”布局分隔的部分的背景颜色。

例如,一节将是灰色的,下一节将是白色的。

这可能吗?如果是,是否有任何提示我该怎么做?

html css r knitr r-markdown

3
推荐指数
1
解决办法
791
查看次数

通过串扰过滤两个表

我正在R中创建一个Flexdashboard。我希望该仪表板既包含表又包含一系列可视化效果,这些可视化效果可通过输入进行过滤。

由于我需要在本地交付仪表板(没有在后台运行服务器),因此我无法使用Shiny,因此我依赖串扰。

我知道相声包在前端提供的功能有限。例如,文档说您不能聚合SharedData对象。

尽管如此,我不清楚我是否可以使用相同的输入来过滤两个不同的数据帧

例如,假设我有:

  1. 数据框一:包含原始数据

    df1 <-structure(list(owner = structure(c(1L,2L,2L,2L,2L),.Label = c(“ John”,“ Mark”),class =“ factor”),hp = c(250 ,120,250,100,110),car =结构(c(2L,2L,2L,1L,1L),.Label = c(“ benz”,“ bmw”),class =“ factor”),id =结构(1:5,.Label = c(“ car1”,“ car2”,“ car3”,“ car4”,“ car5”),class =“ factor”)),.Names = c(“ owner”,“ hp”,“ car”,“ id”),row.names = c(NA,-5L),class =“ data.frame”)

  2. Datafrane 2:包含汇总数据

    df2 <-structure(list(car = structure(c(1L,2L,1L,2L),.Label = c(“ benz”,

    • “ bmw”),类=“ factor”),所有者=结构(c(1L,1L,2L,2L
    • ).Label = c(“ John”,“ Mark”),class =“ factor”),freq = c(0L,
    • 1L,2L,2L)),.names = c(“ car”,“ owner”,“ freq”),row.names = c(NA,
    • -4L),类=“ data.frame”)

这两个数据框包含 …

r datatables shiny flexdashboard

2
推荐指数
1
解决办法
1483
查看次数

高标称值和百分比值

我用highcharter库制作了一个饼图。

library(highcharter)

test_data
  Gender  Freq  colors
1 Female 29813 #ff99cc
2   Male 38474 #2980b9

hchart(test_data, "pie", hcaes(x = Gender, y = Freq, color=colors))
Run Code Online (Sandbox Code Playgroud)

由于地图是交互式的,因此我希望饼图在同一图上同时显示百分比值和标称值。

有什么想法可以做到吗?

r highcharts pie-chart

1
推荐指数
1
解决办法
1156
查看次数

将进程输出存储在数组中

我发起了一个空阵列.

 string[] line = new string[] { };
Run Code Online (Sandbox Code Playgroud)

我想在下面的while循环中存储将在cmd处理中输出的每一行.如果我将值存储在字符串变量中,这似乎很容易.

如下所示:

while (!proc.StandardOutput.EndOfStream)
{
    line = proc.StandardOutput.ReadLine();
}
Run Code Online (Sandbox Code Playgroud)

但是,我不确定如何将值存储为数组中的单独元素.我试过了:

while (!proc.StandardOutput.EndOfStream)
{
    for(a in line)
    {
        a = proc.StandardOutput.ReadLine();
    }
}
Run Code Online (Sandbox Code Playgroud)

但它不起作用.

这可能是一个非常基本的问题.但我还在学习C#.

.net c#

1
推荐指数
1
解决办法
115
查看次数

对于AWS处的引擎错误,DBName必须为null-RDS

我正在尝试在AWS的免费试用包下创建SQL Server数据库。

我正在完成所有步骤,一旦按创建数据库,就会出现以下错误:

在此处输入图片说明

我尝试了很多事情:更改实例名称,安全参数,搜索可能的解决方案等。

关于错误指向的任何想法?

sql-server rds amazon-web-services

1
推荐指数
1
解决办法
1038
查看次数