我正在将 R Shiny 仪表板用于 R 闪亮应用程序。我已经包含了 css 文件来设置应用程序的样式。我需要将框标题更改为粗体。下面是最小的例子ui.R
library(shiny)
library(shinydashboard)
body <-
dashboardBody(tags$head(
tags$link(rel = "stylesheet", type = "text/css", href = "my_style.css")
),
tabItems(tabItem(tabName = "test",
fluidRow(
box(
collapsible = TRUE,
width = 3,
status = "primary",
solidHeader = T,
title = "Test"
)
))))
dashboardPage(dashboardHeader(), dashboardSidebar(), body)
Run Code Online (Sandbox Code Playgroud)
下面是my_style.css文件
.box.box-solid.box-primary>.box-header{
background: rgb(0, 129, 201);
color: #ffffff;
font-size: 18px;
font-weight; bold;
}
.box.box-solid.box-primary{
font-family: OpenSans;
font-size: 16px;
text-align: left;
color: #000000;
}
Run Code Online (Sandbox Code Playgroud)
问题出在 .box-header 部分。框改变背景颜色和文本颜色;但不是字体大小和字体粗细。
有什么建议?
我在C中的printf函数有问题.虽然缓冲被禁用,但它不打印输出:
setbuf(stdout, NULL);
Run Code Online (Sandbox Code Playgroud)
和
setvbuf(stdout, NULL, _IONBF, 0);
Run Code Online (Sandbox Code Playgroud)
我也在使用fflush(stdout);,但它仍然无效.
这是确切的代码:
int setup(){
//...
printf("Setup successful\n");
fflush(stdout);
return 0;
}
int main(int argc, char *argv[]){
setbuf(stdout, NULL);
setvbuf(stdout, NULL, _IONBF, 0);
setup();
//...
)
Run Code Online (Sandbox Code Playgroud)
如果信息有帮助; 我在Linux(raspberry Pi)上.
提前致谢!
我们有以下数据:
df <- data.frame(c("a", "c ","e "), c("b ", "d", "f "))
colnames(df) <- c("X1", "X2")
df
X1 X2
1 a b
2 c d
3 e f
Run Code Online (Sandbox Code Playgroud)
如何将给定的data.frame转换为一个没有空格的字符向量?
#Expected result:
#vector
#[1]"abcdef"
Run Code Online (Sandbox Code Playgroud) 如果某些条件为真,我只想打印 printf。我知道 printf 是一个可变参数函数,但遗憾的是我似乎无法在这里找到任何解释我可以包装它的线程。
基本上我写的代码中的每一个:
printf(" [text and format] ", ... args ...);
Run Code Online (Sandbox Code Playgroud)
我想写一些类似的东西
my_custom_printf(" [text and format] ", ... args ...);
Run Code Online (Sandbox Code Playgroud)
然后是这样实现的:
int my_custom_printf(const char* text_and_format, ... args ...)
{
if(some_condition)
{
printf(text_and_format, ... args...);
}
}
Run Code Online (Sandbox Code Playgroud)
条件的第一个版本将独立于 args(它将在某个全局变量上),但将来可能会成为需要的条件一个参数。
无论如何,现在我只需要... args ...原型中的语法和my_custom_printf.
我正在使用 GCC,但我不知道哪个 C 标准 - 但我们可以尝试一下。
对于int对象,可以这样使用cpython的cimported函数:
%%cython
from decimal import Decimal
from cpython cimport PyLong_Check
val_decimal = Decimal(1)
print(PyLong_Check(val_decimal))
Run Code Online (Sandbox Code Playgroud)
False
Run Code Online (Sandbox Code Playgroud)
但似乎没有对应的功能decimal。
另一种方法是这样使用try-except:
%%cython
from decimal import Decimal
from cpython cimport PyFloat_Check
cdef bint check(object val):
if PyFloat_Check(val):
return False
try:
float(val)
return True
except:
return False
val_decimal = Decimal(1.1)
val_float = 1.1
print (check(val_decimal))
print (check(val_float))
Run Code Online (Sandbox Code Playgroud)
True
False
Run Code Online (Sandbox Code Playgroud)
但这不仅会捕获decimal所有可能转换为的内容float。例如,也check("1.1")返回True(可能也排除了'str',check()但这看起来仅是'替代方法'-无法保证check()现在仅在上触发decimal)。
那么检查decimalcython 的正确方法是什么?
在这里,在这段代码中,ob1的大小为16,这很好(由于虚拟指针),但我不明白为什么ob2的大小为24。
#include <iostream>
using namespace std;
class A {
int x;
};
class B {
int y, z;
};
class C : virtual public A {
int a;
};
class D : virtual public B {
int b;
};
int main() {
C ob1;
D ob2;
cout << sizeof(ob1) << sizeof(ob2) << "\n";
}
Run Code Online (Sandbox Code Playgroud)
我预计ob2的大小为20,但输出为24
我有两种不同的 JSON 结构可以从中检索特定的对象值,基本上是这样的
{
"one": {
"foo": {
"bar": "baz"
}
}
}
Run Code Online (Sandbox Code Playgroud)
还有一个这样的
{
"two": {
"foo": {
"bar": "qux"
}
}
}
Run Code Online (Sandbox Code Playgroud)
我想bar在两种情况下都返回值加上一个额外的返回变量error,以防 case 1 baz- 也没有 case 2 qux- 匹配任何东西(即匹配null)。
仅使用 jq 1.6 有没有一种简单的方法可以做到这一点?
更新: 以下是实际 JSON 文件的片段:
/* manifest.json, variant A */
{
"browser_specific_settings": {
"gecko": {
"id": "{95ad7b39-5d3e-1029-7285-9455bcf665c0}",
"strict_min_version": "68.0"
}
}
}
/* manifest.json, variant B */
{
"applications": {
"gecko": {
"id": "j30D-3YFPUvj9u9izFoPSjlNYZfF22xS@foobar",
"strict_min_version": "53.0" …Run Code Online (Sandbox Code Playgroud) 假设我有一个清单
x <- as.list(c("john","jerry","james"))
Run Code Online (Sandbox Code Playgroud)
和值列表
y <- as.list(c(8,5,10))
Run Code Online (Sandbox Code Playgroud)
我想遍历x的第一个元素,y的第一个元素的次数,并在最后添加一个后缀。因此,对于元素john,它将为john_1,john_2 ... john_8。那么jerry就是jerry_1,jerry_2 ... jerry_5。还有james_1,james_2,...,james_10
这是我尝试过的不起作用的
z <- lapply(x, function(i){paste(i,"_",rep(max))})
Run Code Online (Sandbox Code Playgroud)
但这并不能满足我的需求。
也许,我不应该使用lapply或map *的某些版本,但不要在这些基础上进行工作。
我知道如何将 Parquet 文件读入Vec<Row>.
extern crate parquet;
use parquet::file::reader::{FileReader, SerializedFileReader};
use std::{fs, sync::Arc};
use parquet::column::writer::ColumnWriter;
use parquet::{
file::{
properties::WriterProperties,
writer::{FileWriter, SerializedFileWriter},
},
schema::parser::parse_message_type,
schema::types::TypePtr
};
use parquet::record::Row;
use parquet::record::RowAccessor;
use std::fs::File;
use std::io::prelude::*;
use std::path::Path;
use std::path::PathBuf;
fn read_parquet(in_path: &Path) -> (Vec<Row>, TypePtr) {
// Read Parquet input file. Return a vector of rows and the Schema
let file = File::open(in_path).unwrap();
let reader = SerializedFileReader::new(file).unwrap();
let row_iter = reader.get_row_iter(None).unwrap();
let num_rows = reader.metadata().file_metadata().num_rows();
let rows: Vec<Row> = row_iter.collect();
println!("num …Run Code Online (Sandbox Code Playgroud) 例如,我们有文本:
\n<Text>Test_request</Text>\nRun Code Online (Sandbox Code Playgroud)\n命令vit将s\xc3\xa9lect所有内部标签,如何仅删除标签?