Question

我试图找出如何获取php文件（html，css和javascript）并将其加载到下面的content部分。

以下是原始......

function wpse_124979_add_help_tabs() {

    if ($screen = get_current_screen()) {
        $help_tabs = $screen->get_help_tabs();
        $screen->remove_help_tabs();
        $screen->add_help_tab(array(
            'id' => 'my_help_tab',
            'title' => 'Help',
            'content' =>  'HTML CONTENT',

我尝试过以下但是失败了。我添加了file_get_contents（第一行），然后尝试使用'content' => $adminhelp将其拉入，

以下是修改后的代码......

$adminhelp = file_get_contents('admin-help.php'); 

function wpse_124979_add_help_tabs() {

    if ($screen = get_current_screen()) {
        $help_tabs = $screen->get_help_tabs();
        $screen->remove_help_tabs();
        $screen->add_help_tab(array(
            'id' => 'my_help_tab',
            'title' => 'WTV Help',
            'content' =>  $adminhelp,

任何想法有什么不对？

Answer 1

如果您希望将PHP文件的输出保存为$ adminhelp，请使用：

library(ggcorrplot)  
library(mvtnorm)
# A toy dataset
set.seed(1)
n <- 100
p <- 7
A <- matrix(runif(p^2)*2-1, ncol=p) 
Sigma <- cov2cor(t(A) %*% A)
corCN <- data.frame(rmvnorm(n, mean=rep(0,p), sigma=Sigma))
colnames(corCN) <- c("Aß 1-38","Aß 1-40", "Aß 1-42", "Aß 42/40", "YKL-40", "Ng", "NFL")

corrCN <- cor(corCN, method=c("spearman"), use="complete.obs")
p.matCN <- cor_pmat(corCN, method=c("spearman"), use="complete.obs")

# Load the myggcorrplot function
source("myggcorrplot.r")
# Set in the lab.notsig option the label for not significant correlations
CNcorrplot <- myggcorrplot(corrCN, type="lower", lab=TRUE, 
              ggtheme = ggplot2::theme_classic,
              p.mat=p.matCN, insig ="blank", lab.notsig="NS")

CNcorrplot2 <- CNcorrplot + ggtitle("CN") + 
                   theme(plot.title = element_text(hjust = 0.5)) 
CNcorrplot2

现在您正在将admin-help.php的源代码加载到$ adminhelp。

获取网页输出的另一个例子是cURL：

$adminhelp = file_get_contents('http://YOUR_DOMAIN/admin-help.php');

如果这不能回答您的问题，请附上您收到的错误消息。

如何输出file_get_contents的内容

1 个答案: